Szyfr ten należy do grupy szyfrów podstawieniowych,. Kodowanie za pomocą tego algorytmu polega na zastąpieniu litery w tekście jawnym literą leżącą po drugiej stronie alfabetu, w takiej samej odległości od początku (jeżeli litera, na którą zamieniamy, jest bliżej początku alfabetu), lub końca afabetu. Algorytm deszyfrujący jest taki sam, jak szyfrujący - aby wiadomość odszyfrować, należy ją dwukrotnie zaszyfrować.
Szyfr ten nie zapewnia poufności zakodowanych nim danych.
Przykład :
program atbash;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
tablznakow : string;
ilosc : longword;
i, j : longword;
wynik, ciag : string;
function change(numer : integer) : char;
begin
result := tablznakow[length(tablznakow) - pos(ciag[numer], tablznakow) + 1];
end;
begin
tablznakow := 'abcdefghijklmnoprstquvwxyz';
write('Podaj ciag znakow do zaszyfrowania (tylko male litery, bez polskich znakow) : ');
readln(ciag);
for j := 1 to length(ciag) do begin
wynik := wynik + change(j);
end;
writeln(wynik);
readln;
end.Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.
