#!/usr/bin/perl -w # how to (ab)use substr use strict; my $pi='3.14159210535152623346475240375062163750446240333543375062'; substr ($^X,0)= substr ($pi,-6);map{ substr ($^X,$.++,1)=chr( substr($pi,21,2)+ substr($pi,$_,2))}(12,28,-18,-6,-10,14);map{$^O=$"x( substr ($pi,-5,2)); substr ($^O,sin(++$a/8)*32+ substr ($pi,-2)/2+1,1)=$_; substr ($^O,sin($a/4)*( substr ($pi,2,2))+ substr ($pi,-7,-5)-1,1)=$_;print"$^O$/";eval($^X.('$b,'x3). substr ($pi,-3,1).'.'. substr ($pi,9,2));}(map{chr($_+ substr ($pi,21,2))}( substr ($pi,8)x3)=~/../g);
|
---|
Replies are listed 'Best First'. | |
---|---|
SPOILER! (Guildenstern)Re: How to (ab)use substr
by Guildenstern (Deacon) on May 03, 2001 at 21:25 UTC | |
(Ovid - We're doomed) Re: How to (ab)use substr
by Ovid (Cardinal) on May 03, 2001 at 23:15 UTC | |
Re: How to (ab)use substr
by Sinister (Friar) on May 03, 2001 at 15:19 UTC | |
by Chmrr (Vicar) on May 03, 2001 at 16:05 UTC | |
by jcwren (Prior) on May 03, 2001 at 16:48 UTC | |
by premchai21 (Curate) on May 03, 2001 at 20:19 UTC | |
by premchai21 (Curate) on May 04, 2001 at 08:06 UTC | |
Re: How to (ab)use substr
by bobione (Pilgrim) on May 04, 2001 at 12:33 UTC | |
Re: How to (ab)use substr
by damian1301 (Curate) on May 03, 2001 at 23:36 UTC | |
Re: How to (ab)use substr
by JSchmitz (Canon) on May 03, 2001 at 23:00 UTC | |
Re: How to (ab)use substr
by jens.joseph (Initiate) on Oct 08, 2008 at 11:20 UTC |
Back to
Obfuscated Code