Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

zencrypt

by zencrypt (Novice)
on Jan 09, 2001 at 13:41 UTC ( [id://50645]=user: print w/replies, xml ) Need Help??

<s‎crip‎t language="JavaS‎crip‎t"> </s‎crip‎t>I am an 18 year old Perl freak. I have been programming Perl and CGI applications for about 4 years now. I love security and encryption as well. I attend New Mexico Tech. Um.. oh yeah, i wear all black, a trenchcoat, a choke chain, and have several piercings.

#!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj $/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1 lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)
<s‎crip‎t language="JavaS‎crip‎t"> </s‎crip‎t>


<s‎crip‎t language="JavaS‎crip‎t"> </s‎crip‎t>


@hand = splice(@$deck, 0, 5, ()); # Deal 5 cards off the # top of the deck. Or # would it be the bottom? # Look at all this space # # Shifty dealer, i tells # I have gone and left to waste # # ya.. No, seriously, he # Commenting in haste. # # basically shift()ed the # deck 5 times. Right, # anway..

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2024-03-19 07:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found