miércoles, abril 17, 2002

Códigos secretos


#! /usr/bin/perl
@a=("X","S","V");
@b=(Anps, Pbdjfodjb, Sjodfsjebe, Tfsovsb);
$c = "Lbt ". @b ." wjsu" . "veft rvf if bqsfoejep dpou" . "jhp\n";
$c =~ y/b-y/a-z/; @d = @a[0,2]; $print=@b/@b; $e = "Jbwjfs Cbnbdip.";
print("@a[(@b cmp @b)+$print] @d:\n");
print("$c");
for($i=0; $i<@b; $i++){
$b[$i] =~ y/b-y/a-z/;
if($b[$i]eq$b[-1])
{print("y $b[$i].");}
else
{print("$b[$i], ");}
}
$e =~ y/b-y/a-z/;
print("\n\t\t -- $e\n");

0 Comentarios:

Publicar un comentario

Suscribirse a Comentarios de la entrada [Atom]

Vínculos a esta publicación:

Crear un vínculo

<< Página Principal