ZeroXIA

#!/usr/bin/perl
use warnings;
use strict;
 
## constants
my @factors = qw( 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 );
my @modsel  = qw( 1 0 X 9 8 7 6 5 4 3 2 );
 
## input
my $idnum   = 'ABCDEFYYYYMMDDXXXR';
my @digs;
if (defined($ARGV[0])) {
    $idnum = $ARGV[0];
    @digs = split '', $ARGV[0];
    unless ( ($ARGV[0] =~ /^[0-9]{17}(?:[0-9X])?$/i) &&
            (scalar(@digs) == 17 || scalar(@digs) == 18) ) {
        print STDERR "Invalid ID num input: $ARGV[0]\n";
        die "Usage: $0 IDNUM\n";
    }
} else {
    @digs = split '', $idnum;
}
 
## calculation
my $checksum = 0;
for my $i (0 .. 16) {
    # use "$factors[0] + 0" to force arithmetic calculation
    $checksum += $digs[$i] * ($factors[$i] + 0);
}
 
## checksum suffix
my $lastdig = $modsel[ $checksum % 11 ];
 
## result
print "ID num input: $idnum\n";
print "Checksum    : $checksum\n";
print "Suffix char : $lastdig\n";
 
exit 0;
 
## documentation
 
=item DESC
校验码是通过一系列数学计算得出来的，具体校验的计算方式如下：
 
　　1. 对前17位数字本体码加权求和
 
　　公式为：S = Sum(Ai * Wi), i = 0, ... , 16
　　其中Ai表示第i位置上的身份证号码数字值，Wi表示第i位置上的加权因子，其各位对应的值依次为： 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
 
通俗解释：身份证第一位数字X7+第二位X9+第三位X10+第四位X5+第五位X5+第六位X8+第七位X4+第八位X1+第九位X6+第十位X3+十一位X7+十二位X9+十三位X10+十四位X5+十五位X8+十六位X4+十七位X2；计算出总和（用S）表示。
 
　　2. 以11对计算结果取模
 
　　Y = mod(S, 11)
 
通俗解释：用S除以11，看最后的余数。如果除尽，为0；余数为1，则计为1；最大余数为10；全部数字为0-10共11个数字。（用Y表示）。
 
　　3. 根据模的值得到对应的校验码
 
　　对应关系为：
　　Y值： 0 1 2 3 4 5 6 7 8 9 10
　　校验码： 1 0 X 9 8 7 6 5 4 3 2
通俗解释：余数为0，则校验码为1；依次类推：余数为1，则校验码对应0；以下：2--X；3--9；4--8；5--7；6--6；7--5；8--4；9--3；10--2。
 
如果校验码不符合这个规则，则肯定是假号码。
 
关于18位身份证号码尾数是“X”的一种解释：因为按照上面的规则，校验码有11个，而不是10个，所以不能用0-9表示。所以如果尾号是10，那么就得用X来代替，因为如果用10做尾号，那么此人的身份证就变成了19位，而19位的号码违反了国家标准，并且我国的计算机应用系统也不承认19位的身份证号码。Ⅹ是罗马数字的10，用X来代替10，可以保证公民的身份证符合国家标准。
 
根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
=cut