Have a wonderful 2003, everyone! (It's 0:22 CET)

I'm sorry I didn't have the time to make a nice obfu... 

print "Happy new year!\n";

[download]

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

Replies are listed 'Best First'.
Re: OT: 2003
by Anonymous Monk on Jan 01, 2003 at 00:53 UTC
    Why write your own obfu? Lazy hackers use the CPAN and then tidy it. 
    #! /usr/bin/perl
$= = $';
$; || $. | $|;
$_ =
'*$(^@(%_+&);@-);~~,.*+,./|);;;~~@-~~~~;;(),./.);@-);@-);*+~~@-,./|,.;
+.););~~@-);*+,.;.,./.);~~~~/.;./@,./|~~~~;#-(@-__&$#%^';
$__  = '`' & '&';
$___ = "````" | "$[`$[" | '`%",';
$~   =
  ( "$___$__-$[``$__" | "$___" | ("$___$__-$[.%") )
  . ( "'`" | "'$[" | "'#" )
  . '/.*?&([^&]*)&.*/$'
  . ++$=
  . ( "/``" | "/$[`" | "/#'" )
  . ( ";`/[\\`\\`$__]//`;" | ";$[/[\\$[\\`$__]//`;" | ";#/[\\\$\\.$__]
+//'" )
  . '@:=("@-","/.","~~",";#",";;",";.",",.",");","()","*+","__","-(","
+/@",".%","/|",";_");@:{@:}=$%..$#:;'
  . ( '`' | "$[" | '#' )
  . "/(..)(..)/"
  . ( "```" | "``$[" | '#("' ) . '(($:{$' . $= . '}<<'
  . ( ++$= + $= )
  . ')|($:{$' . $= . '}))/'
  . ( "```;" | "``$[;" | "%'#;" )
  . ( "````'$__" | "%$[``" | "%&!," ) . ${$[};
`$~$__>&$=`;

    [download]
[reply]
[d/l]

      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]
Re: OT: 2003
by Aristotle (Chancellor) on Jan 01, 2003 at 03:34 UTC
    Somewhat lame, but gets the job done. :) 
    sub{print map{chr}grep{not(--$_[0]or shift)}map{$a=($a+

                      2003

                    )%253}(1..

                      2003

)x2}->(map hex,"692FB4FD6CC52E17D8DDB290CDCC28E6"=~/(..)/g);

    [download]

    Makeshifts last the longest.

[reply]
[d/l]
Re: OT: 2003
by dug (Chaplain) on Jan 01, 2003 at 06:51 UTC
    Happy new year to you as well. And to all others who help (as you do) in making this place fun, interesting, challenging and informative.

    May your Perl knowledge forever increment with the days that pass.

      dug
[reply]

Back to Meditations