Threaded JAPH

[K_M_McMahon]

This might not run right without the latest perl version (with thread support)

#!/usr/bin/perl -w
use strict;use threads;use Time::HiRes('sleep');
$| = 1;my @j=('creaJ','klrnu','e  os','rHPtt','!aeh ');
my (%d);foreach (@j){$d{$_}=threads->create('x',$_);}foreach (@j){my
$x=$d{$_}->join();}sub x{my $i=shift;my $t;while($t=substr($i,-1,1)){
print $t;chop($i);sleep(.1);}return($_);}

[K_M_McMahon]

Just found out that this doesn't run properly on a Mac run OS X 10.3.9 (running perl 5.8.1 with ithreads support). To make it run properly Remove the Hi-Res part. It runs slower, but at least it works! Anyone else have problems with it printing out of order (and on what OS/Perl version)?


#!/usr/bin/perl -w
use strict;use threads;
$| = 1;my @j=('creaJ','klrnu','e  os','rHPtt','!aeh ');
my (%d);foreach (@j){$d{$_}=threads->create('x',$_);}foreach (@j){my
$x=$d{$_}->join();}sub x{my $i=shift;my $t;while($t=substr($i,-1,1)){
print $t;chop($i);sleep(1);}return($_);}

[cristian]

- With all you respect
- Modificated Obfu
- More Obfuscated and few Chars && Vars

use threads;use Time::HiRes 'sleep';
$|=1;@_=('creaJ','klrnu','e  os','rhPtt',',aeh ');
push@,,threads->create('_',$_)for@_;
$_->join()for@,;
sub _{while($_[0]=~/(.)$/){print $1;chop$_[0];sleep.1}}

[K_M_McMahon]

Personally I like to make my obfus work with warnings on and while using strict! But hey, that's just me.