18位身份证号码最后一位校验码的计算方法

标签： 身份证 18位校验码原理 java oracle delphi sanoul

公民身份号码是一系列组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。 
前六位的内容可以通过建立数据库存储相应信息，由于全国行政区划每年都在发生变化，需要经常更新。 

最后一位的校验码计算方法如下： 
(1)十七位数字本体码加权求和公式，先对前17位数字加权求和 
S = Sum(Ai×Wi), i = 0,1,2,...,16 
Ai:表示第i位置上的身份证号码数字值 
Wi:表示第i位置上的加权因子，Wi: 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 

(2)计算模 
Y = mod(S, 11) 
Y是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

 

Java：

public static char doVerify(String id_no);
    {
        char pszSrc[]=id_no.toCharArray();;
        int iS = 0;
        int iW[]={7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2};
        char szVerCode[] = new char[]{'1','0', 'X', '9', '8', '7', '6', '5', '4', '3', '2'};
        int i;
        for(i=0;i<17;i++);
        {
            iS += (int);(pszSrc[i]-'0'); * iW[i];
        }
        int iY = iS%11;
        return szVerCode[iY];
    }

Oracle：

create or replace function identity_card18(id_no char) return char is
  Result char(18);
  Type myarray1 is table of number index by binary_integer;
  Type myarray2 is table of char index by binary_integer;
  Ax myarray1;
  Bx myarray2;
  I number(3);
  A number(12,0);
begin
  Ax(1) := 7;
  Ax(2) := 9;
  Ax(3) := 10;
  Ax(4) := 5;
  Ax(5) := 8;
  Ax(6) := 4;
  Ax(7) := 2;
  Ax(8) := 1;
  Ax(9) := 6;
  Ax(10) := 3;
  Ax(11) := 7;
  Ax(12) := 9;
  Ax(13) := 10;
  Ax(14) := 5;
  Ax(15) := 8;
  Ax(16) := 4;
  Ax(17) := 2;
  Bx(1) := '1';
  Bx(2) := '0';
  Bx(3) := 'X';
  Bx(4) := '9';
  Bx(5) := '8';
  Bx(6) := '7';
  Bx(7) := '6';
  Bx(8) := '5';
  Bx(9) := '4';
  Bx(10) := '3';
  Bx(11) := '2';
 
  Result := Trim(Substr(Trim(Id_No),1,17));
 
  If Length(Trim(Result)) = 15 then
    Result := substr(Result,1,6) || '19' || substr(Result,7,9);
  end if;
  
  If Length(Trim(Result)) = 17 then
    A := 0;
    for I in 1..Ax.count loop
      A := A + Ax(i) * to_number(Substr(Result,i,1));
    end loop;
    A := A mod 11;
    Result := Trim(Result) || Bx(A+1);

  else

    Result := '000000000000000000';
  end if;

  return(Result);
end identity_card18;

Delphi:

function Identity_card18(Id_no:String):String;
const
  Ax : Array[0..16] of Integer = (7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2);
  Bx : Array[0..10] of String = ('1','0','X','9','8','7','6','5','4','3','2');
var 
  I,A : Integer;
  S : String;
begin
  S := Trim(Id_No);
  A := 0;

  If Length(Trim(S)) = 15 then
    S := Copy(Trim(S),1,6) + '19' + Copy(Trim(S),7,9);

  If Length(Trim(S)) = 17 then
  Begin
    For I := 0 to 16 do
      A := A + Ax[i] * StrToInt(S[i+1]);
    S := Trim(S) + Bx[A mod 11];
  End Else
    S := '000000000000000000';

  Result := S;
end;