1. ..................................................................Do czego mi to?
2. ..................................................................Szyfrowanie XOr

1. ..................................................................Do czego mi to?
Pewnie się zastanawiasz do czego Ci jakieś tam głupawe szyfrowanie... Może do tego aby szyfrować listy e-mail, aby nikt z niepowołanych osób nie zobaczył Twoich "ważnych" dokumentów. Jest wiele powodów aby szyfrwać dane i nie sposób ich tutaj wymieniać

2. ..................................................................Szyfrowanie XOr
Szyfrowanie jest proste jak drut i każdy jest w stanie zrozumieć ogólne algorytmy szyfrowania. Jednym z podstawowych metod szyfrowania jest metoda XOR. Polega ona na działanu loczicznym na odpowiednich bajtach.

Przykład:

Załóżmy, że chcesz zakodować literkę "A", wtedy postępujesz tak:

deklarujesz jakąś zmienną typu BYTE, np: x
x := ord('A') Xor 100; {jako 100 możesz założyć jakąkolwiek}
                                  {inną liczbę od 0-255}

Można np. zrobić tak by program prosił o podanie właściwego klucza, podanie niedobrego klucza spowoduje wywalenie jakiś głupot zamiast odkodowanego tekstu:

Write('Podaj właściwy klucz: ');
Readln(klucz);
dkodowany:=zakodowany Xor klucz;
{"odkodowany" to zmienna typu byte, która posłuży nam jako}
{bajt do przechowywania odkodowanej zmiennej "zakodowany"}

Jeżeli zaś nadal nie umiesz zakodować/odkodować tekstu to patrz na ten program

Program Koder_Dekoder;

Const KLUCZ = 100;

Var Str:String;
       b:Byte;
       i:integer;

begin
       write('Co chcesz zakodować:');Readln(str);
       for i:=1 to length(str) do
       begin
       b:=ord(str[i]);
       b:=b xor klucz;
       Str[i]:=chr(b);
       end;
       Writeln('Zakodowane: ',str);
       for i:=1 to length(str) do
       begin
       b:=ord(str[i]);
       b:=b xor klucz;
       Str[i]:=chr(b);
       end;
       Writeln('Odkodowane: ',str);
end.