Отдели мух от котлет
Код:
function CodeDecode(S:string;Key:byte):string; // кодирование
var i,L:word;
begin
L:=Length(S);
Result:='';
SetLength(Result,L);
for i:=1 to L do
begin
Result[i]:=Chr(Ord(S[i]) xor Key);
end;
end;
procedure Perebor(S:string);// подбор
var j:byte;
begin
for j:=0 to 255 do //все возможные ключи
begin
Form1.Memo1.Lines.Add(IntToStr(j)+' '+CodeDecode(S,j));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
//шифрует и дешифрует(при повторном нажатии )
begin
//Edit1.Text:=CodeDecode((Edit1.Text),10);
Perebor(Edit1.Text);
end;
И поскольку могут получаться непечатные символы, то в мемо могут попадать несколько странные результаты.