This is my first obfu, and my first JAPH, so it's prolly not really hard to crack. Go gentle on the --! :)
Any tips quite welcome
feanor_269
#!/usr/bin/perl -w use strict; my@JAPH = ('j','u','s','t',' ', 'a','n','o','t','h','e','r', ' ','p','e','r','l',' ', 'h','a','c','k','e','r',"\n"); @JAPH = sort(@JAPH); l('%%%%%%%%%%%%%');l('%%%%%%%%%%%%%%%%%%%%%%%%%'); l('#####################');l('%%%%%%%%%%%%%%%%%%%%%%%'); l('#');l('%%%%%');l('###############');l('%%%%%%%%%%%%%%%%%'); l('#######################');l('%%%%%%%%%%%');l('#######'); l('%%%%%%%%%%%%%%%%%%%');l('%%%');l('#################'); l('%%%%%%%%%');l('###################');l('%%%%%%%%%%%%%%%'); l('###');l('###########');l('#####');l('%%%%%%%'); l('#############');l('#########');l('%%%%%%%%%%%%%%%%%%%%%');l('%'); sub l{my$s={'#'=>0,'%'=>1};my@t=split/ */,$_[0];my$l=@t; print @JAPH[$l-$s->{$t[0]}];}
Any tips quite welcome
feanor_269
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: first obfu japh
by Mr. Muskrat (Canon) on Apr 21, 2003 at 16:09 UTC |
Back to
Obfuscated Code