On the eve, of what I hope will be my approach to true monkhood,
I humbly submit my first obfuscation,
with many thanks to those who
have assisted me with the Tao of Perl. I've tested it on a Win 2000
system.
@}=(74,65, 117, 48,115,39, 116, 104, 32, 55, 65, 18, 110, 72, 111, 01, 116, 56, 104, 49, 101,68,114, 23, 32,50,80,110, 101,66, 114, 118, 108, 40, 32, 122, 72, 59, 97, 32, 99, 62, 107, 84, 101, 59, 114, 61, 32, 32, 32); $i=0; foreach$-(@}) {if( ($i%((2*2)/2) )== (0/1)){print chr( $-);}$i=$i+( ((5* 2)/5)/2);}
|
|---|