function Decrypt(Str, Password: string): string;
var
i: integer;
S: string;
begin
S:= EmptyStr;
for i:= 1 to Length(Password) do
S:= S + IntToStr(Ord(Password[i]));
i:= 0;
Result:= Emptystr;
while Length(Str) > 0 do
begin
i:= (i mod Length(S)) + 1;
Result:= Result + Chr(StrToInt('$'+Copy(Str,1,2)) xor Ord(S[i]));
Delete(Str,1,2);
end;
end;
ShowMessage(Decrypt('74606A780C0C','c'));