Project1.pl - Szyfr xor

Szyfr xor

Napisał: Berl

niedziela, 26 marzec 2006

Szyfr ten należy do grupy szyfrów podstawieniowych. Jest często wykorzystywany w bardziej skomplikowanych algorytmach szyfrowania jako ich część składowa. Sam w sobie jednak stanowi także algorytm szyfrujący, którego skuteczność zależy w głównej mierze od długości użytego hasła.

Algorytm ten polega na wykonaniu operacji bitowej xor na każdym bicie tekstu jawnego. Wynik działania operacji xor wygląda następująco :
0 xor 0 = 0
1 xor 0 = 1
0 xor 1 = 1
1 xor 1 = 0

Przykład :

 
program xorowanie;
{$APPTYPE CONSOLE}
uses SysUtils;
 
var
    Tekst : string;
    Haslo : string;
    Zaszyfrowany : string;
    i, j : integer;
begin
    WriteLn('Podaj tekst do zaszyfrowania :');
    ReadLn(Tekst);
    writeln('Podaj haslo :');
    ReadLn(Haslo);
    j := 1;
    for i := 1 to Length(Tekst) do begin
        Zaszyfrowany := Zaszyfrowany + chr(ord(Tekst[i]) xor ord(Haslo[j]));
        j := j + 1;
        if j > Length(Haslo) then j := 1;
    end;
 
    WriteLn('Tekst zaszyfrowany : ');
    for i := 1 to Length(Zaszyfrowany) do begin
        Write(Zaszyfrowany[i]);
    end;
    WriteLn;
 
    WriteLn('Podaj haslo do odszyforwania : ');
    ReadLn(Haslo);
 
    j := 1;
    Tekst := '';
    for i := 1 to Length(Zaszyfrowany) do begin
        Tekst := Tekst + chr(ord(Zaszyfrowany[i]) xor ord(Haslo[j]));
        j := j + 1;
        if j > Length(Haslo) then j := 1;
    end;
 
    WriteLn('Tekst jawny : ');
    WriteLn(Tekst);
    ReadLn;
end.

Komentarze

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.

wstecz		dalej »

WRÓĆ