Posted by: frs.steve
« on: Yesterday at 01:48:55 am »thank you!
Thank you for using this forum as the technical support base for your device.
● You can format the text and attach screenshots, photos and RDS Spy records
● Faster reply: 50 % of questions are answered within 30 minutes
● You don't need to register (but registration is possible)
● The members represent a wide range of experts
● The resolution will be helpful to other users
● You'll be notified by email about new post
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;