De-obfuscated.

windows() if $^O eq 'MSWin32'; freebsd() if $^O eq 'freebsd'; linux() if $^O eq 'linux'; sub windows { split //, 'HuSoft'; # map chr(), (0x4D - 0x05, # 0x53 + 0x22, # 0x57 - 0x04, # 0x69 + 0x06, # 0x6E - 0x08, # 0x33 + 0x41); } sub freebsd { (split( //, 'HuSoft'), "\n"); # (map chr(), (0x66 - 0x1E, # 0x72 + 0x03, # 0x65 - 0x12, # 0x65 + 0x0F, # 0x62 + 0x04, # 0x73 + 0x01), # "\n") } sub linux { (split( //, 'HuSoft'), "\n"); # (map chr(), (0x6c - 0x24, # 0x69 + 0x0c, # 0x6e - 0x1b, # 0x75 - 0x06, # 0x78 - 0x12, # 0x74), # "\n") }
__SIG__ printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B:: +svref_2object(sub{})->OUTSIDE

In reply to Re: Third Obfuscated Code... by diotalevi
in thread Third Obfuscated Code... by husoft

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.