Ағындық шифрлар

Формула

(әріп) = ((әріп) + N) mod 43

Мұнда: 1 ≤ N < 43, N — шифрлеу кілті.

Шифрлеу қадамдары

1. Түйінді сөз (кілт) таңдалады. Мысалы: «ақпарат».
2. Ашық мәтіннің астына кілт символдары жазылады. Егер кілт қысқа болса, ол хабар толық біткенше қайталанады.

   (*) Ашық мәтін (мысал):

   О Р Ы Н А Л М А С Т Ы Р У Ш И Ф Р І

   (**) Кілт (қайталанған):

   А қ п а р а т а қ п а р а т а қ п а

3. Шифрмәтін символы Вижинер кестесі бойынша анықталады: (*) символы — жол, (**) символы — бағана; қиылысындағы таңба — нәтиже.

Код үзіндісі (Object Pascal)

const Lmax=100;
type TArr=array[1..Lmax] of integer;

{Мәтінді шифрлеу:
 Кіру параметрі: txt — негізгі мәтін, password — кілт
 Нәтиже: шифрленген мәтін}
function SH_TO(txt:string;password:TArr):string;
var i,l:integer;
    shifr:array[1..Lmax] of char;
    s:string;
begin
  l:=length(txt);
  for i:=1 to l do shifr[password[i]]:=txt[i];
  for i:=1 to l do s:=s+shifr[i];
  result:=s;
end;

{Шифрді ашу:
 Кіру параметрі: txt — шифрленген мәтін, password — кілт
 Нәтиже: бастапқы мәтін}
function SH_FROM(txt:string;password:TArr):string;
var i,l:integer;
    s:string;
begin
  l:=length(txt);
  for i:=1 to l do s:=s+txt[Password[i]];
  result:=s;
end.