Код:
xr_num := '2'; //по умолчанию смещение = 2
procedure TForm1.N6Click(Sender: TObject);
var
xr: string; //зашифрованный текст
i: integer; //счетчик цикла
begin
for i:=1 to Length(Memo1.Text) do
begin //перебираем каждый символ в тексте
//Выполняем указанное пользователем смещение
xr := xr + Chr(Ord(Memo1.Text[i]) xor StrToInt(xr_num));
//заменяем оригинальный текст на зашифрованный
Memo1.Text := xr;
end;
end;
Ужесть...
Во-первых xr := xr + ...; чему равно начальное значение xr?)
Во-вторых зачем каждый раз выполнять преобразование StrToInt(xr_num)? Чтобы программа работала быстрей?)
И т.д. ...
И кстати такой шифр взломает любой пятиклассник.