Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi 7.0] Программа шифрования с помощью XOR

Автор: Shurikan 3.12.2007, 14:46

Нужно написать простейшую программу с помощью 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

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

Автор: orthrus 6.12.2007, 07:46

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

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

Автор: Shurikan 6.12.2007, 14:46

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

)

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

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

Автор: mr.Anderson 6.12.2007, 17:17

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

Автор: Shurikan 6.12.2007, 19:30

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

Автор: mr.Anderson 6.12.2007, 22:10

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

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

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

Автор: mr.Anderson 14.12.2007, 14:23

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

Автор: Shurikan 14.12.2007, 18:21

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

Автор: ParonormalActivity 16.2.2011, 12:52

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