Penguin JAPH-like

[Dylan]

My first obfu.
runs with -W and with use strict, oddly enough..

This prints "just another perl coder."
Reason: I'm no where near good enough to call myself a hacker (Yes, I have read the jargon file)

I give you, Boris, the Penguin thing:

p(9);
p(20);p(18);
p(19);z(104);p(0);
p(13);p(14);p(19);p(7);
p(4);p(17);z(14);p(15);p(4);
p(17);p(11);z(11);p(2);p(14);p(3);
p(4);p(17);r('.');
sub p {$_=shift;;;
$a='a';while($_){;;
++$a;--$_;}r($a);}
sub r{print shift
  }sub z{r(' ');}

[flgr]

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);
}

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('.');





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