Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Crypto Japh

by secret (Beadle)
on Dec 06, 2005 at 17:03 UTC ( #514553=note: print w/ replies, xml ) Need Help??

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
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://514553]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2014-08-29 09:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (277 votes), past polls