My First JAPH

$p='/sfldbimsfQsfiupobutvK';@s=(8,12,19);for ($i=length($p)-1;$i>=0;$i
+--) {$s = substr $p, $i, 1;$x = chr ( (ord ($s))-1 );print $x;foreach
+ $c (@s) {print ' ' if ($i eq $c-1);}}
[download]

DoctorEternal

Comment on My First JAPH Download Code

Replies are listed 'Best First'.
Re: My First JAPH by muba (Priest) on Mar 30, 2004 at 15:30 UTC
Nice approach, although it isn't really obscure code. Neither is mine, probably, but this one doesn't use any strange or rarely used features or whatsoever. It's quite straight forward :)	[reply]

Back to Obfuscated Code