in reply to Jolly Roger

Result as seen on a Mac:

perl X8N another pirate,

[download]

Result as seen on (non-apple) FreeBSD:

perl JeGm another pirate,

[download]

I don't have anything else to run this on... :(



--chargrill 
$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}

[download]

Replies are listed 'Best First'.
Re^2: Jolly Roger
by SubStack (Monk) on Jul 27, 2006 at 00:42 UTC
    Here's the one-liner I used to generate the 1722938 in the code. 
    perl -le'($c=crypt pack("I*",$_),pack"I*",$_)=~/Just/?print"$_ :: $c":
+0 while ++$_'

    [download]
    It might take a while, but you should be able to get a crypt() string with "Just" in it, then modify the /.(....)/ part to match. Hope that helps.
[reply]
[d/l]

In Section Obfuscated Code