Synthesis's Filezilla Password Recoverer

[Dragos]

Synthesis's Filezilla Password Recoverer este un program cu ajutorul caruia poti recupera parolele de la Filezilla in caz ca le uiti. Utilitarul merge doar pe Windows XP.

Download: megaupload.com/?d=T47NE811

Sursa (AutoIT)

#include <GUIConstantsEx.au3>
#include <string.au3>
#NoTrayIcon
#include <array.au3>

Opt('MustDeclareVars', 1)

filezillapr()

Func filezillapr()
	Local $about, $recover, $i, $host, $user, $pass, $aaa
	Local $msg, $text, $sursa, $sursa2, $string, $i, $q, $a

	GUICreate("Synthesis's Filezilla Password Recoverer", 400, 200)

	$recover = GUICtrlCreateButton("Recover", 10, 10, 70, 20)
	$about = GuiCtrlCreateButton ("About",10,40,70,20)
	$aaa = GuiCtrlCreateButton ("Export",10,70,70,20)
	$text = GUICtrlCreateEdit ("", 100,10, 290, 180)

	GUISetState()

	While 1
		$msg = GUIGetMsg()


		Select
			Case $msg = $GUI_EVENT_CLOSE
				ExitLoop

			Case $msg = $aaa
				$q = GuiCtrlRead ($text)
				If ($q <> "") Then
					If fileexists ("export.txt") Then
						filedelete ("export.txt")
					    fileopen ("export.txt",1)
					    filewrite ("export.txt", $q)
					    fileclose ("export.txt")
					    msgbox (64, "Done", "Your accounts were exported to export.txt.")
					Else
					    fileopen ("export.txt",1)
					    filewrite ("export.txt", $q)
					    fileclose ("export.txt")
					    msgbox (64, "Done", "Your accounts were exported to export.txt.")
					EndIf
				Else
					msgbox (16, "Error", "Recover your accounts and then export them.")
				EndIf

			Case $msg = $recover
				$a = guictrlread ($text)
				If ($a == "") Then
				If fileexists ("C:\Documents and Settings\" & @username & "\Application Data\FileZilla\recentservers.xml") Then
					fileopen ("C:\Documents and Settings\" & @username & "\Application Data\FileZilla\recentservers.xml",0)
					$sursa = fileread ("C:\Documents and Settings\" & @username & "\Application Data\FileZilla\recentservers.xml")
					fileclose ("C:\Documents and Settings\" & @username & "\Application Data\FileZilla\recentservers.xml")
					$sursa2 = _stringbetween ($sursa, '<Server>','</Server>')
					$string = "Synthesis's Filezilla Password Recoverer" & @crlf & "================================" & @crlf & @crlf
					$q = Ubound ($sursa2)
					While ($i < $q) 
						$host = _StringBetween ($sursa2[$i], '<Host>', '</Host>')
						$user = _stringbetween ($sursa2[$i], '<User>','</User>')
						$pass = _stringbetween ($sursa2[$i], '<Pass>','</Pass>')
						$string = $string & "Website: " & $host[0] & @crlf & "Username: " & $user[0] & @crlf & "Password: " & $pass[0] & @crlf & @crlf
					    $i = $i+1
					Wend
					$string = $string & "================================"
					guictrlsetdata ($text, $string)
				Else
					msgbox (16, "Error", "Filezilla was not detected on your computer.")
				EndIf
				EndIf

			Case $msg = $about
				MsgBox(64, "About", "Synthesis's Filezilla Password Recoverer" & @crlf & "Tool coded for Windows XP" & @crlf & "Visit www.rstcenter.com for other tools.")
		EndSelect
	WEnd

	GUIDelete()

	Exit
EndFunc

Edited December 8, 2011 by Dragos

[SympleBoy22]

Poti incerca si pentru SmartFTP sau altele?

[Dragos]

O sa incerc sa fac.

[spance2life]

De curiozitate in ce limbaj lai facut ?

[SympleBoy22]

AutoIT ,se vede.