[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.

Admin: Не забываем про теги!

[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.

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

[km_]

давай, только в лс)

[Konrad]

Код:

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;

Этот код рабочий, но применим только для шифрования уровня дошкольного возраста.

[km_]

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

[code]
Этот код рабочий, но применим только для шифрования уровня дошкольного возраста.

спс))). Раз не aes, то хотябы вернама)

[Konrad]

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

спс))). Раз не aes, то хотябы вернама)

Как хочешь, хозяин - барин.

[= FFFFh =]

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

key[i]:=chr(random(255));

Извеняюсь, но это глупо... Гораздо умнее применить константу