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

[Пепел Феникса]

1)не сократите вы.(если нужно обратно вернуть)
2)смотря как и кому передавать, если свой протокол, то все зависит от прямоты рук.
3)кому сильно надо всеравно прочтет.

[Serge_Bliznykov]

Эта строка - это имя файла.

ну слава Богу, выпытали, наконец-то...

2. Передавать файлы на мой взгляд лучше с именем из латинских символов.
3. Это поможет уберечь информацию от людей, которым ее нельзя видеть.

ладно. понятно. даже соглашусь.
я бы даже всё к большим буквам приводил...

1. Сократить имя

Зачем?! чем файл с именем "APMKWBBC78DS5S213FEW34" будет передаваться хуже, чем файл с именем, скажем
"BBBDAAADSDDAPMKFFFFWBGGGGGGBCGGGG9 DDSDF000078DS5S213FEWW56734ASSD8344 " !?!


и, главное.
есть такая "волшебная" штука, как архиватор WinRAR
у него есть опция -p - паролить архив.
а есть -hp - паролить и архив и его содержимое.
Для шифрации используется AES (это ОЧЕНЬ криптостойкий алгоритм). Если используете пароль длинее 10 символов то будет ГАРАНТИЯ, что не имя файла, ни сам файл никто (без знания пароля, разумеется) НЕ УВИДИТ!
Так зачем изобретать велосипед?! (тем более на дерявянных квадратных колёсам... )

[Crunkordie]

Вы конечно извините, но вы чуть-чуть не в ту сторону идете=)...
Serge_Bliznykov, сократить имя файлы - это было больше желательно, чем необходимо, раз нельзя, то пусть будет длинное. Крайне не хотелось бы использовать сторонние программы типа WinRar'a и т.п. Использовать пароль и т.п. нет необходимости.
Остается сделать читаемую строку из кириллицы в не читаемую строку из латиницы с возможность восстановления исходной строки=)

[BingoBongo]

че демогогию разводить?!
на пробуй

procedure XORing(Str: String);
var
i: Integer;
XORing_: Char;
Result: String;

begin

for i := 1 to Length(Str) do
begin
XORing := CHR((ORD(Str[i]) XOR ORD(Length(Str[i]) + SQR(17)) XOR ORD(37) XOR ORD(57) XOR ORD(77) XOR ORD(37)));
Result := Result + XORing;
end;

end;

это самое банальное, что можно предложить.
а если еще циферки менять, так и свой собственный шифр разработаешь!

[Crunkordie]

Сообщение от BingoBongo

это самое банальное, что можно предложить.
а если еще циферки менять, так и свой собственный шифр разработаешь!

Если не трудно, дай ссылку на дешифратор...

[BingoBongo]

Сообщение от Crunkordie

Если не трудно, дай ссылку на дешифратор...

ты пошутил??? это шифратор-дешифратор в одном

Result - выдает обработанный текст. Присваиваешь Str'у любой строковый параметр (например XOR(Edit1.Text)), а после Result := Result + XORing_; end; например Memo1.Text := Result;

чтобы дешифровать, вставь в тот же Edit1 то что получилось в Memo1. Он дишифранет.

[Crunkordie]

Сообщение от BingoBongo

ты пошутил??? это шифратор-дешифратор в одном

Result - выдает обработанный текст. Присваиваешь Str'у любой строковый параметр (например XOR(Edit1.Text)), а после Result := Result + XORing_; end; например Memo1.Text := Result;

чтобы дешифровать, вставь в тот же Edit1 то что получилось в Memo1. Он дишифранет.

Этот метод не совсем подходит, конечный результат может содержать недопустимые символы для имени файла + в результате много квадратиков

[eduard93]

Учитывая все условия, Base64 самая лучшая кандидатура.

[Serge_Bliznykov]

Сообщение от eduard93

Учитывая все условия, Base64 самая лучшая кандидатура.

угу. согласен. ну, с небольшой модификацией, чтобы убрать из словаря недопустимые символы.


вот, написал пример.
строка шифруется с помощью XOR со строкой ключа.
Результат преобразуется в печатные символы по таблице BASE64 (потом выполняется замена некоторых символов, которые недопустимы в имения файла)

пример.

исходная строка "Иванов Иван Иванович 1985г." (длина 27 символов)
преобразуется в строку "wdrkrLSiO8Ha5Kx6iPnp1eqjsrc7OAE8dLlu" (длина 36 символов)

Внимание! Строка BASE64 - регистрозависимая (большие и малые буквы - это РАЗНЫЕ коды!)


т.к. код не сложный, позволю его прямо в сообщении привести (полный исходник проекта - во вложении!)
И, отдельно, скомпилированный EXEшник.

implementation
uses synacode;

const
  KeyPass = #09'8'#04'AZ@'#27; {Это ключ для шифрования.
     Он может быть любой. Главное, чтобы он был подлинее и послучайнее...}

{$R *.DFM}

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

procedure TForm1.btDecodeClick(Sender: TObject);
var ss : string;
  i : integer;
begin
  ss := edResult.Text;
  {вернём заменённые знаки}
  for i := 1 to Length(ss) do
    case ss[i] of
      '@' : ss[i] := '+';
      '$' : ss[i] := '/';
      '_' : ss[i] := '=';
    end;
  edSource.Text :=  StringCoder( DecodeBase64(ss));
  laLengthSource.Caption := IntToStr( Length(edSource.Text));
  laLengthResult.Caption := IntToStr( Length(edResult.Text));
end;


procedure TForm1.btEncodeClick(Sender: TObject);
var ss : string;
  i : integer;
begin
  ss := EncodeBase64(StringCoder(edSource.Text));
  {откорректируем недопустимые в имени файла знаки}
  for i := 1 to Length(ss) do
    case ss[i] of
      '+' : ss[i] := '@';
      '/' : ss[i] := '$';
      '=' : ss[i] := '_';
    end;
  edResult.Text := ss;
  laLengthSource.Caption := IntToStr( Length(edSource.Text));
  laLengthResult.Caption := IntToStr( Length(edResult.Text));
end;

ДОБАВЛЕНО
Использованная в первом варианте реализация BASE64 оказалась с "дырками" - при некоторых исходных кодах кодирование в BASE64 происходило неверно!
Поэтому я взял реализацию (целиком модуль) из бесплатной библиотеки Synapse
(The synchronyous socket library.)
погонял, вроде косяков не обнаружил..

[Crunkordie]

Спасибо большое за Вашу помощь. Буду тестить...