#!/usr/bin/perl
# Author:  gendou
# Usage:   elementcode.pl
# Version: 1.0.0
# Note:    This cipher is based on the periodic table of elements.
 
my %ENCODE = (
    'a' => 13,  # Aluminum
	'b' => 5,   # Phosphorus
	'c' => 6,   # Carbon
	'd' => 66,  # Dysprosium
	'e' => 63,  # Europium
	'f' => 9,   # Fluorine
	'g' => 31,  # Gallium
	'h' => 1,   # Hydrogen
	'i' => 53,  # Iodine
	'j' => 0,   # [None]
	'k' => 19,  # Potassium
	'l' => 3,   # Lithium
	'm' => 12,  # Magnesium
	'n' => 7,   # Nitrogen
	'o' => 8,   # Oxygen
	'p' => 15,  # Phosphorus
	'q' => 114, # Ununquadium
	'r' => 37,  # Rubidium
	's' => 16,  # Sulfur
	't' => 22,  # Titanium
	'u' => 92,  # Uranium
	'v' => 23,  # Vanadium
	'w' => 74,  # Tungsten
	'x' => 54,  # Xenon
	'y' => 39,  # Yttrium
	'z' => 30,   # Zinc
    '1' => 31,   # Zinc
    '2' => 30,   # Zinc
    '3' => 30   # Zinc
);
my $tk;
my $counter=1;
my $x;
print "keys count:".keys (%ENCODE)."\n";
foreach my $id ( keys (%ENCODE)) {
    if($counter % 5 == 0){
        print "\n".$x.$id;
        $x='';
    }
    else{
        $x.=$id.',';
    }
    $tk.=$id.',';
    $counter++;
}
#Process the remainder
print "\nRemainder: ";
print substr($x, 0, length($x)-1);
 
print "\n".substr($tk,0,length($tk)-1);
 
my $str="XX y?1";
$str=~s/\?/$x/g;
print "\n".$str;

IyEvdXNyL2Jpbi9wZXJsCiMgQXV0aG9yOiAgZ2VuZG91CiMgVXNhZ2U6ICAgZWxlbWVudGNvZGUucGwKIyBWZXJzaW9uOiAxLjAuMAojIE5vdGU6ICAgIFRoaXMgY2lwaGVyIGlzIGJhc2VkIG9uIHRoZSBwZXJpb2RpYyB0YWJsZSBvZiBlbGVtZW50cy4KCm15ICVFTkNPREUgPSAoCiAgICAnYScgPT4gMTMsICAjIEFsdW1pbnVtCgknYicgPT4gNSwgICAjIFBob3NwaG9ydXMKCSdjJyA9PiA2LCAgICMgQ2FyYm9uCgknZCcgPT4gNjYsICAjIER5c3Byb3NpdW0KCSdlJyA9PiA2MywgICMgRXVyb3BpdW0KCSdmJyA9PiA5LCAgICMgRmx1b3JpbmUKCSdnJyA9PiAzMSwgICMgR2FsbGl1bQoJJ2gnID0+IDEsICAgIyBIeWRyb2dlbgoJJ2knID0+IDUzLCAgIyBJb2RpbmUKCSdqJyA9PiAwLCAgICMgW05vbmVdCgknaycgPT4gMTksICAjIFBvdGFzc2l1bQoJJ2wnID0+IDMsICAgIyBMaXRoaXVtCgknbScgPT4gMTIsICAjIE1hZ25lc2l1bQoJJ24nID0+IDcsICAgIyBOaXRyb2dlbgoJJ28nID0+IDgsICAgIyBPeHlnZW4KCSdwJyA9PiAxNSwgICMgUGhvc3Bob3J1cwoJJ3EnID0+IDExNCwgIyBVbnVucXVhZGl1bQoJJ3InID0+IDM3LCAgIyBSdWJpZGl1bQoJJ3MnID0+IDE2LCAgIyBTdWxmdXIKCSd0JyA9PiAyMiwgICMgVGl0YW5pdW0KCSd1JyA9PiA5MiwgICMgVXJhbml1bQoJJ3YnID0+IDIzLCAgIyBWYW5hZGl1bQoJJ3cnID0+IDc0LCAgIyBUdW5nc3RlbgoJJ3gnID0+IDU0LCAgIyBYZW5vbgoJJ3knID0+IDM5LCAgIyBZdHRyaXVtCgkneicgPT4gMzAsICAgIyBaaW5jCiAgICAnMScgPT4gMzEsICAgIyBaaW5jCiAgICAnMicgPT4gMzAsICAgIyBaaW5jCiAgICAnMycgPT4gMzAgICAjIFppbmMKKTsKbXkgJHRrOwpteSAkY291bnRlcj0xOwpteSAkeDsKcHJpbnQgImtleXMgY291bnQ6Ii5rZXlzICglRU5DT0RFKS4iXG4iOwpmb3JlYWNoIG15ICRpZCAoIGtleXMgKCVFTkNPREUpKSB7CiAgICBpZigkY291bnRlciAlIDUgPT0gMCl7CiAgICAgICAgcHJpbnQgIlxuIi4keC4kaWQ7CiAgICAgICAgJHg9Jyc7CiAgICB9CiAgICBlbHNlewogICAgICAgICR4Lj0kaWQuJywnOwogICAgfQogICAgJHRrLj0kaWQuJywnOwogICAgJGNvdW50ZXIrKzsKfQojUHJvY2VzcyB0aGUgcmVtYWluZGVyCnByaW50ICJcblJlbWFpbmRlcjogIjsKcHJpbnQgc3Vic3RyKCR4LCAwLCBsZW5ndGgoJHgpLTEpOwoKcHJpbnQgIlxuIi5zdWJzdHIoJHRrLDAsbGVuZ3RoKCR0ayktMSk7CgpteSAkc3RyPSJYWCB5PzEiOwokc3RyPX5zL1w/LyR4L2c7CnByaW50ICJcbiIuJHN0cjs=