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,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;