Project1.pl - Szyfr ROT-13

Szyfr ROT-13

Napisał: Berl

sobota, 07 styczeń 2006

Szyfr ten jest w zasadzie rozwinięciem szyfru Cezara, z tą różnicą, że każda litera tekstu jawnego jest zastępowana w tekście zaszyfrowanym literą występującą trzynaście pozycji po niej (czyli A zamieniamy na N, W zamieniamy na J), natomiast przy odszyfrowywaniu każda litera tekstu zaszyfrowanego jest zastępowana literą występującą w alfabecie trzynaście pozycji przed nią (czyli np. K zamieniamy na X).

Podobnie jak z przypadku szyfru Cezara w trakcie kodowania znak z tekstu jawnego jest kwalifikowany do jednej z trzech grup : małe litery, wielkie litery lub pozostałe znaki. Znaki należące do ostatniej grupy nie są kodowane.

Jako ciekawostkę podać należy fakt, że algorytm szyfrowania szyfrem ROT-13 używany był w grupach dyskusyjnych do szyfrowania niecenzuralnych wyrazów. Szyfr ten, jak każdy szyfr podstawieniowy, nie zapewnia należytego bezpieczeństwa zaszyfrowanych danych.

Przykład :

 
program rot13;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
    ciag : string;
    wynik : string;
    c, d, i : integer;
 
begin
    write('Podaj ciag znakow do zaszyfrowania (tylko male litery, bez polskich znakow) : ');
    readln(ciag);
    d:= 13;
    for i := 1 to length(ciag) do begin
        c := ord(ciag[i]);
        if (c >= 97) and (c <= 122) then begin
            c := c + d;
            if c > 122 then c := c - 26;
            if c < 97 then c := c + 26;
            wynik := wynik + char(c);
 
        end;
    end;
    writeln(wynik);
    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ÓĆ