Код:
key[i]:=chr(random(255));
Это просто ужесть
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
shStr, key:array[0..256] of byte;
i: integer;
begin
str:='hello world';
randomize;
for i:=1 to length(str) do
key[i]:=random(256);
for i:=1 to length(str) do
shStr[i]:=ord(str[i]) xor key[i];
end;
Этот код рабочий, но применим только для шифрования уровня дошкольного возраста.