Delphi获取身份证号码验证码算法

18身份证号码的结构

　　公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成

　　排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位校验码 
1、地址 
　　表示编码对象常住户口所在县(市、旗、区)的行政区域划分代码，按GB/T2260的规定执行
2、出生日期码 
　　表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日代码之间不用分隔符 
3、顺序码 
　　表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女
4、校验码计算步骤

(1)十七位数字本体码加权求和公式 
　　S = Sum(Ai * Wi), i = 0, ... , 16 ，先对前17位数字的权求 
　　Ai:表示第i位置上的身份证号码数字(0~9) 
　　Wi:7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 （表示第i位置上的加权因子
(2)计算 
　　Y = mod(S, 11)

(3)根据模，查找得到对应的校验码 
　　Y: 0 1 2 3 4 5 6 7 8 9 10 
　　校验: 1 0 X 9 8 7 6 5 4 3 2

function GetIDCardNumCheckCode(aIDCardNum: string): Integer;
const
  WIArray: Array[0..16] of Integer = (7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2);
  ModCode: array [0..10] of string = ('1','0','X','9','8','7','6','5','4','3','2');
var
  I, Sum, ModResult: Integer;
begin
  Result := -1;
  Sum := 0;
  if Length(aIDCardNum) < 17 then
    Exit;
  for I := 0 to Length(WIArray) - 1 do
  begin
    Sum := Sum + StrToInt(aIDCardNum[I+1]) * WIArray[I];
  end;
  ModResult := Sum mod 11;
  Result := StrToInt(ModCode[ModResult]);
end;

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满