My first attempt: JAPH

Here's my first attempt, so don't expect too much... :)

@msg=qw/106 117 115 116 32 97 110 111
116 104 101 114 32 112 101 114 108 32
104 97 99 107 101 114/; foreach $item
(@msg) {print(chr($item))}  # Someday
[download]

Tell me what you think,
Apterigo

Comment on My first attempt: JAPH Download Code

Replies are listed 'Best First'.
RE: My first attempt: JAPH by cwest (Friar) on Jun 09, 2000 at 02:41 UTC
My first attempts was similar (but I used Uperase letters too): $_='074117115116032097110111116104101114032080101114'. '108032072097099107101114010'=>pos()=0;print map chr, substr $_=>pos()=>3 and pos()+=3 while pos()<length; ### print map{chr}split /\\/,q /074\117\115\116\032\097\110\111\116\104\101\114\032 \080\101\114\108\032\072\097\099\107\101\114\013\010/; -- Casey	[reply]

Replies are listed 'Best First'.

RE: My first attempt: JAPH
by cwest (Friar) on Jun 09, 2000 at 02:41 UTC

$_='074117115116032097110111116104101114032080101114'.
 '108032072097099107101114010'=>pos()=0;print map chr,
  substr $_=>pos()=>3 and pos()+=3 while pos()<length;

###

print map{chr}split /\\/,q
/074\117\115\116\032\097\110\111\116\104\101\114\032
\080\101\114\108\032\072\097\099\107\101\114\013\010/;

--
Casey

[reply]

Back to Obfuscated Code