ppencode

http://namazu.org/~takesako/ppencode/demo.html
Hatena::Diary::naoyaより：

  #!/usr/bin/perl
  cos xor print chr hex ord uc qq qr q xor print chr length q q truncate
  substr exists sleep tell exists getnetent chop select gethostent
  setgrent gethostent msgctl readdir do select lcfirst chdir s
  endprotoent msgctl endpwent q xor print chr hex ord uc qq qr q xor
  print chr length q q syscall flock getgrgid s exec rand oct
  getservbyname undef next rmdir print chmod chdir readdir index uc
  gmtime msgrcv lt gethostent getpwnam lstat values getpwuid q xor print
  chr hex ord uc qq or do xor print chr length q x connect syswrite q
  getprotobyname shmget quotemeta reverse pop s sethostent getpeername
  getprotobyname splice ref push splice getnetbyname fork getprotoent
  chop x xor print chr hex ord uc qq eq ge xor print chr oct ord qw q do
  q xor print chr hex ord uc qq qr q xor print chr oct hex length q q
  sprintf syscall close endpwent values untie reverse for rindex sin xor
  close exec abs getprotobyname warn my exec import xor alarm q xor print
  chr hex ord uc qq qr q xor print chr length q x sqrt le sethostent
  dbmopen msgget ge setgrent glob semop my stat open getnetbyname
  endpwent shmctl getpriority or cos return getprotobyname endgrent read
  eval lc x xor print chr hex ord uc qq eq le xor print chr oct ord qw q
  do q xor print chr hex ord uc qq or no xor print chr oct hex length q
  q bind and delete local localtime shmread vec chr lc getservbyname eval
  oct goto next map setpriority pack q xor print chr hex ord uc qq eq ge
  xor print chr oct hex ord uc qw q uc q

ネーミングがおもしろいですね。
Ruby版のrrencodeもあるらしいです。