XOR dvou řetězců

Klíčová slova: XOR, Chr, Ord
Rubrika: Delphi

Následující funkce slouží pro XOR dvou řetězců. Výstupem je potom XORovaný string. Tato funkce se hojně využije např. při velmi jednoduchém heslování a pod.

function XOR_String(s1,s2:String) : string;
var
i,j: integer;
ch : Char;
begin
Result := s1;
j := 1;
for i := 1 to Length(s1) do
begin
ch := s1[i];
ch := Chr(Ord(Ch) XOR Ord(s2[j]));
inc(j);
if (j> Length(s2)) then j := 1;
Result[i]:= ch;
end;
end;

Autor: Jiří Provazník
Datum vydání: 12.11.2002 | Zobrazeno: 3205
Permanentní odkaz: XOR dvou řetězců

Komentáře (0)