use JSON;
use Encode;
use Try::Tiny;
use Data::Dumper;
use IO::Handle;
STDOUT->autoflush(1);
 
use LWP::Simple;
use LWP::UserAgent;
 
our $user = "vic2";
our $website = 'http://bbaass.tk/math/';
our $ua = LWP::UserAgent->new(  agent => 'Mozilla/5.0', timeout => 3 );
our $res;
 
BEGIN:
$res = $ua->post( $website, [ username => $user, send => 'reg' ] );
$res = $ua->post( $website, [ username => $user, send => 'user' ] );
 
my $min = 0;
my $max = 100;
my $test = int(($max + $min) / 2);
my $data;
 
$data = check($test);
my $tokens = $data->{'tokens'};
 
while ( $data->{re} ne "=" )
{
    $min = $test + 1 if ($data->{re} eq "<");
    $max = $test - 1 if ($data->{re} eq ">");
 
    $test = int(($max + $min) / 2);
    $data = check( $test );
 
    printf "min: %d max: %d, test: %d  %s, token: %s\n", 
        $min, $max, $test, $data->{re}, $data->{tokens};
 
    if ( ($data->{tokens} ne $tokens) and $data->{re} ne "=" )
    {
        print "Tokens different, go back\n";
        goto BEGIN;
    }
}
 
print "Again\n";
goto BEGIN;
 
sub check
{
    my $data;
    my $res;
 
    while (1)
    {
        $res = $ua->post(
            $website,
            [ username => $user, send => 'Answer', math => $_[0] ],
        );
 
        try   { $data = decode_json( $res->content() ); last; }
        catch { sleep 3.0; print "Content error, try again.\n" }
    }
 
    return $data;
}COPY

{"Math":319137,"Tokens":"24893b1792fb4112cbc13856b42a13ce7a3bd264","Username":{"codegay":{"Count":2078,"stat":{"zt":"playing","Timestamp":1500374817}},"bbaa":{"Count":0,"stat":{"zt":"played","Timestamp":1500371612}}},"winer":"codegay"}COPY

for r in 1..319137:
    for s in 1..319137:
        if r * s == 319137:
            echo r,"   ",sCOPY

1   319137
3   106379
7   45591
13   24549
21   15197
39   8183
49   6513
91   3507
147   2171
167   1911
273   1169
501   637
637   501
1169   273
1911   167
2171   147
3507   91
6513   49
8183   39
15197   21
24549   13
45591   7
106379   3COPY