B.pm: Amusing bit o' Perl
Jim Meyer
Jim.Meyer at disney.com
Thu Aug 12 15:42:23 CDT 1999
Here's an obfuscation that's pretty amusing:
#/usr/bin/perl
<BLINK> ;for (74,1970500640,1634627444,1751478816,1348825708,543711587,
1801810465){for($x=1<<1^1;$x>=1>>1;$x--) {$q=hex ff,$r=oct($x=~s,\d,$&*
10,e,$x),$x/=1/.1,$q<<=$r,$s.=chr (($_&$q)>>$r),$t++}}while($= ||= !$|)
{$o=$o?$?:$/;$|=1;print $o?$s:$"x$t if$;;print"\b"x$t;sleep 1} </BLINK>
...courtesy of Dennis Moore, rainking at feeding.frenzy.com
--j
--
Jim Meyer (jim.meyer at disney.com) My object in life is to unite
Production Software Engineer my avocation with my vocation
Walt Disney Feature Animation as my two eyes are one in sight
FAN 3450 / x8489-3027 / mc: 8959 --Robert Frost
----------------------------------------------------------------------------
>> To unsubscribe: send "unsubscribe burbank-pm-list" to majordomo at pm.org <<
>> To get a human's attention: send email to owner-burbank-pm-list at pm.org <<
>> To become independently wealthy: buy low, sell high. <<
More information about the Burbank-pm
mailing list