Кодирование текста

[Crunkordie]

Столкнулся с такой проблемой.

Имеются следующий код:

S:='Иванов Иван Иванович 1985 года рождения г. Москва';
showmessage(StringCoder(DecodeBase64(EncodeBase64(StringCoder(s)))));

Результатом является

Ива~e Ива~ Ивано~eч 1985 ода рeдения . Мо~eа

В чем может быть проблема?

P.S. Embarcadero® Delphi® 2010 Version 14.0.3593.25826

[Serge_Bliznykov]

проверил.
на Delphi2006 - нет, не подверждаю...

в коде Вы, надеюсь, ничего не меняли?

Думаю, что проблема в том, что строки в вашей Delphi - Unicode....
попробуйте везде, где есть тип String заменить на AnsiString (или даже на ShortString - в данном случае ограничение в 255 символов не очень актуально, всё равно длина имени файла ограничена).

[Serge_Bliznykov]

вот, измените процедуру StringCoder, вроде бы этого даже достаточно:

function StringCoder(const s : AnsiString) : AnsiString;
var k, i : integer;
  key, sResult  : AnsiString;
begin
  key := KeyPass;
  sResult := s;
  k := 1;
  for i := 1 to Length(s) do
    begin
      sResult[i] := AnsiChar((ord(sResult[i]) XOR ord(key[k])));
      inc(k);
      if (k>length(key)) then k := 1;
    end;
  StringCoder := sResult
end;

[Crunkordie]

Serge_Bliznykov, Спасибо большое. Даже не знаю как тебя отблагодарить...

[Serge_Bliznykov]

да ладно.
пользуйтесь на здоровье!