RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

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

作者:admin 来源: 日期:2013/10/10 15:09:55 人气: 标签:

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;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: