15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Простейший пример шифрования/дешифрования используя алгоритм XOR.

Данный пример компилировался на Delphi 3.0

Полный проект можно взять здесь (~23Kb)

  Листинг 1
program Crypt;
{$APPTYPE CONSOLE}
uses Windows;

var key, text, longkey, result : string;
    i : integer;
    toto, c : char;
    F : TextFile;
begin
  writeln('Enter the key:');
  readln(key);
  writeln('Enter the text:');
  readln(text);

  for i := 0 to (length(text) div length(key)) do
      longkey := longkey + key;

  for i := 1 to length(text) do begin
      toto := chr((ord(text[i]) XOR ord(longkey[i]))); // XOR алгоритм
      result := result + toto;
  end;
  writeln('The crypted text is:');
  writeln(result);
  write('Should i save it to result.txt ?');
  read(c);
  if c in ['Y','y'] then begin
     AssignFile(F,'result.txt');
     Rewrite(F);
     Writeln(F,result);
     CloseFile(F);
  end;
end.