#!/usr/bin/perl -w

print '@xor = (';

$words = "";
for ($pos=0; $pos<=64; $pos+=2) {

  $words = $words . "a";

  $get = `curl -s "http://54.228.109.101:5000?action=search&words=$words&sort=price"`;
  if (index($get, "what=") != -1) {
    $get = substr($get, index($get, "what=")+5, index($get, '"', index($get, "what=")+5)-index($get, "what=")-5);

    $res = substr($get, $pos, 2);
    $res = hex($res);
    $res ^= ord("a");

    printf("0x%02x, ", $res);

  } else {
    print "ERROR!\n";
    last;
  }

}

print "\n";