[VB6] Firefox-stealer

[Breakdown]

abend
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?

[NoX]

Hab mal kurz ne Function für VB6 gecoded, hab sie nicht getestet,sollte aber gehen

'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

[Breakdown]

Funktioniert soweit alles.. außer, dass beim Pfad jetzt das hier steht:
Path=Profiles/i9jv4cm2.default

und das Path bekomme ich nicht weg

[NoX]

Mach mal nen Command Button und schreib folgendes rein.

Msgbox GetProfileName

[nemo]

~

[Breakdown]

Problem ist gelöst... Tix hat mir freundlicherweiße geholfen und jetzt funktioniert alles bestens

[X21]

NoX aka Neronix, wenn das dein Snippet ist, warum verwendest du dann dieselben Variablennamen wie ich in meinem?

Vielleicht weil schon viel länger Copy Paste macht als du Programmierst und daher viel mehr Erfahrung in diesen Dingen hat?

[NoX]

Vielleicht weil schon viel länger Copy Paste macht als du Programmierst und daher viel mehr Erfahrung in diesen Dingen hat?

hab den satz irgendwie nicht recht verstanden -.-

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).

[Breakdown]

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!

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?

[Breakdown]

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:

Environ("appdata") & "\Mozilla\Firefox\Profiles\" & GetProfiles & "\signons2.txt")

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?