hacker.org

Code: Select all

#!/usr/bin/ruby

require 'open-uri'
NAME = 'username'; PW = 'password'
BASE_URI = "http://www.hacker.org/challenge/misc/maze.php?name=#{NAME}&password=#{PW}&steps="
moves = ['D']

while( not moves.empty? )
        puts( current = moves.pop )
        result = open(BASE_URI + current).read
        if result =~ /keep moving/
            %w{L R U D}.each {|d| moves.push( current + d )}
        elsif not result =~ /(boom|off the edge)/
            puts result
            exit
        end
end

Code: Select all

#!/usr/bin/perl

use LWP::Simple;

my $url='http://www.hacker.org/challenge/misc/maze.php?name=NAME&password=PASSWORD&steps=';

my $path="D";
my @backtrack;
my @directions=qw( U D L R);
my %opposite=("U"=>"D", "D"=>"U", "L"=>"R", "R"=>"L");
my $content;

while (true) {
        foreach $dir (@directions) {
                next if ( substr($path,length($path)-1,1) eq $opposite{$dir} ); # don't turn around
                push @backtrack,"$path$dir";
        }
        while (true) {
                $path=pop @backtrack;
                $content = get "$url$path";
                die "Couldn't get $url" unless defined $content;
                $content=~ s/<[^>]*>//gs;
                $content=~ s/\n//gs;
                last if ($content ne "boom");
        }
        if ($content ne "keep moving...") {
                print "The End: $content\n";
                last;
        }
}

Code: Select all

trypath() {
	printf "Try: %s " $1
	res=`w3m -dump 'http://www.hacker.org/challenge/misc/maze.php?steps='$1`
	echo $res
	if echo $res | grep moving &>/dev/null; then
		for i in U D L R; do trypath $1$i; done
	fi
}

trypath 'D'