Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

The cube

by Gloom (Monk)
on Jan 24, 2001 at 17:41 UTC ( #53965=obfuscated: print w/replies, xml ) Need Help??

Please monks, be indulgent, it's my first (KUBIK) attempt...
#!/usr/bin/perl {{{{{{{{{{{{{{{{{{{{{{{ $a=0;print pack"C*",map { $a += $_ ; } qw( 74 43 -2 1 -84 33 45 1 5 -12 -3 13 -104 70 21 13 -6 -76 44 35 7 -17 13 -104 22 63 -63 0 63 -63 -22 37 -15 60 -45 -15 60 -82 82 -44 -16 16 -16 15 -37 22 60 3 -51 3 -37 22 0 60 -45 -37); }}}}}}}}}}}}}}}}}}}}}}}

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://53965]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (1)
As of 2022-01-19 01:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (54 votes). Check out past polls.

    Notices?