in reply to Cryptosig

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,

cheers

tachyon

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

Replies are listed 'Best First'.
Re: Re: Cryptosig
by Elliott (Pilgrim) on Oct 28, 2001 at 20:47 UTC
    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!

      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

      cheers

      tachyon

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