go ahead... be a heretic PerlMonks

(how work?) Re: 7 lines of Magic

 on Mar 07, 2001 at 20:32 UTC ( #62777=note: print w/replies, xml ) Need Help??

```\$_='while(read+STDIN,\$_,2048){\$a=29;\$c=142;if((@a=unx"C*",\$_)[20]&48){
+\$h=5;
\$_=unxb24,join"",@b=map{xB8,unxb8,chr(\$_^\$a[--\$h+84])}@ARGV;s/...\$/1\$&
+/;\$d=
...
,\$_=(map{\$_%16or\$t^=\$c^=(\$m=(11,10,116,100,11,122,20,100)[\$_/16%8])&11
+0;\$t
^=(72,@z=(64,72,\$a^=12*(\$_%16-2?0:\$m&17)),\$b^=\$_%64?12:0,@z)[\$_%8]}(16
+..271))
[\$_]^((\$h>>=8)+=\$f+(~\$g&\$t))for@a[128..\$#a]}print+x"C*",@a}';s/x/pack+
+/g;eval
```
```\$_='while(read+STDIN,\$_,2048){\$a=29;\$b=73;\$c=142;\$t=255;@t=map{\$_%16or
+\$t^=\$c^=(
\$m=(11,10,116,100,11,122,20,100)[\$_/16%8])&110;\$t^=(72,@z=(64,72,\$a^=1
+2*(\$_%16
...
d=unxV,xb25,\$_;\$e=256|(ord\$b[4])<<9|ord\$b[3];\$d=\$d>>8^(\$f=\$t&(\$d>>12^\$
+d>>4^
\$d^\$d/8))<<17,\$e=\$e>>8^(\$t&(\$g=(\$q=\$e>>14&7^\$e)^\$q*8^\$q<<6))<<9,\$_=\$t[
+\$_]^
((\$h>>=8)+=\$f+(~\$g&\$t))for@a[128..\$#a]}print+x"C*",@a}';s/x/pack+/g;ev
+al
```

Create A New User
Node Status?
node history
Node Type: note [id://62777]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2018-02-24 04:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
When it is dark outside I am happiest to see ...

Results (310 votes). Check out past polls.

Notices?