18位身份证校验算法

身份证校验码算法
身份证校验码产生方法：
∑(ai×Wi)(mod 11)

i: 表示号码字符从由至左包括校验码在内的位置序号；

ai 表示第i位置上的号码字符值；

Wi 第i位置上的加权因子，其数值Wi=mod(power(2,(n-1)),11)

i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1

相应的校验码:
∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
校验码字符值ai 1 0 X 9 8 7 6 5 4 3 2

 

1. create or replace function ID_15to18(idCardNum varchar2) return varchar2 is
2.   Result varchar2(20);
3.   i      smallint;
4.   num    smallint := 0;
5.   sNum   varchar2(2);
6.   code   char(1);
7.   temp17 varchar2(20);
8. begin
10.   if length(idCardNum) = 18 or idCardNum is null then
11.     Result := upper(idCardNum);
12.   elsif length(idCardNum) = 15 then
13.     temp17 := substr(idCardNum, 1, 6) || '19' || substr(idCardNum, 7, 9);
14.     i      := 18;
15.   
16.     while i > 1 loop
17.       num := num + mod(power(2, i - 1), 11) * substr(temp17, 19 - i, 1);
18.       i   := i - 1;
19.     end loop;
20.   
21.     num := mod(num, 11);
22.   
23.     sNum := num || '';
24.     if num = 0 then
25.       code := '1';
26.     elsif num = 1 then
27.       code := '0';
28.     elsif num = 2 then
29.       code := 'X';
30.     else
31.       code := (12 - num) || '';
32.     end if;
33.     Result := temp17 || code;
34.   else
35.     Result := idCardNum;
36.   end if;
37.   return Result;
38. exception
39.   when others then
40.     dbms_output.put_line('ERROE'||idCardNum);
41.   
42. end ID_15to18;