Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
1.10.1 Exemplo: cifra de César
Há um antigo método de criptografia conhecido como cifra de César, que se acredita
ter sido usado por Júlio César para transmitir mensagens secretas. A cifra de César
consiste em trocar as letras do alfabeto por deslocamento, de maneira a tornar as palavras
irreconhecíveis. Se dermos às letras índices iniciando com a → 0; b → 1; · · · ; z → 25, uma
cifra de César faria a substituição de cada letra com índice i por outra de índice i + k
mod 26.
A cifra de César pode ser trivialmente quebrada por força bruta quando se conhece
o método usado (há apenas 25 tentativas possíveis). Mesmo quando o método não é
conhecido, é possível detectá-lo e decifrar a mensagem através de análise de frequência
de letras. Ainda assim cifras de César ainda são usadas em algumas situações.
Implementaremos uma cifra de César como exemplo de uso dos procedimentos
Scheme para tratamento de strings.
O procedimento string-map recebe um procedimento proc que transforma caracteres,
uma string, e retorna uma nova string onde os caracteres são o resultado da aplicação de
proc.
( define string-map
( lambda ( proc s)
( let ((l ( string- > list s )))
( let (( new-list ( map proc l )))
( list- > string new-list )))))
As mensagens que cifraremos serão todas convertidas para caixa alta. Definimos
então um procedimento string-upcase.
( define string-upcase
( lambda (s)
( string-map char-upcase s )))
Versão Preliminar
Caracteres podem ser transformados em números inteiros usando o procedimento
char->integer. Para cifrar (ou “traduzir”) um caracter, obtemos o índice do caracter A,
subtraímos do caracter a ser cifrado e somamos um número (módulo 26, para que o
resultado seja ainda um caracter alfabético).
Os procedimentos char->ceasar-idx e ceasar-idx->char traduzem caracteres para
índices entre zero e 25.
42
[ 27 de outubro de 2010 at 15:47 ]