comment on

This obfuscation was a good chance for me to become more familiar with the Date::Calc module.

(Update: I should have made this more clear -- as my coworker discovered this morning -- you need to actually have Date::Calc installed, otherwise the program won't produce any output.)

The script takes either a single argument, in the form of a date (eg. "8/22/98" or "Aug-22-1998"), or two dates (earlier one first).

And the purpose of the program is ...

         s''us                  e`Date               ::Cal
            c`qw|               :all|;su        b`J{3
               0+31*            sin($   H*2/pop)}
                  sub`A         {Date   _to_D ays@_
                      [0..2     ]}sub`P{$         ARGV[
                          pop]} sub`H                 {($_=
                           P+pop)?A+D                    ecode
                       _Date    _US($_                      ):A+T
                   oday}        sub`_{"|".                    Date_
               to_Te            xt+Ad   d_Del                 ta_Da
           ys+(1                )x3,p       op}su             b`b{@
        _=(2+                   $A==$          J?"-"         :$")x
     61;$_                      [30]=             qw/h`    j`a`p
   /[$P%                        4];$_                  [J+23]
  ="P";                         $_[J+                  28]="E
  ";$_[                         J+33]            ="I";    warn"
  |".jo                         in(""       ,@_).           _($P+
  ++-++                         $H*0-  1).$/                 ;--$J
  &&&b}                         `$J=(                         P+2)|
   |48;$                    A=$J/2-1;                         $P=-$
     A+H+1             ;b`if    $H=$P                         -(H+0
        )';s*     [\s#]         **gx;                         s\`\$
           "\g                  ;eval
[download]

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

In reply to Cyclical Japh by liverpole

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


P is for Practical
	PerlMonks