[Rio-pm] [Fun - passa tempo] Cifra de Vigenère

Tiago Peczenyj tiago.peczenyj em gmail.com
Sábado Novembro 9 19:13:10 PST 2013


divertido

agora saca so como vc pode fazer "diferente""

1 ao inves de

print "PALAVRA: " . $ARGV[0] . "\n";

podes fazer

say "PALAVRA:  $ARGV[0]";

2- usa funcao isalpha pode ser simplificada (return 1 if ... )

sub isalpha { chr($_[0]) =~ /[a-zA-Z]/ }

3- use map :)

ao inves de

        my @b = split (//, $c);
        for (my $i = 0; $i < @b; $i++){
                $b[$i] = ord $b[$i];
        }

podes fazer

return map { ord } split //, $c;

agora é importante vc fazer um script de teste, onde vc chama as funcoes de
encode e decode na mão e testa os valores. assim vc pode refatorar o script
sem medo de errar alguma coisa.


2013/11/10 Aureliano Guedes <guedes_1000 em hotmail.com>

> Fiz um algoritimo para encodar e decodar alguma coisa codificada de acordo
> com a Cifra de Vigenère.
>
> Cheio de POG's mas a titulo só de distração.
>
> http://pastebin.com/ZzT9zZGb
>
> Exemplo:
> Texto:ATACARBASESULChave: LIMAOLIMAOLIMTexto cifrado:LBMCOCJMSSDCX
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Tiago B. Peczenyj
Linux User #405772

http://about.me/peczenyj
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20131110/282e3b2e/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm