Updated version
I'm pretty happy with this version - I couldn't believe my luck at the value of $x :-)

$x=crypt(sexX,El);$_=crypt(czEW,pr).$x;
s-ltO8f- -;s-w0s1-t-;s-YA|Ngo-+-g;eval;

[download]

I am still open to suggestions for making it more obscure - but I'm happy at last to have made a short sig with crypt.

Previous version

@g=split/z/,ExzAPzDazDgzDizFVzFszaBzluzXhzAlzTBz;for(;$q<6;$
q++){$_.=substr(crypt($g[$q],$g[$q+6]),2,3)}$_=~tr/./ /;eval

[download]

Version before that

@a=(15,30,10,15,31,98);@b=(5025,2328,1174,6763,8033,5431);for(;$
i<6;$i++){$_.=substr(crypt($b[$i],$a[$i]),2,3)}$_=~s/\./ /g;eval

[download]

Replies are listed 'Best First'.
Re: Cryptosig
by tachyon (Chancellor) on Oct 28, 2001 at 19:42 UTC

    I presume you are on a Win32 box as the output from crypt on *nix and under Win Perl is different, thus while this is an interesting idea for a sig I think it will not port well. Here is a slightly more obfu version for you to chew on :-) The algorithm per se is unchanged. 

    s __502523281174676380335431_,_(153010153198=~?..?g)
,y<!"#$%&'()*+,-/>_!-- &_,eval;sub _{s e(.{4})(.*)e$
2.substr(crypt($1,shift),,2,3)ee&&@_&&$_&&&_}# JaPh,

    [download]

    cheers

    tachyon

    s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]
      Actually I'm on a Mac which uses the same crypt algorithm as Linux (and, I think, all *nix).

      I take it from your comment that it did not work for you. What are you on (as it were!)

      And er.. thanks. My brain aches even more now!

[reply]

        No it worked fine, however in the past I have found that the output of crypt('foo', 'aa') on my server is different to the output on Win32. Here is an even more painful version. The 'e's are for Elliot of course 

        s<>\sub AUTOLOAD{s e(.{4})(.*)e$2.substr(crypt($1,shift),,
2,3)ee&&@_&&$_&&$&&&&_}\e,s&&502523281174676380335431&&eee
(153010153198=~?..?g),y<!"#$%&'()*+,-/>_!-- &_,s e.*e$&eee

        [download]

        cheers

        tachyon

        s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]
Re: Cryptosig
by doc (Scribe) on Oct 29, 2001 at 16:45 UTC

    Is this obscure enough for you? 

    s SScrypt sexX,ElSe,s eecrypt czEW,pree,y adAa,a
,s EltO8fE E,y QwY0s1QQd,s mNgomt,m,s,$,$`,eieio

    doc

    print(s<>ecode?scalar reverse :p)

[reply]

Back to Obfuscated Code