private_tm: Извините. Болел. Если еще интересно то следующая функция Delphi, будучи вызванная с вышеприведенной строкой в качестве параметра вернет нужный результат (DecryptXorStr('шЗЭШРЫУЫЮЙ')).
function DecryptXorStr(S: AnsiString): AnsiString;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(S) do
Result := Result + Chr(Ord(S[i]) xor 54);
end;
Данные лежат в БД Access в поле типа MEMO. Пишутся через ADO.
Спасибо за совет! Если не найдется более "правильного" решения так и поступлю. У меня просто прорва данных, что зашифрованных таким образом. В разных форматах и разными значениями xor. Под все таблицы конечно можно составить, но это жуть.
function DecryptXorStr(S: AnsiString): AnsiString;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(S) do
Result := Result + Chr(Ord(S[i]) xor 54);
end;
Данные лежат в БД Access в поле типа MEMO. Пишутся через ADO.