Шифр атбаш

[Maserati]

Помогите сделать программу,чтобы было шифрование методом Атбаш.
Сам алфавит "A B C D E F G H I K L"
Нужно чтобы пользователь сам вводил какое то слово из данных символов.
Например ввожу "ACKL" а вывести должен "KIBA"

[Serge_Bliznykov]

внизу похожие темы. там есть готовый код.

[Maserati]

Ничего для паскаля не нашел.
Есть вот такой вариант,но не знаю как переделать, чтобы самому вводить сообщение.

Const
alf = 'abcdefg789';
N   = Length(alf); 
Function Atbash(S : String) : String;
Var i : Byte;
Begin
For i:=1 to Length(S) do
If Pos(S[i],alf)>0 then S[i]:=alf[N-Pos(S[i],alf)+1] else Continue;
Atbash:=S;
end;
Begin
Writeln(Atbash('what you see is what you get'));
Writeln(Atbash(alf));
Writeln(Atbash(Atbash(alf)));
end.

____
код нужно оформлять с помощью тегов форматирования
Модератор

[Serge_Bliznykov]

Сообщение от Maserati

Ничего для паскаля не нашел.

как это?!
нижние две ссылочки:

http://programmersforum.ru/showthread.php?t=2819

http://programmersforum.ru/showthread.php?t=71681

Delphi - это тоже такой "Паскаль", только продвинутый

Сообщение от Maserati

Есть вот такой вариант,но не знаю как переделать, чтобы самому вводить сообщение.

Const
  alf = 'abcdefg789';
  N   = Length(alf); 

Function Atbash(S : String) : String;
Var i : Byte;
Begin
  For i:=1 to Length(S) do
     If Pos(S[i],alf)>0 then 
           S[i]:=alf[N-Pos(S[i],alf)+1] else Continue;
  Atbash:=S;
end;
Begin
  Writeln(Atbash('what you see is what you get'));
  Writeln(Atbash(alf));
  Writeln(Atbash(Atbash(alf)));
end.

так, что ли?

Const
  alf = 'abcdefg789';
  N   = Length(alf); 

Function Atbash(S : String) : String;
Var i : Byte;
Begin
  For i:=1 to Length(S) do
     If Pos(S[i],alf)>0 then 
           S[i]:=alf[N-Pos(S[i],alf)+1];
  Atbash:=S;
end;

var S : string;
Begin
  Write('Input your string: '); ReadLn(S);
  Writeln('coded: ', Atbash(S));
  Writeln('decoded: ', Atbash(Atbash(S)));
end.

//писал тут, на форуме, не проверял...

[Maserati]

Сообщение от Serge_Bliznykov

так, что ли?

Const
  alf = 'abcdefg789';
  N   = Length(alf); 

Function Atbash(S : String) : String;
Var i : Byte;
Begin
  For i:=1 to Length(S) do
     If Pos(S[i],alf)>0 then 
           S[i]:=alf[N-Pos(S[i],alf)+1];
  Atbash:=S;
end;

var S : string;
Begin
  Write('Input your string: '); ReadLn(S);
  Writeln('coded: ', Atbash(S));
  Writeln('decoded: ', Atbash(Atbash(S)));
end.

//писал тут, на форуме, не проверял...

Угу,спасибо большое.