Encriptación.

[[seoane]]

Prueba con esto:

Código Delphi [-]
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;

// Por ejemplo
ShowMessage(Decrypt('74606A780C0C','c'));