Алгоритм шифрование XOR

Previous  Top  Next

    
 

 

Code:

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

   // XOR אכדמנטעל

   toto := chr((ord(text[i]) xor ord(longkey[i])));

   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.

 

©Drkb::04006

http://delphiworld.narod.ru/

DelphiWorld 6.0

 

 

 


 

Автор: Igor N. Semenushkin

 

Вот ужасно простой пример XOR шифрования - работает без глюков.

Code:

var

key, text, longkey, result: string;

i: integer;

toto, c: char;

begin

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;

end;

 

http://delphiworld.narod.ru/

DelphiWorld 6.0