Desafio 01 - PROGRAMA CRIPTOGRAFIA

Crie um programa de criptografia de mensagem de texto.

O Programa deve ter um menu onde o usuario escolhe: 1- criptografar 2- descriptografar 3- sair do programa.
A mensagem de texto criptografada deve virar letras ou números.
Utilize a linguagem Pascal ou C


- Para autores do blog: assim que terminar o programa coloquem o código nesse post, náo esquecendo de em cima do código colocar seu nome.

- Para visitantes: mande seu codigo nos comentários do post.

*lembrando que o programa PODE ter restrições como: não usar letras maiusculas ou números na mensagem a ser criptografada.

-------------------------------------------------------------------------------------------

Exemplo básico de criptografia: Inverter a frase - em pascal com explicações

Program Criptografia ;
var f,fc:string; //variavel f é a frase digitada, fc vai ser a frase criptografada
i,j,p:integer; //variaveis pra auxiliar as posições
Begin //inicio do programa
Writeln('Digite a Frase');
Readln(f); //f vai receber a frase
j:=length(f); //contar quantos caracteres tem na frase
p:=j;
i:=1;
Repeat
fc[p]:=f[i]; //a posição p da frasecrip vai receber a letra que tiver na posicao i da frase
p:=p-1;
i:=i+1;
Until (i=j+1); //até o fim da frase
For i:=1 to j do
begin
Write(fc[i]); //escrever a frase criptografada na tela
end;

End. //fim do programa