rehash

#!/usr/bin/perl
($n,$s)=('phroggy',join'',map{(sort split'','b_jl msepr$hyacn"otg.')
[$_]}map ord()-97=>split''=>'shfmfrajitkpstguofniabcedlfqkdcodhpnb')
and print eval $s for(0..6);
[download]

The core of this is a JAPH I did before and wasn't entirely satisfied with. I'm not entirely satisfied with this one either, but at least it's more confusing! ;-)

Requires a working Internet connection.

Comment on rehash Download Code

Replies are listed 'Best First'.
Re: rehash by cristian (Hermit) on May 04, 2005 at 13:58 UTC
Decode `The end print scalar gethostbyname "$_.japh.phroggy.com" for 0 .. 6 Description 1.- ($n,$s) = ("phroggy", 'scalar gethostbyname "$_.japh.$n.com'); 2.- eval scalar gethostbyname "$_.japh.$n.com" for 0 .. 6` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: rehash
by cristian (Hermit) on May 04, 2005 at 13:58 UTC


The end

print scalar gethostbyname "$_.japh.phroggy.com" for 0 .. 6

Description

1.- ($n,$s) = ("phroggy", 'scalar gethostbyname "$_.japh.$n.com');

2.- eval scalar gethostbyname "$_.japh.$n.com" for 0 .. 6
[download]

[reply]
[d/l]