Another simple one (Mandrake)

Another simple one

Mandrake

created: 2006-01-17 07:24:36

perlmonks

node
author

prlmnks

node
author

Here is another simple one. Not much unreadable.

sub _{map
{print chr}
($_[__(111,114
,100)],10)}sub __
{join "",map
{chr($_)}@_
}map{_ $_
}qw(74
65 80
72)

Thanks..

Re: Another simple one

turo

created: 2006-01-17 15:15:55

perlmonks

prlmnks

A little bit of salt:

perl -e 'sub _{print map{chr}(@_,10)}map{_$_}qw(74 65 80 72)'

adding some pepper:

#! perl
$_=q|
      Just
      Another
      Perl
      Hacker
|;
open(FH,$0);
$/='';($__=)=~s/\s
#//xg;$__=~s/\#
#/ /xg; $__=substr
($__, 189, length$__);
eval $__ and exit 0;
$o=$_; $__=q|
sub _{map{print
chr,chr(32)x5,
chr}(@_,10)}map{
_$_
}qw|;*what = sub
{ print "@_\n"; };
@_ = /(\S+)/g;$_ =
(join "",@_) .  "("
.(join" ",(map {ord
substr($_,0,1)} @_))
. ")";@_ = ($o =~
/(\S).*\b/g);&what;
s/(Just)(Another)
(Perl)(Hacker)(.*)
/$__$5/x;eval;&what;

I must confess, i'm not a good cooker :-P

turo

perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'