Tilted Forum Project Discussion Community - View Single Post - [perl] OBBBBB-fuscation!

ratbastid · 10-15-2003, 07:32 AM

And here's "In Reverse Around your Ass..."

<code>sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)}
sub r{$b=shift;@b=split('',$b);foreach $l(@b){unshift @o,${\t($l)}};$o=join('',@o)}
$b='sfldbJ msfR sfiupoC utvL';
print "${\r($b)}\n";</code>

Okay, now what 'choo got???

10-15-2003, 07:32 AM	#3 (permalink)
ratbastid Darth Papa Location: Yonder	And here's "In Reverse Around your Ass..." <code>sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)} sub r{$b=shift;@b=split('',$b);foreach $l(@b){unshift @o,${\t($l)}};$o=join('',@o)} $b='sfldbJ msfR sfiupoC utvL'; print "${\r($b)}\n";</code> Okay, now what 'choo got??? Last edited by ratbastid; 10-15-2003 at 07:35 AM..