Zariman Resources

#!perl

use warnings;
use strict;

my @ciphertexts = (
    "0000110101010100000100000010100101011001010100010011011001011101",
    "0011010001011110010001000111101001010111010101010011101101000011",
    "00101110010111100001000000101110010100000101101100111111",
    "0010111001011001010101010111101001011101010101010011101101000001",
);

my @keys = (
    ("Z10" x 10),
    ("Z10" x 10),
    ("Z10" x 10),
    ("Z10" x 10),
);


foreach my $ciphertext (@ciphertexts) {
    $ciphertext = pack "B*", $ciphertext;

    my $key = shift @keys;
    print $ciphertext ^ $key, "\n";
}

#!perl

use warnings;
use strict;

#my @pfx_1 = qw(
#);

#my @pfx_2 = reverse @prefix_1;

my @segments = (
	[
		"By the glory and wisdom of the Seven", [
			qw(
				01100101 01011111 00001101 01010010 01010000 00010011 01000000 00011010 01000011
				01011100 01011100 01011011 00001011 01010010 01000101 01000101 00001110 01011001
			)
		],
	],
	[
		"I give my life to carry", [
			qw(
				01100011 00010101 01011110 01010001 00010011 01001010 00000000 01010010 00001110
				01000001 01100110 00010011 00011000 00000000 01001010 00010100 00011101 01011010
			)
		],
	],
	[
		"the sacred light of our dominion", [
			qw(
				01111111 00001100 00001100 01000000 01111101 00011011 00011010 00010110 00000100
				00000100 00101000 00010110 00010011 00000011 00000100 00010101 01011001 00010101
			)
		],
	],
	[
		"into the deepest dark.", [
			qw(
				00011111 00001011 00011010 00001111 01011110 00010111 01101110 01111010 00100111
				01101000 00011111 00011001 01100000 00000100 00011001 00010110 00001110 00011011
			)
		],
	],
	[
		"In this... we are one.", [
			qw(
				01011001 01110100 01010110 00010111 00001101 00010010 01000110 01010010 01000110
				01001000 01011010
			)
		],
	]
);

sub only_printables {
	my $plain_text = shift();
	$plain_text =~ tr[ -~][_]c;
	return $plain_text;
}

sub decode {
	my ($key_1, $key_2, $cipher_text) = @_;
	$key_1 x= 100;
	$key_1 = substr($key_1, 0, length $cipher_text);
	$key_2 x= 100;
	$key_2 = substr($key_2, 0, length $cipher_text);
	my $plain_text = $cipher_text;
	$plain_text ^= $key_1;
	$plain_text ^= $key_2;
	return only_printables($plain_text);
}

foreach my $segment (@segments) {
	my ($k2, $v) = @$segment;
	my $cipher_text = join("", map { pack "B*", $_ } @$v);
	print decode("ORXVKL", $k2, $cipher_text), "\n";
}