It would make good sense to pipe this to lpr or something. Obfuscating a stack language is hard!$q=q((pete gamache));$_=fpeoiaglclivdlcgglvqhcbwclemhcbwflclvqivcrgqhc +bwafak ;sub A{for(($a=1)..pop){$a*=$a*=$a+$a*$a;$a%=999999}$a%128}sub b{@A=a. +.pop}$ qq.=chr A(uc b($1))while s/(..)//;$qq="($qq)";&z;print"$q $qq 14 /Cour +ier "; sub c{$x=$_[0];$x-=6.28until$x<6.28;my$a;for(0..10){$a+=($x**(2*$_)*(- +1)**$_ )/_(2*$_)}$a*2**(-$_[0]/8)}sub _{$_[0]<1?1:$_[0]*_($_[0]-1)}print join + (' ', '66 666 translate 510 0 moveto 0 dup dup lineto 50 moveto',map{$_,c($_ +/8)*50 ,'lineto'}(0..444)),' stroke findfont exch scalefont setfont 222 -30 m +oveto' ,' show 222 20 moveto show showpage';sub z{$q=~s/(g.+E)/$1, $1\@gmail. +com/i}
This japh incorporates my last one. Click here if you'd like to see the output. This is a PostScript adaptation of my old ascii email signature...
|
|---|