send email, smtp pwd ini file encoding

[frs.steve]

hi
what is the encoding used for the smtp pwd stored in the ini file?
i need to reverse decode it

[Jan]

Code: [Select]

function PwdDecode(heslo: string): string;
var i,j,m,l: integer;
    w: string;
begin
w:='';
for i:=1 to (length(heslo) div 2) do
  begin
  m:=Ord(heslo[i*2-1]);
  l:=Ord(heslo[i*2]);
  j:=(m-(i mod 3)-ord('c'))*16+(l-(i mod 3)-ord('f'));
  w:=w+Chr(j);
  end;
result:=w;
end;