[Konrad]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var str, shStr, key: string;
i: integer;
begin
str:='hello world';
randomize;
for i:=1 to length(str) do
  key[i]:=chr(random(255));
for i:=1 to length(str) do
  shStr[i]:=str[i] xor key[i];
end;
end.

Чесно ответить?)