Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

OBFUSCATE!!!

by jdube (Initiate)
on Dec 30, 1999 at 04:51 UTC ( #1541=perlcraft: print w/replies, xml ) Need Help??

   1: #!/usr/bin/perl
   2: $dongle=chr(65);$dongle.=chr(81);$dongle.=chr(82);$dongle.=chr(84);
   3:              $dongle.=chr(66);$dongle.=chr(72);$dongle.=chr(80);
   4:  $dongle.=chr(90);$dongle.=chr(101);$dongle.=chr(37);$dongle.=chr(152);
   5:                               $dongle.=chr(129);
   6:  $dongle.=chr(76);$dongle.=chr(140);                  $dongle.=chr(145);      
   7:                      $dongle.=chr(74);$dongle.=chr(157);$dongle.=chr(143);
   8:         $dongle.=chr(168);$dongle.=chr(135);$dongle.=chr(79);$dongle.=chr(165);
   9:                                       $dongle.=chr(85);
  10:                          $dongle.=chr(159);        $dongle.=chr(148);
  11:                                       $dongle.=chr(78);
  12:                     $dongle.=chr(188);             $dongle.=chr(195);
  13:      $dongle.=chr(181);$glurp=substr($dongle,0,1);$kernada=substr($dongle,2,2);
  14:             $hurg=substr($dongle,6,1);$grag=substr($dongle,8,1);
  15: $rearg=substr($dongle,12,1);$bungus=substr($dongle,15,1);
  16:                                                $mcchungus=substr($dongle,20,1);
  17:  $blargus=substr($dongle,22,1);$gaffer=substr($dongle,-4,1);
  18:                           $goohnah=substr($dongle,5,1);
  19: $poobah=$glurp;$poobah.=$kernada;$poobah.=$hurg;$poobah.=$grag;$poobah.=$rearg;
  20:                         $poobah.=$bungus;$poobah.=$mcchungus;$poobah.=$blargus;
  21: $poobah.=$gaffer;$poobah.=$goohnah;$glurp=unpack("x2 A1",$poobah);
  22: $kernada=unpack("x10 A1",$poobah);$hurg=unpack("x4 A1",$poobah);          
  23:                $grag=unpack("x3 A1",$poobah);$rearg=unpack("x4 A1",$poobah);
  24:                                               $bungus=unpack("x1 A1",$poobah);
  25: $mcchungus=unpack("x5 A1",$poobah);$blargus=unpack("x6 A1",$poobah);
  26: 
  27: 
  28:                                       $gaffer=unpack("x7 A1",$poobah);
  29: $goohnah=unpack("x8 A1",$poobah);
  30:            $gringo=unpack("x1 A1",$poobah);$foo=unpack("x9 A1",$poobah);
  31: $bar=unpack("x0 A1",$poobah);
  32:   $baz=unpack("x5 A1",$poobah);$poobah=$glurp;$poobah.=$kernada;$poobah.=$hurg;
  33: $poobah.=" ";$poobah.=$grag;$poobah.=$rearg;$poobah.=$bungus;
  34:                                                      $poobah.=$mcchungus;
  35:                  $poobah.=" ";$poobah.=$blargus;
  36:                                        $poobah.=$gaffer;$poobah.=$goohnah;
  37:      $poobah.=$gringo;                        $poobah.=$foo;
  38:                                     $poobah.=$bar;
  39:   $poobah.=$baz;                                 $poobah=uc($poobah);
  40: print $poobah;$coorg=<stdin>;
  41: __END__

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlcraft [id://1541]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2019-06-25 13:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Is there a future for codeless software?



    Results (106 votes). Check out past polls.

    Notices?