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: 2323
Permanentní odkaz: XOR dvou řetězců

Komentáře (0)
Přidej vlastní komentář:
Následující (běžně neviditelná) pole slouží pro vnitřní identifikaci systému. Pokud je vyplníte nebude možné váš požadavek na straně serveru zpracovat:
URL:
contents:
Website:
Pro odeslání vašeho komentáře použijte tlačítko "Odeslat". Toto tlačítko nepoužívejte:

Následující položky je vhodné vyplnit:
Jméno :
Email :
Web :
Místo :
Hodnocení:
Hodnocení jako pomocí hvězdiček
1/5= nejhorší, 5/5=nejlepší