Yarr, the Jolly Roger has a message for all ye perl pirates. 
#!           /usr/bin/perl
           $^X =~ y/0-9.//d,
          print join$",(sort
         97.110.0.do{local $"=
        "";       $_=       "@{[
        sort     split     //,$~
        ] }"     ;eval     ";42;
         y/$~/heotr/";s/(.)\1+
          /\1/x;$_} , [split/
          \//x,($_=   chr++$|
+$=         /$]*$^F).$$_]->        [--
   $.],      crypt    ($_      =pack
      ("I*",    1722938    ),$_)
           =~/          .(..
            ..)/x,"#=6.!1"
            ^$~),  chr(8).
         chr            $=/
     $^F+                   ++$^F,
#Sub                             Stack

[download]
Some words in the result might appear jumbled for for ye Windowers and ye Applers (and ye BSD-ers) because of differences in crypt() and $^X, but it's still a pirate! (Inspired by this)
(Updated for ye Gentoo-ers.)
Harr!

Replies are listed 'Best First'.
Re: Jolly Roger
by wulvrine (Friar) on Jul 27, 2006 at 11:09 UTC
    ARRGGH! Avast ye mateys! Walk the plank! KEEL-HAUL em! Just another perl pirate! I sees! Pirates found Jones locker ++!

    s&&VALKYRIE &&& print $_^q|!4 =+;' *|
[reply]
Re: Jolly Roger
by chargrill (Parson) on Jul 27, 2006 at 00:32 UTC

    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]
[reply]
[d/l]
[select]
      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]
Re: Jolly Roger
by truedfx (Monk) on Jul 27, 2006 at 06:25 UTC
    Some words in the result might appear jumbled for for ye Windowers and ye Applers (and ye BSD-ers)

    You can add Linuxers to that list: I get "Just another perl5.8.8 pirate!", which is probably not what you were going for, on Gentoo. /usr/bin/perl is a symlink to perl5.8.8 here, so $^X doesn't end in /perl.

    Harmless though, so now I guess I'll need to figure out what you're doing. :)

[reply]
[d/l]
Re: Jolly Roger
by tweetiepooh (Hermit) on Jul 28, 2006 at 14:27 UTC
    I get 
    charperl another pirate!

    [download]
    where char is a ASCII box symbol (bit like a T)
[reply]
[d/l]

Back to Obfuscated Code