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;