Алгоритм шифрования

[Simply-Art]

function CT(Text,Key: String; Encode: boolean): String;
var
  i, KeyLength: integer;
  Sign: ShortInt;
begin
 KeyLength:=Length(Key);
 if Encode then Sign :=1 else Sign:=-1; // true - шифровать
 for i:=1 to Length(Text) do
  Text[i]:=chr(ord(Text[i])+Sign*ord(Key[i mod KeyLength+1]));
  CT:=Text;
end;

Я обнаружил косяк, если мы получаем

ord(Text[i])+Sign*ord(Key[i mod KeyLength+1])

здесь число кратное 256 (... ,-256, 0, 256, ...) то символ то пропадает, как это возможно исправить?

[alexBlack]

В тексте ошибка - char + integer
Если исправить, то будет переполнение
Лучше использовать xor:

function CT(Text,Key: String): String;
var  
  i, KeyLength: integer;   
begin  
  KeyLength:=Length(Key);   
 
  for i:=1 to Length(Text) do begin
     Text[i] := CHR(ord(Text[i]) xor (ord(key[(i-1) mod KeyLength+1])));   
  end;
  CT := Text;   
end;

//   S := CT('testString', 'key'); // шифровать
//   S := CT(S, 'key'); // расшифровать
//   ShowMessage(S); // S = 'testString';

[Simply-Art]

Не хочу огорчать, но и этот алгоритм не проходит тест.

[alexBlack]

Какой тест ?
Вообще-то я его компилировал и проверил (нижние три строчки).
Потом просто cut-paste -
Есть код теста ?

Есть еще предположение.

text[i] xor key[i] дает 0, если оба символа одинаковы

Для длинных строк это признак конца строки, поэтому нужно использовать ShortString.
Исправьте в объявлении функции. Проверил еще раз. Работает.

[Simply-Art]

Просто попробуй кинуть текст вышенаписаного кода в мемо и зашифровать, расшифровать, косяк на лицо, даже если с обнулением разобраться ЗЫ у меня нули уже не появляются. Я вот думаю это скорей всего косяк компонента, потому что определенные символы почемуто сливаются в один, и как результат, смещение кода, ключа, и вообще неправильного перевода.

[alexBlack]

а почему бы просто не поставить breakpoint и не посмотреть,что получается. Или задача состоит в том, чтобы увидеть шифровку memo ? там же в основном непечатные символы - тогда нужно менять алгоритм шифрования. В любом случае давай код. Посмотрим

[B_N]

Чего-то я никак проблему не пойму. Ну и что, что 0 получается? просто обрабатывать зашифрованые данные не в виде строк и всё...

[Simply-Art]

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

[Stilet]

Я может не в тему, но может поменять алгоритм шифрования на другой?

[alexBlack]

Сообщение от Simply-Art

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

Взять текст из мемо, зашифровать:

var S:String;
procedure TForm1.Button1Click(Sender: TObject);
begin
   S := CT(Memo1.text, 'key');
   Memo1.text := '';
end;

Расшифровать и поместить в мемо

procedure TForm1.Button2Click(Sender: TObject);
begin
   Memo1.text := CT(S, 'key');
end;

Обрати внимание, шифрованный текст не помещаем в мемо.
В нем есть управляющие символы, которые мемо не отображает или обрабатывает по своему. Не будем путать две проблемы. Процедура шифрования работает. А если нужно еще и отобразить шифрованный текст, то мемо не подойдет или текст нужно показывать в hex-коде