VPF::[Delphi 7.0] Программа шифрования с помощью XOR

Shurikan

Дата 3.12.2007, 14:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Нужно написать простейшую программу с помощью XOR алгоритма, поскольку я ничего в этом не смыслю полазал тут по форуму и нашел как я понял код программы....

Код


[color=green]program Shifr;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  XORKEY=100;
procedure ShifrXOR(var strText:string;key:byte);
var
  i,len:byte;
begin
  len:=length(strText);
  for i:=1 to len do
    strText[i]:=chr(ord(strText[i]) xor key);
end;
var
  strText:string;
begin
  writeln('Please enter a text:');
  readln(strText);
  writeln('Source text:');
  writeln(strText);
  ShifrXOR(strText,XORKEY);
  writeln('Coded text:');
  writeln(strText);
  ShifrXOR(strText,XORKEY);
  writeln('Decoded text:');
  writeln(strText);
  readln;
end.[/color]

только не могу понять куда это вставить и как сделать чтоб это работало? может кто нибудь из этого алгоритма сделать мне готовую прогу (чтобы можно было при нажатии на кнопку зашифровать введенное слово и при нажатии на другую кнопку оно расшифровывалось обратно) и с исходниками прислать на мыло?

Shurikan

Дата 6.12.2007, 04:35 (ссылка)

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

Загрузка ...

Новичок

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

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

неужто никто не поможет? :(

orthrus

Дата 6.12.2007, 07:46 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

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

Код рабочий (не работать там просто нечему smile

). Создавай консольное приложение и скопируй туда эти строчки.

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

У того, кто ничего не делает, всегда много помощников.© Л.Н. Толстой
user posted image

Shurikan

Дата 6.12.2007, 14:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(orthrus @ 6.12.2007, 07:46

)

Код рабочий (не работать там просто нечему smile). Создавай консольное приложение и скопируй туда эти строчки.

вот с этим у меня и проблема я незнаю как это сделать :(

mr.Anderson

Дата 6.12.2007, 17:17 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Shurikan, дык. Открываешь Дельфина. Жмешь в меню File -> Close All. Если будут вопросы, говоришь "Нет". Затем жмешь в меню File -> New -> Other, там выбираешь Console Application. В открывшемся окне стираешь весь текст и копируешь туда свой код, который тут привел. Затем жмешь F9. И радуешься. smile

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

Shurikan

Дата 6.12.2007, 19:30 (ссылка)

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

Загрузка ...

Новичок

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

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

вроде работает, только подскажите как мне для этого еще графическую оболочку сделать (кнопки там всякие и поля для ввода слов) + можно ли заменить в проге что бы вводимое слово шифровалась не в значки и иероглифы какието а в набор букв и цифр какой нибудь?

mr.Anderson

Дата 6.12.2007, 22:10 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Shurikan, по XOR на выходе обязательно получаем значки, поскольку сама суть этой операции состоит в сдвиге кодов символов, так что после сдвига в результате, разумеется, можем получать совершенно разные (в том числе и непечатаемые) символы. Изменить это никак нельзя, иначе это будет уже не XOR-шифрование.

Насчет графики. Делаем чуть по-другому: закрываем (File->Close All), затем новое графическое приложение (File->New->Other, Application). На него кидаем две кнопки (TButton) и TEdit для ввода текста (все эти компоненты находятся в горизонтальном перечне сверху, на первой вкладке Standard). Затем на первую кнопку тычем дважды и пишем в ней твой код, передавая в strText выражение Edit1.Text. Со второй кнопкой повторяем то же самое.

Затем щелкаем по первой кнопке (один раз), в ее свойствах (слева список длинный) находим Caption, меняем его на "Зашифровать". На второй кнопке щелкаем один раз, его Caption меняем на "Расшифровать". Теперь размещаем эти три компонента на форме так, чтоб было красиво, и жмем F9.

Это сообщение отредактировал(а) mr.Anderson - 6.12.2007, 22:11

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

mr.Anderson

Дата 14.12.2007, 14:23 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Shurikan, прилагаю исходники к этому сообщению. Программу написал. Изучи ее как следует, там кода совсем немного, особенно поползай по свойствам компонентов, чтобы понять, как она работает. Будут вопросы - пиши в эту тему, отвечу.

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

XOR_encoding.rar 7,45 Kb

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

Shurikan

Дата 14.12.2007, 18:21 (ссылка)

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

Загрузка ...

Новичок

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

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

mr.Anderson, большое спасибо!

ParonormalActivity

Дата 16.2.2011, 12:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет) Шифрую БД на основе делфи. Надо зашифровать таблицу с помощью хор. Т.е. табл зашифрована, открываешь БД, вводишь пароль, табл дешифруется и работаешь. Закрываешь БД, табл шифруется снова. Скажите куда вставить кусок вышеприведенной проги?

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