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
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.