Just another Perl shrine PerlMonks

### The golf course looks great, my swing feels good, I like my chances (Part III)

by eyepopslikeamosquito (Chancellor)
 on May 06, 2009 at 07:13 UTC Need Help??

```<?while(\$c=ord(fgetc(STDIN)))\$t+=\$n-2*\$n*(+\$n<(\$n=2627%\$c/8%8 .E. 7124
+8%\$c%5));echo\$t?>
```
```<?while(\$c=1230%ord(fgetc(STDIN)))\$t+=\$n-2*\$n*(+\$n<(\$n=(41%\$c&5).E.\$c%
+9%4));echo\$t?>
```
```<?while(\$c=68040%ord(fgetc(STDIN))/2)\$t+=\$n-2*\$n%+\$n=9385%\$c.E.\$c/8?><
+?=\$t;
```
```<?while(+\$c=md5(XXX.fgetc(STDIN)))\$t+=\$n-2*\$n%+\$n=5%\$c[2].E.\$c%4?><?=\$
+t;
<?while(+\$c=md5(XXXXX.fgetc(STDIN)))\$t+=\$n-2*\$n%\$n="2E\$c"*1%1999?><?=\$
+t;
<?while(8^\$c=md5(fgetc(STDIN).XXXX))\$t+=\$n-2*\$n%\$n="5E\$c"*1%4999?><?=\$
+t;
<?for(;8^\$c=md5(fgetc(STDIN).XXXX);\$t+=\$n-2*\$n%\$n="5E\$c"*1%4999);echo\$
+t;
```
```<?
\$m = chr(111).chr(178).chr(219).chr(246).chr(172).chr(209);
...
echo "V " . md5(\$m."V") . "\n";
echo "I " . md5(\$m."I") . "\n";
?>
```
```M 999ba98d67a9a95e1c8a693fe4db176a
...
X 9ea85b3084eb5939c9f74677aa590322
V 04e9dd3542beb93d04d6d225620a814e
I d445ba785ca91c9a00b361817abafac5
```
```<?while(A<\$c=fgetc(STDIN))\$t+=\$n-2*\$n%\$n=md5(XXXXXX.\$c)%1858+1?><?=\$t;
```

Create A New User
Node Status?
node history
Node Type: perlmeditation [id://762180]
Approved by Corion
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2017-06-25 04:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
How many monitors do you use while coding?

Results (564 votes). Check out past polls.