Another one I've been playing with. Perhaps a little silly, but hey -- it's obfuscated, right?
Nevermind. Just don't stare at the result for too long ;-)
I don't do win32, so my apologies to all the windows users if this script fails to execute correctly -- I can't test whether that 'system(cls)' part works. If everything else fails, add any non-zero argument to the command line.
Update: just noticed (and removed) an unnecessary variable in the code. Thank you all for being considerate enough not to point that mistake ;-)
Update 2: added the 'require' line. Thanks, ChemBoy!
#!/usr/bin/perl -w # -w is good for you use strict; # or die slow, horrible death while debugging require 5.005; # for '{} for()' ;-) my $japh; $_='$.=q:SUB%SUB{};sub%SUB{SUB{};}sub%SUB{$_[0]->{V}=$_[1];}sub% SUB{$_=$_[0]->{V}x20;$\=++$_[0]->{A};s/\s/./g;my@t=split//;pop;p ush@_,map{"%"x60}(1..20);$/=0;for(0..600){$\+=0.045;($,,$.)=(30+ 2*$/*sin$\,%10-%$/*cos$\);(!@t)&&last;substr($_[$.],$,,1)%=~%s/% /shift@t/e%unless((%$,<0)or(%$,>=%60)or($.<%0)or($.>=%20));%$/+= 0.03;}%$\=%$/="";join"\n",@_;}SUB%($japh,"p");%:;$.=~s/SUB/$_/fo r%map{join%"",map{chr%(%ord($_)-1)}%split//}qw{%qbdlbhf%q<%UJFTD BMBS%cmftt%TUPSF%GFUDI%ujf%}%;$_=$.;';s/\s//g;s/%/ /g;eval;eval; $japh="Just another perl hacker."; for ( 0..1000 ) { $ARGV[0] or ($^O eq 'MSWin32') ? system('cls') : print `clear`; print "$japh\n"; }
-marcink
|
---|
Replies are listed 'Best First'. | |
---|---|
(jeffa) Re: 1001 JAPHs
by jeffa (Bishop) on Jun 22, 2001 at 02:23 UTC | |
by marcink (Monk) on Jun 22, 2001 at 19:17 UTC | |
Re: 1001 JAPHs
by mpolo (Chaplain) on Jun 21, 2001 at 10:45 UTC | |
Re: 1001 JAPHs
by Brovnik (Hermit) on Jun 21, 2001 at 12:58 UTC | |
Re: 1001 JAPHs
by VSarkiss (Monsignor) on Jun 21, 2001 at 19:11 UTC | |
Re: 1001 JAPHs
by Superbabeteam (Initiate) on Jun 23, 2001 at 08:02 UTC | |
Re: 1001 JAPHs
by beretboy (Chaplain) on Jun 21, 2001 at 23:51 UTC | |
Re: 1001 JAPHs
by Malkavian (Friar) on Jun 26, 2001 at 18:06 UTC |
Back to
Obfuscated Code