Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
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.

https://delphiworld.narod.ru/

DelphiWorld 6.0


Автор: Igor N. Semenushkin

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

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;

https://delphiworld.narod.ru/

DelphiWorld 6.0