codice_fiscale 0.1

data/lib/codice_fiscale.rb

@@ -0,0 +1,199 @@
+#--
+# Copyleft shura. [shura1991@gmail.com]
+#
+# This file is part of codice_fiscale.
+#
+# codice_fiscale is free software: you can redistribute it and/or modify 
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# codice_fiscale is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with codice_fiscale. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+class CodiceFiscale < String
+  VERSION = '0.1'
+
+  MONTH = [nil, ?A, ?B, ?C, ?D, ?E, ?H, ?L, ?M, ?P, ?R, ?S, ?T]
+
+  ALFANUM_TO_CODE = {
+    odd: {
+           ?0 => 1, ?1 => 0, ?2 => 5, ?3 => 7, ?4 => 9,
+           ?5 => 13, ?6 => 15, ?7 => 17, ?8 => 19, ?9 => 21,
+           ?A => 1, ?B => 0, ?C => 5, ?D => 7, ?E => 9,
+           ?F => 13, ?G => 15, ?H => 17, ?I => 19, ?J => 21,
+           ?K => 2, ?L => 4, ?M => 18, ?N => 20, ?O => 11,
+           ?P => 3, ?Q => 6, ?R => 8, ?S => 12, ?T => 14,
+           ?U => 16, ?V => 10, ?W => 22, ?X => 25,
+           ?Y => 24, ?Z => 23
+         },
+    even: {
+            ?0 => 0, ?1 => 1, ?2 => 2, ?3 => 3, ?4 => 4,
+            ?5 => 5, ?6 => 6, ?7 => 7, ?8 => 8, ?9 => 9,
+            ?A => 0, ?B => 1, ?C => 2, ?D => 3, ?E => 4,
+            ?F => 5, ?G => 6, ?H => 7, ?I => 8, ?J => 9,
+            ?K => 10, ?L => 11, ?M => 12, ?N => 13, ?O => 14,
+            ?P => 15, ?Q => 16, ?R => 17, ?S => 18, ?T => 19,
+            ?U => 20, ?V => 21, ?W => 22, ?X => 23, ?Y => 24,
+            ?Z => 25
+          }
+  }
+
+  ALTERNATIVE = {
+    ?0 => ?L, ?1 => ?M, ?2 => ?N, ?3 => ?P, ?4 => ?Q,
+    ?5 => ?R, ?6 => ?S, ?7 => ?T, ?8 => ?U, ?9 => ?V,
+    0 => ?L, 1 => ?M, 2 => ?N, 3 => ?P, 4 => ?Q,
+    5 => ?R, 6 => ?S, 7 => ?T, 8 => ?U, 9 => ?V
+  }
+
+  DBDIR = File.realpath(File.join(File.dirname(__FILE__), 'db'))
+
+  attr_reader :name, :surname, :bday, :bplace, :gender
+
+  def name?
+    !!@name
+  end
+
+  def surname?
+    !!@surname
+  end
+
+  def bday?
+    !!@bday
+  end
+
+  def bplace?
+    !!@bplace
+  end
+
+  def gender?
+    !!@gender
+  end
+
+  def data?
+    self.name? and self.surname? and self.bday? and self.bplace? and self.gender?
+  end
+
+  def name=(n)
+    @name = n.upcase if n.is_a?(String) and n =~ /^[A-Z]+$/i
+
+    generate_code!
+  end
+
+  def surname=(s)
+    @surname = s.upcase if s.is_a?(String) and s =~ /^[A-Z]+$/i
+
+    generate_code!
+  end
+
+  def bday=(day)
+    @bday = case day
+      when Time
+        {
+          day: day.day,
+          mon: day.mon,
+          year: day.year.to_s[-2, 2].to_i
+        }
+      when String
+        self.bday = Time.new($4, $3, $1) if day =~ /^(\d{1,2})([^\dA-Z])(\d{1,2})\2(\d{2}||\d{4})$/i
+        @bday
+      else @bday
+    end
+
+    generate_code!
+  end
+
+  def bplace=(place)
+    return unless place.is_a?(String)
+    place.strip!
+    place.upcase!
+    if place =~ /^([A-Z']+\s*)+(?:\(([A-Z]{2})\))?$/
+      @bplace = {
+        city: $1.strip,
+        prov: $2
+      }
+    end
+
+    generate_code!
+  end
+
+  def gender=(gen)
+    if gen == :M or gen == :m or gen =~ /^m(ale)?$/i
+      @gender = :M
+    elsif gen == :F or gen == :f or gen =~ /^f(emale)?$/i
+      @gender = :F
+    end
+
+    generate_code!
+  end
+
+  def initialize(options = {})
+    self.name = options[:name]
+    self.surname = options[:surname]
+    self.bday = options[:bday]
+    self.bplace = options[:bplace]
+    self.gender = options[:gender]
+  end
+
+  def generate_code!
+    return unless self.data?
+    code = ""
+
+    # TRIPLET FOR SURNAME
+    code << (self.surname.scan(/[^AEIOU]/).join + self.surname.scan(/[AEIOU]/).join)[0, 3].ljust(3, 'X')
+
+    # TRIPLET FOR NAME
+    cons = self.name.scan(/[^AEIOU]/).join
+    cons << cons[1] && cons[1] = '' if cons.size > 3
+    code << (cons + self.name.scan(/[AEIOU]/).join)[0, 3].ljust(3, 'X')
+
+    # QUINTET FOR BDAY AND GENDER
+    code << self.bday[:year].to_s.rjust(2, '0')
+    code << CodiceFiscale::MONTH[self.bday[:mon]]
+    code << (self.bday[:day] + (self.gender == :F ? 40 : 0)).to_s.rjust(2, '0')
+
+    # QUARTET FOR BPLACE
+    code << self.belfiore_code(self.bplace[:city], self.bplace[:prov])
+    
+    # CONTROL CODE
+    sum = 0
+    code.split(//).each_with_index {|ch, i|
+      sum += ALFANUM_TO_CODE[i.odd? ? :even : :odd][ch]
+    }
+    code << ((sum % 26) + 65).chr
+
+    self.replace(code)
+  end
+
+  def belfiore_code(city, province = nil)
+    code = nil
+    File.open(File.join(DBDIR, (province and province == 'EE' ? 'ee.db' : "#{city[0].downcase}.db"))) {|f|
+      f.each_line {|line|
+        co, c, p = line.strip.split(';')
+        code = co.dup and break if c == city and (province and province != 'EE' ? p == province : true)
+      }
+    }
+
+    code
+  end
+
+  def alternative(level = 1)
+    code = self.dup
+    code.scan(/[0-9]/).reverse[0, level].each {|n|
+      i = code.rindex(n)
+      code[i] = ALTERNATIVE[code[i]]
+    }
+
+    code
+  end
+
+  def alternative!(level = 1)
+    self.replace(self.alternative(level))
+  end
+end

data/lib/db/a.db

@@ -0,0 +1,436 @@
+A001;ABANO;TE
+A004;ABBADIA;CE
+A005;ABBADIA;LA
+A006;ABBADIA;SA
+A007;ABBASANTA;OR
+A008;ABBATEGGIO;PE
+A010;ABBIATEGRASSO;MI
+A012;ABETONE;PT
+A013;ABRIOLA;PZ
+A014;ACATE;RG
+A015;ACCADIA;FG
+A016;ACCEGLIO;CN
+A017;ACCETTURA;MT
+A018;ACCIANO;AQ
+A019;ACCUMOLI;RI
+A020;ACERENZA;PZ
+A023;ACERNO;SA
+A024;ACERRA;NA
+A025;ACI;BO
+A026;ACI;CA
+A027;ACI;CA
+A029;ACI;SA
+A028;ACIREALE;CT
+A031;ACQUACANINA;MC
+A032;ACQUAFONDATA;FR
+A033;ACQUAFORMOSA;CS
+A034;ACQUAFREDDA;BS
+A035;ACQUALAGNA;PU
+A039;ACQUANEGRA;CR
+A038;ACQUANEGRA;SU
+A040;ACQUAPENDENTE;VT
+A041;ACQUAPPESA;CS
+A042;ACQUARICA;DE
+A043;ACQUARO;VV
+A044;ACQUASANTA;TE
+A045;ACQUASPARTA;TR
+A050;ACQUAVIVA;CO
+A048;ACQUAVIVA;DE
+A051;ACQUAVIVA D'ISERNIA;IS
+A047;ACQUAVIVA;PI
+A049;ACQUAVIVA;PL
+M211;ACQUEDOLCI;ME
+A052;ACQUI;TE
+A053;ACRI;CS
+A054;ACUTO;FR
+A055;ADELFIA;BA
+A056;ADRANO;CT
+A057;ADRARA;SA
+A058;ADRARA;SA
+A059;ADRIA;RO
+A060;ADRO;BS
+A061;AFFI;VR
+A062;AFFILE;RM
+A064;AFRAGOLA;NA
+A065;AFRICO;RC
+A067;AGAZZANO;PC
+A068;AGEROLA;NA
+A069;AGGIUS;SS
+A070;AGIRA;EN
+A071;AGLIANA;PT
+A072;AGLIANO;TE
+A074;AGLIE';TO
+H848;AGLIENTU;SS
+A075;AGNA;PD
+A076;AGNADELLO;CR
+A077;AGNANA;CA
+A080;AGNONE;IS
+A082;AGNOSINE;BS
+A083;AGORDO;BL
+A084;AGOSTA;RM
+A085;AGRA;VA
+A087;AGRATE;BR
+A088;AGRATE;CO
+A089;AGRIGENTO;AG
+A091;AGROPOLI;SA
+A092;AGUGLIANO;AN
+A093;AGUGLIARO;VI
+A096;AICURZIO;MI
+A097;AIDOMAGGIORE;OR
+A098;AIDONE;EN
+A100;AIELLI;AQ
+A102;AIELLO;CA
+A103;AIELLO;DE
+A101;AIELLO;DE
+A105;AIETA;CS
+A106;AILANO;CE
+A107;AILOCHE;BI
+A109;AIRASCA;TO
+A110;AIROLA;BN
+A111;AIROLE;IM
+A112;AIRUNO;LC
+A113;AISONE;CN
+A116;ALA;TN
+A115;ALA';DE
+A117;ALA;DI
+A118;ALAGNA;PV
+A119;ALAGNA;VA
+A120;ALANNO;PE
+A121;ALANO;DI
+A122;ALASSIO;SV
+A123;ALATRI;FR
+A124;ALBA;CN
+A125;ALBA;AD
+A126;ALBAGIARA;OR
+A127;ALBAIRATE;MI
+A128;ALBANELLA;SA
+A131;ALBANO;DI
+A132;ALBANO;LA
+A129;ALBANO;SA
+A130;ALBANO;VE
+A134;ALBAREDO;AR
+A137;ALBAREDO D'ADIGE;VR
+A135;ALBAREDO;PE
+A138;ALBARETO;PR
+A139;ALBARETTO;DE
+A143;ALBAVILLA;CO
+A145;ALBENGA;SV
+A146;ALBERA;LI
+A149;ALBEROBELLO;BA
+A150;ALBERONA;FG
+A153;ALBESE;CO
+A154;ALBETTONE;VI
+A155;ALBI;CZ
+A158;ALBIANO;TN
+A157;ALBIANO D'IVREA;TO
+A159;ALBIATE;MI
+A160;ALBIDONA;CS
+A161;ALBIGNASEGO;PD
+A162;ALBINEA;RE
+A163;ALBINO;BG
+A164;ALBIOLO;CO
+A166;ALBISOLA;SU
+A165;ALBISSOLA;MA
+A167;ALBIZZATE;VA
+A171;ALBONESE;PV
+A172;ALBOSAGGIA;SO
+A173;ALBUGNANO;AT
+A175;ALBUZZANO;PV
+A176;ALCAMO;TP
+A177;ALCARA;LI
+A178;ALDENO;TN
+A179;ALDINO .ALDEIN.;BZ
+A180;ALES;OR
+A182;ALESSANDRIA;AL
+A183;ALESSANDRIA;DE
+A181;ALESSANDRIA;DE
+A184;ALESSANO;LE
+A185;ALEZIO;LE
+A186;ALFANO;SA
+A187;ALFEDENA;AQ
+A188;ALFIANELLO;BS
+A189;ALFIANO;NA
+A191;ALFONSINE;RA
+A192;ALGHERO;SS
+A193;ALGUA;BG
+A194;ALI';ME
+A201;ALI';TE
+A195;ALIA;PA
+A196;ALIANO;MT
+A197;ALICE;BE
+A198;ALICE;CA
+A199;ALICE;SU
+A200;ALIFE;CE
+A202;ALIMENA;PA
+A203;ALIMINUSA;PA
+A204;ALLAI;OR
+A206;ALLEGHE;BL
+A205;ALLEIN;AO
+A207;ALLERONA;TR
+A208;ALLISTE;LE
+A210;ALLUMIERE;RM
+A211;ALLUVIONI;CA
+A214;ALME';BG
+A216;ALMENNO;SA
+A217;ALMENNO;SA
+A218;ALMESE;TO
+A220;ALONTE;VI
+A221;ALPETTE;TO
+A222;ALPIGNANO;TO
+A223;ALSENO;PC
+A224;ALSERIO;CO
+A225;ALTAMURA;BA
+A226;ALTARE;SV
+A228;ALTAVILLA;IR
+A229;ALTAVILLA;MI
+A227;ALTAVILLA;MO
+A230;ALTAVILLA;SI
+A231;ALTAVILLA;VI
+A233;ALTIDONA;AP
+A234;ALTILIA;CS
+A235;ALTINO;CH
+A236;ALTISSIMO;VI
+A237;ALTIVOLE;TV
+A238;ALTO;CN
+A239;ALTOFONTE;PA
+A240;ALTOMONTE;CS
+A241;ALTOPASCIO;LU
+A242;ALVIANO;TR
+A243;ALVIGNANO;CE
+A244;ALVITO;FR
+A246;ALZANO;LO
+A245;ALZANO;SC
+A249;ALZATE;BR
+A251;AMALFI;SA
+A252;AMANDOLA;AP
+A253;AMANTEA;CS
+A254;AMARO;UD
+A255;AMARONI;CZ
+A256;AMASENO;FR
+A257;AMATO;CZ
+A258;AMATRICE;RI
+A259;AMBIVERE;BG
+A260;AMBLAR;TN
+A261;AMEGLIA;SP
+A262;AMELIA;TR
+A263;AMENDOLARA;CS
+A264;AMENO;NO
+A265;AMOROSI;BN
+A267;AMPEZZO;UD
+A268;ANACAPRI;NA
+A269;ANAGNI;FR
+A270;ANCARANO;TE
+A271;ANCONA;AN
+A272;ANDALI;CZ
+A274;ANDALO;TN
+A273;ANDALO;VA
+A275;ANDEZENO;TO
+A278;ANDORA;SV
+A280;ANDORNO;MI
+A281;ANDRANO;LE
+A282;ANDRATE;TO
+A283;ANDREIS;PN
+A284;ANDRETTA;AV
+A285;ANDRIA;BA
+A286;ANDRIANO .ANDRIAN.;BZ
+A287;ANELA;SS
+A288;ANFO;BS
+A290;ANGERA;VA
+A291;ANGHIARI;AR
+A292;ANGIARI;VR
+A293;ANGOLO;TE
+A294;ANGRI;SA
+A295;ANGROGNA;TO
+A297;ANGUILLARA;SA
+A296;ANGUILLARA;VE
+A299;ANNICCO;CR
+A301;ANNONE;DI
+A302;ANNONE;VE
+A303;ANOIA;RC
+A304;ANTEGNATE;BG
+A306;ANTERIVO .ALTREI.;BZ
+A305;ANTEY-SAINT-ANDRE';AO
+A309;ANTICOLI;CO
+A312;ANTIGNANO;AT
+A313;ANTILLO;ME
+A314;ANTONIMINA;RC
+A315;ANTRODOCO;RI
+A317;ANTRONA;SC
+A318;ANVERSA;DE
+A319;ANZANO;DE
+A320;ANZANO;DI
+A321;ANZI;PZ
+A323;ANZIO;RM
+A324;ANZOLA;DE
+A325;ANZOLA D'OSSOLA;VB
+A326;AOSTA;AO
+A327;APECCHIO;PU
+A328;APICE;BN
+A329;APIRO;MC
+A330;APOLLOSA;BN
+A333;APPIANO;GE
+A332;APPIANO;SU
+A334;APPIGNANO;MC
+A335;APPIGNANO;DE
+A337;APRICA;SO
+A338;APRICALE;IM
+A339;APRICENA;FG
+A340;APRIGLIANO;CS
+A341;APRILIA;LT
+A343;AQUARA;SA
+A344;AQUILA D'ARROSCIA;IM
+A346;AQUILEIA;UD
+A347;AQUILONIA;AV
+A348;AQUINO;FR
+A350;ARADEO;LE
+A351;ARAGONA;AG
+A352;ARAMENGO;AT
+A354;ARBA;PN
+A357;ARBOREA;OR
+A358;ARBORIO;VC
+A359;ARBUS;CA
+A360;ARCADE;TV
+A363;ARCE;FR
+A365;ARCENE;BG
+A366;ARCEVIA;AN
+A367;ARCHI;CH
+A369;ARCIDOSSO;GR
+A370;ARCINAZZO;RO
+A371;ARCISATE;VA
+A372;ARCO;TN
+A373;ARCOLA;SP
+A374;ARCOLE;VR
+A375;ARCONATE;MI
+A376;ARCORE;MI
+A377;ARCUGNANO;VI
+A379;ARDARA;SS
+A380;ARDAULI;OR
+M213;ARDEA;RM
+A382;ARDENNO;SO
+A383;ARDESIO;BG
+A385;ARDORE;RC
+A386;ARENA;VV
+A387;ARENA;PO
+A388;ARENZANO;GE
+A389;ARESE;MI
+A390;AREZZO;AR
+A391;ARGEGNO;CO
+A392;ARGELATO;BO
+A393;ARGENTA;FE
+A394;ARGENTERA;CN
+A396;ARGUELLO;CN
+A397;ARGUSTO;CZ
+A398;ARI;CH
+A399;ARIANO;IR
+A400;ARIANO;NE
+A401;ARICCIA;RM
+A402;ARIELLI;CH
+A403;ARIENZO;CE
+A405;ARIGNANO;TO
+A407;ARITZO;NU
+A409;ARIZZANO;VB
+A412;ARLENA;DI
+A413;ARLUNO;MI
+A414;ARMENO;NO
+A415;ARMENTO;PZ
+A418;ARMO;IM
+A419;ARMUNGIA;CA
+A424;ARNAD;AO
+A421;ARNARA;FR
+A422;ARNASCO;SV
+A425;ARNESANO;LE
+A427;AROLA;VB
+A429;ARONA;NO
+A430;AROSIO;CO
+A431;ARPAIA;BN
+A432;ARPAISE;BN
+A433;ARPINO;FR
+A434;ARQUA';PE
+A435;ARQUA';PO
+A437;ARQUATA;DE
+A436;ARQUATA;SC
+A438;ARRE;PD
+A439;ARRONE;TR
+A441;ARSAGO;SE
+A443;ARSIE';BL
+A444;ARSIERO;VI
+A445;ARSITA;TE
+A446;ARSOLI;RM
+A447;ARTA;TE
+A448;ARTEGNA;UD
+A449;ARTENA;RM
+A451;ARTOGNE;BS
+A452;ARVIER;AO
+A453;ARZACHENA;SS
+A440;ARZAGO D'ADDA;BG
+A454;ARZANA;NU
+A455;ARZANO;NA
+A456;ARZENE;PN
+A458;ARZERGRANDE;PD
+A459;ARZIGNANO;VI
+A460;ASCEA;SA
+A461;ASCIANO;SI
+A462;ASCOLI;PI
+A463;ASCOLI;SA
+A464;ASCREA;RI
+A465;ASIAGO;VI
+A467;ASIGLIANO;VE
+A466;ASIGLIANO;VE
+A470;ASOLA;MN
+A471;ASOLO;TV
+A473;ASSAGO;MI
+A474;ASSEMINI;CA
+A475;ASSISI;PG
+A476;ASSO;CO
+A477;ASSOLO;OR
+A478;ASSORO;EN
+A479;ASTI;AT
+A480;ASUNI;OR
+A481;ATELETA;AQ
+A482;ATELLA;PZ
+A484;ATENA;LU
+A485;ATESSA;CH
+A486;ATINA;FR
+A487;ATRANI;SA
+A488;ATRI;TE
+A489;ATRIPALDA;AV
+A490;ATTIGLIANO;TR
+A491;ATTIMIS;UD
+A492;ATZARA;NU
+A493;AUDITORE;PU
+A494;AUGUSTA;SR
+A495;AULETTA;SA
+A496;AULLA;MS
+A497;AURANO;VB
+A499;AURIGO;IM
+A501;AURONZO;DI
+A502;AUSONIA;FR
+A503;AUSTIS;NU
+A506;AVEGNO;GE
+A507;AVELENGO .HAFLING.;BZ
+A508;AVELLA;AV
+A509;AVELLINO;AV
+A511;AVERARA;BG
+A512;AVERSA;CE
+A514;AVETRANA;TA
+A515;AVEZZANO;AQ
+A516;AVIANO;PN
+A517;AVIATICO;BG
+A518;AVIGLIANA;TO
+A519;AVIGLIANO;PZ
+M258;AVIGLIANO;UM
+A520;AVIO;TN
+A521;AVISE;AO
+A522;AVOLA;SR
+A523;AVOLASCA;AL
+A094;AYAS;AO
+A108;AYMAVILLES;AO
+A525;AZEGLIO;TO
+A526;AZZANELLO;CR
+A527;AZZANO D'ASTI;AT
+A530;AZZANO;DE
+A529;AZZANO;ME
+A528;AZZANO;SA
+A531;AZZATE;VA
+A532;AZZIO;VA
+A533;AZZONE;BG