http://www.perlmonks.org?node_id=245794

This is my first attempt at writting a japh, so let me know what you think. 
sub p () { #Look a p :^)
    use constant P=>' )'; #Another P :^\
    use constant Q=>'* '; #Alright a Q ;^)
    substr(P,1,1); #There's that P again :^I
}

sub q () { #WOW another q :^O
    eval join '', split /./, s//rxlgcdjqfvbpsohduwyvcmbjdxopd/ & map {
+tr/[a..z]/[z..a]/ . P | Q} split //; #Man, P or Q... how can I choose
+ :^/
}

$, = p; #This is just too much of a give away :^(
print q; #Just Another Perl Hacktress ;^P

[download]
PS. This might not work how you think it does ;^)

Replies are listed 'Best First'.
Re: A Hacktress' First Attempt
by Mr. Muskrat (Canon) on Mar 25, 2003 at 22:16 UTC

    SarahM++ for a fun obfuscation! You had me going in circles for a few minutes... I felt like I was chasing my tail!

    Deobfuscation follows:
    First we strip out all the comments being careful to remove *only* the comments. That leaves us with: 
    sub p () {
    use constant P=>' )';
    use constant Q=>'* ';
    substr(P,1,1);
}

sub q () {
    eval join '', split /./, s//rxlgcdjqfvbpsohduwyvcmbjdxopd/ & map {
      tr/[a..z]/[z..a]/ . P | Q
  } split //;
}

$, = p;
print q; #Just Another Perl Hacktress ;^P

    [download]
    That last line fooled you didn't it?

    The q subroutine is only there to confuse you and is not used at all. So we strip it out leaving us with: 
    sub p () {
    use constant P=>' )';
    use constant Q=>'* ';
    substr(P,1,1);
}
$, = p;
print q; #Just Another Perl Hacktress ;^P

    [download]
    "What is she up to?", you ask?
    $, (output field seperator) is set to the return value of the p subroutine (a space) but the real purpose of the p subroutine is to set the value of the P constant to the string ' )'. $, is not even used so let's strip it down again. 
    use constant P => ' )';
print q; #Just Another Perl Hacktress ;^P

    [download]
    This can be rewritten as:
     print ' #Just Another Perl Hacktress '^' )'

    A space XORed with a space yields a null (\000). A number sign (#) XORed with a ) yields a newline (\n).
    The output is '\000\nJust Another Perl Hacktress '.

    Fixed typo. Thanks LAI!

[reply]
[d/l]
[select]

      Great deobfuing, Mr. Muskrat++

      Update: tpyo was fixed. The rest of my comment is pretty irrelevant now.

      Read more... (956 Bytes)

      LAI

      __END__
[reply]
[d/l]
[select]
Re: A Hacktress' First Attempt
by beretboy (Chaplain) on Apr 06, 2003 at 03:34 UTC
    "You go girl^H^H^H^HHacktress!" - beretboy

    "Sanity is the playground of the unimaginative" -Unknown
[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Obfuscated Code