Help for this page

Select Code to Download


  1. or download this
    @keys=qw'79 11 34 69 41 27';
@list_to_crypt = split/ /, 'writing Library. Building consider TO($FOO
+) *binary*' ;
@result=map{ crypt ($_.' ', shift @keys)  } @list_to_crypt ;
  2. or download this
    79jUStLZ6Ck9c
11anOTHZ33A12
...
69pERLsGUZYU2
41HAcKS9/lrEQ
27eRTYtC6a5HI
  3. or download this
    @matcher =  qw'2 4 4 2 5 4' ;
foreach $crypted (@result ) {
...
$crypted  =~/..(.{$x}).*/g ;
push @final, $1 ;
}
  4. or download this
    jUSt
anOTH
...
pERL
HAcK
eR