Шифр Трисемуса

[marta1990]

Срочно нужен исходник шифра Трисемуса!!

[Zer0]

   const alphabet:array[1..4,1..8] of char =
        (('Б', 'А', 'Н', 'Д', 'Е', 'Р', 'О', 'Л'),
         ('Ь', 'В', 'Г' ,'Ж', '3', 'И', 'Й', 'К'),
         ('М', 'П', 'С', 'Т', 'У', 'Ф', 'X', 'Ц'),
         ('Ч', 'Ш', 'Щ', 'Ы', 'Ъ', 'Э', 'Ю', 'Я'));
         
//------------------------------------------------------------------------------
Function encode(c:char):char;
    var i,j:integer;
Begin
    for i:=1 to 4 do
        for j:=1 to 8 do
            if (c = alphabet[i][j]) then
            Begin
                if (i <> 4) then encode:=alphabet[i+1][j]
                else encode:=alphabet[1][j];
            End;
End;
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
Function decode(c:char):char;
    var i,j:integer;
Begin
    for i:=1 to 4 do
        for j:=1 to 8 do
            if (c = alphabet[i][j]) then
            Begin
                if (i <> 1) then decode:=alphabet[i-1][j]
                else decode:=alphabet[4][j];
            End;
End;
//------------------------------------------------------------------------------
     var s:string;
         i:integer;
begin
  s:='ВЫЛЕТАЕМПЯТОГО';
  WriteLn(s);
 
  for i:=1 to length (s) do
    s[i]:=encode(s[i]);
  WriteLn(s);
 
  for i:=1 to length (s) do
    s[i]:=decode(s[i]);
  WriteLn(s);
  Readln;
end.

или вот http://garvs.narod.ru/trisemus_cpp.htm

[Zer0]

а вообще - http://g.zeos.in/?q=%D1%88%D0%B8%D1%...B0%D0%BB%D1%8C

[VIK_aka_TOR]

вот готовая на С++ Builder...