#! /usr/bin/env perl

use warnings;
use strict;
use utf8;
use feature qw<say>;

use List::Util qw<any>;

my @chars = map{ord} (0..9,'a'..'z','A'..'Z');
my @firstKey;
my @secondKey;
my $counter = 1;

for my $i (@chars) {
	for my $j (@chars) {
		my $i_ans = ($i ^ 0x16);
		my $j_ans = ($j ^ 0x0f);
		my $i_t = any{$_ == $i_ans} @chars;
		my $j_t = any{$_ == $j_ans} @chars;
		if (($i_ans == $j_ans) && $i_t && $j_t) {
			push @firstKey
				=> sprintf "(%d)->First Key: [%s] %s %s", $counter, chr($i_ans), chr($i), chr($j);
			$counter++;
		}
	}
}
$counter = 1;
for my $i (@chars) {
	for my $j (@chars) {
		my $i_ans = ($i ^ 0x1a);
		my $j_ans = ($j ^ 0x02);
		my $i_t = any{$_ == $i_ans} @chars;
		my $j_t = any{$_ == $j_ans} @chars;
		if (($i_ans == $j_ans) && $i_t && $j_t) {
			push @secondKey
				=> sprintf "(%d)->Second Key: [%s] %s %s", $counter, chr($i_ans), chr($i), chr($j);
			$counter++;
		}
	}
}

for my $f (@firstKey) {
	say "|------------------------------------------------------------------|";
	say $f;
	for my $s (@secondKey) {
		say "\t\t\t$s";
	}
	say "|------------------------------------------------------------------|";
}


exit (0);

#0x16 0x1a 0x10 0x6c 0x0f 0x02