[Black_Bear]

сложность в следующем: решил дополнить программку которая шифрует и дешифрует текст в окне Edit1 следующим: возможность перебора всех возможных значений ключа(их всего 255 тип то byte!) и отображала бы результаты применения каждого ключа к зашифрованной строке в окне Memo1. запутался с несоответствием типов

Код:

function CodeDecode(S:string;Key:byte):string;
  var i,L,K:word;
  var j:byte;
 begin
  L:=Length(S);

 for i:=1 to L do
  begin
   S[i]:=Chr(Ord(S[i]) xor Key);
  end;
  for j:=0 to 255 do  //все возможные ключи
  begin
    K:=StrToInt(S) xor j;
  Form1.Memo1.Lines.Add(IntToStr(K));
   end;
 Result:=(S);
 end;


procedure TForm1.Button1Click(Sender: TObject); //шифрует и дешифрует(при повторном нажатии )
begin
 Edit1.Text:=CodeDecode((Edit1.Text),10);

end;

Админ: Пользуемся тегами для оформления кода!