Восстанавливаем пароли, сохраненные в Pidgin & Filezilla

[WestSide]

PHP код:

program stub;
//by assd//
{$APPTYPE CONSOLE}

uses
  windows,
  registry, jstrpars, sysutils;


Type TSystemPath=(Desktop, Appdata,StartMenu,Programs,Startup,Personal, winroot, winsys);

Function GetSystemPath(SystemPath:TSystemPath):string;   
var p:pchar;
begin  
with TRegistry.Create do
try  
RootKey := HKEY_CURRENT_USER;   
OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', True);   
case SystemPath of  
Desktop: Result:=ReadString('Desktop');
StartMenu:Result:=ReadString('Start Menu');   
Programs:Result:=ReadString('Programs');   
Startup:Result:=ReadString('Startup');   
Personal:Result:=ReadString('Personal');
Appdata:Result:=ReadString('Appdata');
Winroot:begin  
GetMem(p,255);
GetWindowsDirectory(p,254);
result:=String(p);
Freemem(p);   
end;   
WinSys:begin  
GetMem(p,255);   
GetSystemDirectory(p,254);   
result:=String(p);
Freemem(p);   
end;
end;   
finally
CloseKey;
free;   
end;   
if (result<>'') and (result***91;length(result)***93;<>'\') then result:=result+'';   
end;
var tf:TextFile; s, t, tmp, rs,  fz1, fz2, fz3, fz4:string;
begin
  s:=GetSystemPath(Appdata);
  t:=s+'FileZillarecentservers.xml';
  writeln('FileZilla:');
  if fileexists(t) then
  begin
    AssignFile(tf,t);
    Reset(tf);
    while not Eof(tf) do
    begin
      Readln(tf,tmp);
      if pos('<Host>',tmp)<>0 then
      begin
        fz1:=pars1(pars2(tmp,'>'),'</Host>');
      end else
      if pos('<Port>',tmp)<>0 then
      begin
        fz2:=pars1(pars2(tmp,'>'),'</Port>');
      end else
      if pos('<User>',tmp)<>0 then
      begin
        fz3:=pars1(pars2(tmp,'>'),'</User>');
      end else
      if pos('<Pass>',tmp)<>0 then
      begin
        fz4:=pars1(pars2(tmp,'>'),'</Pass>');
        rs:='ftp://'+fz3+':'+fz4+'@'+fz1+':'+fz2+'/';
        writeln(rs);
      end;
    end;
    CloseFile(tf);
  end;
  writeln('-----------------------');
  writeln('Pidgin:');
  t:=s+'.purple\accounts.xml';
  if fileexists(t) then
  begin
    AssignFile(tf,t);
    Reset(tf);
    while not Eof(tf) do
    begin
      Readln(tf,tmp);
      if pos('<protocol>',tmp)<>0 then
      begin
        fz1:=pars1(pars2(tmp,'>'),'</protocol>');
        fz1:=ReStr(fz1,'prpl-','');
      end else
      if pos('<name>',tmp)<>0 then
      begin
        fz2:=pars1(pars2(tmp,'>'),'</name>');
      end else
      if pos('<password>',tmp)<>0 then
      begin
        fz3:=pars1(pars2(tmp,'>'),'</password>');
        rs:=fz1+'://'+fz2+':'+fz3+'/';
        writeln(rs);
      end;
    end;
    CloseFile(tf);
  end;
  readln;
end.