Delphi之18位身份證號碼驗證

18位公民身份號碼是特徵組合碼，由十七位數字本體碼和一位校驗碼組成。

組成:六位地址，八位生日，三位順序碼, 一位校驗碼。校驗方法：

（1）十七位數字本體碼加權求和公式

S = Sum(Ai * Wi), i = 0, … , 16 ，先對前17位數字的權求和

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)

 

（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 ID2CodeVerify(IdCode : AnsiString):Boolean;
const
  WI: array[0..16] of Integer = (7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2);
  VC: array[0..10] of AnsiChar = ('1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2');
var
  P: PAnsiChar;
  I, S: Integer;
begin
  Result := False;
  if Length(IdCode) <> 18 then Exit;
  P := PAnsiChar(IdCode);
  S := 0;
  for I := 0 to 16 do
    S := S + (Ord(P[I]) - $30) * WI[I];

  S := S mod 11;   Result := P[17] = VC[S]; end;