Foro - Perl en Español

por **BigBear** » 2014-02-09 14:26 @643

Tras la inesperada y poco práctica victoria en el anterior reto me veo forzado a proponer un reto debido a la repentina nueva regla de Aceitunas de que el que ganara propusiera un nuevo reto.

El reto consiste en realizar un script que pueda realizar el cifrado y descifrado Cesar de un string que contiene una palabra cualquiera.

¿ Qué les parece ?

# Cifrado cesar
# Aceitunas
# http://www.perlenespanol.com
 
use v5.16;
 
my $cadena = "ABCDZ";
 
say Cifrado_Cesar($cadena,1);
 
exit;
 
sub Cifrado_Cesar # Cifrado_Cesar(char * cadena, int CifrarDescifrar)  -> Cifrar 1, descifrar 0.
{
    my @c = split(//,$_[0]);
 
    for my $i (0..$#c)
    {
        if ($_[1] == 1)
        {
            $c[$i] = ord($c[$i]) + 3;
        }else{
            $c[$i] = ord($c[$i]) - 3;
        }
                
        if ($c[$i] > 90 || $c[$i] < 65)
        {
            if ($_[1] == 1)
            {
                $c[$i] = chr($c[$i] - 26);
            }else{
                $c[$i] = chr($c[$i] + 26);
            }
        }else{
            $c[$i] = chr $c[$i];
        }
    }
    
    return join("",@c);
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

http://es.wikipedia.org/wiki/Cifrado_C%C3%A9sar

Creo que se puede hacer con una expresión regular, voy a probar.

por **BigBear** » 2014-02-09 15:41 @695

Yo acabo de hacer este :

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# !usr/bin/perl
# Cifrado Cesar
# Escrito por Doddy H para el reto de perlenespanol
 
$texto = "hola hola";
#$texto = "krod krod";
 
print cifrado_cesar($texto);
#print descifrado_cesar($texto);
 
sub cifrado_cesar {
 
my @re;
 
@letras = split (//,$_[0]);
 
for my $letra(@letras) {
        
if($letra ne " ") {
        
$letrafinal = chr(ord($letra)+3);
 
$letrafinal=~s/{/a/;
$letrafinal=~s/\|/b/;
$letrafinal=~s/}/c/;
 
push(@re,$letrafinal);
 
} else {
push(@re," ");
}
}
 
return @re;
 
}
 
sub descifrado_cesar($texto) {
 
my @re;
 
@letras = split (//,$_[0]);
 
for my $letra(@letras) {
 
if($letra ne " ") {
 
$letrafinal = chr(ord($letra)-3);
 
$letrafinal=~s/\^/x/;
$letrafinal=~s/_/y/;
$letrafinal=~s/`/z/;
 
push(@re,$letrafinal);
 
} else {
push(@re," ");
}
}
 
return @re;
        
}
 
# The End ?
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2014-02-09 17:48 @783

Cambiar unas letras por otras, es lo que en Perl llamamos 'transliteración', y para ello contamos con la función tr:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $texto = "Los celtas atacaron de madrugada";
 
## codificación
$texto = lc $texto;           # todo a minúsculas
$texto =~ tr/a-z/k-za-j/;
say $texto;                   # vyc movdkc kdkmkbyx no wknbeqknk
 
## descodificación
$texto =~ tr/k-za-j/a-z/;
say $texto;                   # los celtas atacaron de madrugada
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2014-03-18 10:28 @478

Bueno, teóricamente parece que ganó aceitunas

por **Aceitunas** » 2014-03-28 16:38 @735

A ver si saco un rato y pongo otro, que últimamente estoy muy liado...

por **BigBear** » 2014-03-29 13:30 @604

No te preocupes, tenés tiempo, tenés hasta antes de la medianoche de este día :twisted:

Foro - Perl en Español

[RETO] Cifrado Cesar

[RETO] Cifrado Cesar

Publicidad

Re: [RETO] Cifrado Cesar

Re: [RETO] Cifrado Cesar

Re: [RETO] Cifrado Cesar

Re: [RETO] Cifrado Cesar

Re: [RETO] Cifrado Cesar

Re: [RETO] Cifrado Cesar

¿Quién está conectado?