VPF::Шифр Вернама - Форум программистов

Kossssssss

Дата 4.6.2013, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 16.11.2011

Репутация: нет
Всего: нет

Здравствуйте на просторах интернета нашел код Шифрования Вернама
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])));
и так не работает
Ord(oStr[i]) xor Ord(key[i])
и ещё вопрос как сделать чтоб можно было шифровать больше 255 символов???
сам шифр

Код


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;

Это сообщение отредактировал(а) Kossssssss - 4.6.2013, 15:47

Присоединённый файл ( Кол-во скачиваний: 5 )

Shifr.rar 484,25 Kb

Beltar

Дата 4.6.2013, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: 3
Всего: 7

Конечно не работает, Ord это хорошо, но ведь и в результирующей строке надосимвол к целому приводить. А вообще в новых Delphi д/б ф-ия перевода строки в байтовый массив.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »