#!/usr/bin/perl

my $target = 0x7F;
my $result = ord('1');
my $i;

for($i = 0; $i <= 0xFF; $i++)
{
	if(($target ^ $i) == $result) {
		printf("FOUND! It is 0x%02X\n", $i);
		exit(0);
	}
}

print "Not found :(\n";
