@_=map{[$!++=>$_^$/]}split$¾=>"\@\x7Fy~*kde~box*Zoxf*Bkiaox";$\="\r";
$|=++$*;do{($#=>$=)=(rand@_=>rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][$º
]<$_[$_-$*][$Æ];print+map{$_->[$|]}@_;select$…,$ƒ,$‡,"$[.$|"}}print$/

[download]

Replies are listed 'Best First'.
Re: Wow
by cristian (Hermit) on Apr 28, 2005 at 17:29 UTC 
    Unrecognized character in execution.

\xBE,\xBA,\x86,\x80,\x92

Æ , ¾ , º , ‡ , … , ƒ

if i replace this characters not show result. obvious.

    [download]
[reply]
[d/l]
      I am on windows NT, please try 
      @_ = map { [ $!++ => $_ ^ $/ ] } split $&#9563; => "\@\x7Fy~*kde~box*Z
+oxf*Bkiaox";
$\ = "\r";
$| = ++$*;
do { ( $# => $= ) = ( rand @_ => rand @_ ); @_[ $#, $= ] = @_[ $=, $# 
+] }
  for ( $* .. @_ );
for $: ( $| .. @_ - $| ) {
    for ( $| .. @_ - $: ) {
        @_[ $_ - $|, $_ ] = @_[ $_ => $_ - $* ]
          if $_[$_][ $&#9553; ] < $_[ $_ - $* ][$&#9566;];
        print +map { $_->[$|] } @_;
        select $à, $â, $ç, "$[.$|";
    }
}
print $/

      [download]
      I think the chars don't paste correctly to the form, check mine:Download here
[reply]
[d/l]
Re: Wow
by Anonymous Monk on Apr 28, 2005 at 17:24 UTC
    Nice Stuff !
[reply]

Back to Obfuscated Code