Шифр Вернама

[Ko$]

Здравствуйте на просторах интернета нашел код Шифрования Вернама
http://zetblog.ru/programming/200812...0/#comment-924
только он не работает Incompatible types: 'String' and 'Integer' ругается на строку:
shStr[i]:=oStr[i] xor key[i];
пишу так то же самое:
shstr:=((StrToInt(ostr[i])) xor (StrToInt(key[i])));
сам шифр

procedure shifr_Vernam;

var

  oStr, key, shStr :string;

  i:integer;

begin

  oStr:='Holo word!';  //определяем открытый текст

  randomize; //Необходимая функция для функции random, чтобы последняя каждый раз выдавала случайные значения

//генерируем случайный ключ длиной равной длине открытого текста

  for i:=1 to length(oStr) do

    key[i]:=Chr(random(255)); //генерируем случайное число из диапозона от 0 до 255, и полученное число переводим в символ;

//собственно само шифрование

  for i:=1 to length(oStr) do

    shStr[i]:=oStr[i] xor key[i];

//для наглядности выведем на экран результат работы

  lbl1.Caption:=('Otkrytyi text: ',oStr);

  lbl2.Caption:=('Zashifrovanyi text: ',shStr);

end;

и как сделать чтоб можно было шифровать больше 255 символов???

[hon]

Делай Memo или TStrings и обрабатывай построчно. А лучше засунуть это во временный файл и обработать его побайтово.

[FaTaL]

Сделай так
Ord(oStr[i]) xor Ord(key[i])

[Ko$]

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

Сделай так
Ord(oStr[i]) xor Ord(key[i])

всё равно не работает

Делай Memo или TStrings и обрабатывай построчно. А лучше засунуть это во временный файл и обработать его побайтово.

файл есть, пример проги прилагается

[Ko$]

Люди помогите !!!

[zetrix]

Невнимательность.
Замени

shstr:=Ord(oStr[i]) xor Ord(key[i]);

на

shstr[i]:=Char(Ord(oStr[i]) xor Ord(key[i]));

Работать будет в большинстве случаев, но обращаю внимание на возможную потерю данных:
мы используем function Ord(X: Ordinal): Byte; (на выходе получаем 8 бит)
Char с недавних пор равен WideChar (16 бит),
String с тех же пор UnicodeString (каждый символ = 2 байта = 16 бит).

Таким образом при входе мы шифруем каждый символ = 16 бит и получаем на промежуточном этапе 8 бит (старший байт машет нам ручкой и уходит в небытие), затем функция Char опять раздувает его до 16 бит (тип на выходе WideChar).

Вывод: строками выше нельзя кодировать текст в юникоде.

[Ko$]

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

Невнимательность.
Замени

shstr:=Ord(oStr[i]) xor Ord(key[i]);

на

shstr[i]:=Char(Ord(oStr[i]) xor Ord(key[i]));

Работать будет в большинстве случаев, но обращаю внимание на возможную потерю данных:
мы используем function Ord(X: Ordinal): Byte; (на выходе получаем 8 бит)
Char с недавних пор равен WideChar (16 бит),
String с тех же пор UnicodeString (каждый символ = 2 байта = 16 бит).

Таким образом при входе мы шифруем каждый символ = 16 бит и получаем на промежуточном этапе 8 бит (старший байт машет нам ручкой и уходит в небытие), затем функция Char опять раздувает его до 16 бит (тип на выходе WideChar).

Вывод: строками выше нельзя кодировать текст в юникоде.

[Warning] Unit1.pas(55): Unsafe code 'String index to var param'

Пишет

[zetrix]

Ko$, я предупреждал, IDE вас предупреждает (правда немного в другом: "можете выбежать за пределы строки. Будь осторожен!").
Длину строки shstr необходимо задать равной строке oStr (а то писать действительно будем в никуда). После этого и предупреждение должно исчезнуть.

[Ko$]

Нажимеш кнопку Шифровать выдаёт ошибку и повисает

[zetrix]

Размер у shstr какой? Если в начале шифрования у вас написано shstr := ''; то естественно писать будет некуда.Первое же обращение shstr[i] приведёт к ошибке.
Исправленный код процедуры шифрования опубликуйте тут.