Brent Dax (brentdax) wrote,
Brent Dax
brentdax

  • Mood:
  • Music:

The best part of waking up...

Obfuscated Perl is so much fun...

C:\>perl -
#!/usr/bin/perl -w
use strict;@\ = (9,15,{7=>79,22=>124##
,23=>124,26=>78,27=>45,28=>67,29=>72##
,49=>45,70=>124,47=>51,58=>124,54=>###
124,65=>124,79=>47,42=>92,30=>51,36###
=>47,40=>47,38=>92,46=>72,48=>67,50###
=>78,70=>124,92=>79,81=>92,83=>47,85##
=>92,78=>47,73=>124,69=>124,55=>124,##
129=>51,128=>72,127=>67,112=>124,101##
=>78,97=>78,87=>47,88=>47},1,0);map{##
map{$\[4]++;$\[2]{$\[4]}?print chr$\##
[2]{$\[4]}:print ' ';}(1..(($\[0]*$\##
[1])/9));print "\n";}(1..9);##########
^Z
      O
      ||  N-CH3
     / \ / \
H3C-N   ||  |
    |   ||  |
  // \ / \ //
 O    N   N
      |
      CH3
                                                                     
(Stolen from PerlMonks.)
Subscribe
  • Post a new comment

    Error

    default userpic

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 3 comments