in reply to OT: 2003

Why write your own obfu? Lazy hackers use the CPAN and then tidy it. 
#! /usr/bin/perl
$= = $';
$; || $. | $|;
$_ =
'*$(^@(%_+&);@-);~~,.*+,./|);;;~~@-~~~~;;(),./.);@-);@-);*+~~@-,./|,.;
+.););~~@-);*+,.;.,./.);~~~~/.;./@,./|~~~~;#-(@-__&$#%^';
$__  = '`' & '&';
$___ = "````" | "$[`$[" | '`%",';
$~   =
  ( "$___$__-$[``$__" | "$___" | ("$___$__-$[.%") )
  . ( "'`" | "'$[" | "'#" )
  . '/.*?&([^&]*)&.*/$'
  . ++$=
  . ( "/``" | "/$[`" | "/#'" )
  . ( ";`/[\\`\\`$__]//`;" | ";$[/[\\$[\\`$__]//`;" | ";#/[\\\$\\.$__]
+//'" )
  . '@:=("@-","/.","~~",";#",";;",";.",",.",");","()","*+","__","-(","
+/@",".%","/|",";_");@:{@:}=$%..$#:;'
  . ( '`' | "$[" | '#' )
  . "/(..)(..)/"
  . ( "```" | "``$[" | '#("' ) . '(($:{$' . $= . '}<<'
  . ( ++$= + $= )
  . ')|($:{$' . $= . '}))/'
  . ( "```;" | "``$[;" | "%'#;" )
  . ( "````'$__" | "%$[``" | "%&!," ) . ${$[};
`$~$__>&$=`;

[download]

Replies are listed 'Best First'.
Re: Re: OT: 2003
by Juerd (Abbot) on Jan 01, 2003 at 01:10 UTC

    What is it supposed to do? It waits for input, but I have no idea what to give it. If I feed it itself, I get (If I s/eval/print/): 

    pri`t "Happy `ew  _

    [download]
    Which makes the message clear. I haven't tried to debug, 'cause it doesn't really look debugable :) 

    - Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

[reply]
[d/l]
      Save it to a file and execute that file.

      You cannot run it by piping it to Perl. (Known limit of the output of Acme::Smirch.)

      It works on Linux with Perl 5.6.1.

[reply]

        Save it to a file and execute that file.

        Same problem: 

        5;0 juerd@ouranos:~/tmp$ perl newyear.pl 
Backticks found where operator expected at (eval 1) line 1, near "pri`
+t "Happy `"
Bareword found where operator expected at (eval 1) line 1, near "`t "H
+appy `ew"
        (Missing operator before ew?)
5;0 juerd@ouranos:~/tmp$ perl -v | head -n2

This is perl, v5.8.0 built for i686-linux

        [download]

        I'm glad I chose the easy way out. At least a simple print Just Works ™. 

        - Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

[reply]
[d/l]

In Section Meditations