De-Obfuscation of Penguin JAPH-like


Just another Perl shrine
	PerlMonks

De-Obfuscation of Penguin JAPH-like

by flgr (Sexton)

on Sep 12, 2001 at 15:37 UTC ( [id://111883]=note: print w/replies, xml )

Need Help??

in reply to Penguin JAPH-like

Nice work. Could need some more obfuscation though. :)

Let's take a look at what the subs do first:

sub r {
  print shift; # print the argument given
}

sub z {
  r(' ');      # same as print ' ';
}

sub p {        # this prints the letter with the index
               # given as the argument
  $_ = shift;  # set $_ to the argument
  $a = 'a';    # set $a to 'a'
  while ($_) { # as long as $_ isn't zero...
    ++$a;      # increase the letter (magic)
    --$_;      # decrease $_
  }
  r($a);
}
[download]

So much to the subs. The only thing left are the subcalls then:

# j      u       s       t
p(9);  p(20);  p(18);  p(19); z(104); 

# a      n       o       t      h      e       r
p(0);  p(13);  p(14);  p(19); p(7);  p(4);  p(17); z(14);

# p      e       r       l
p(15);  p(4);  p(17);  p(11); z(11);

# c      o       d       e      r       .
p(2);   p(14); p(3);   p(4);  p(17);  r('.');
[download]

$§=lc(sub{}^" \6 \n");$§=~s/$.*$//;for(split ('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1