V tejto časti nájdete šifry vytvorené v programe pascal:

Cézarova šifra:

program cezar;

uses crt;

var s: string; i: integer;

begin

writeln ('Zadaj svoje meno');

readln (s);

for i:= 1 to length (s) do

begin

s[i]:= chr(((ord(s[i])-97+3)mod 26)+97)

end;

writeln (s);

end.

Transpozícia:

program trans;

uses crt;

var s: string; pismeno: char; i: integer;

begin

 writeln ('Zadaj svoje meno');

 readln (s);

 for i:= 1 to (length (s) div 2) do

  begin

   pismeno:= s[i*2];

   s[i*2]:= s[i*2-1];

   s[i*2-1]:= pismeno;

  end;

 writeln (s);

end.