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

CREATE OR REPLACE FUNCTION f_id_verify(pid VARCHAR2) RETURN VARCHAR2 IS
RESULT VARCHAR2(18);
TYPE char_tabletype IS TABLE OF VARCHAR2(1) NOT NULL INDEX BY BINARY_INTEGER;
TYPE num_tabletype IS TABLE OF NUMBER NOT NULL INDEX BY BINARY_INTEGER;
tab_a char_tabletype;
tab_w num_tabletype;
tab_i char_tabletype;
i NUMBER(2) := 0;
len NUMBER(2) := length(rtrim(ltrim(pid)));
sigma NUMBER(4) := 0;
BEGIN
tab_i(0) := '1';
tab_i(1) := '0';
tab_i(2) := 'x';
tab_i(3) := '9';
tab_i(4) := '8';
tab_i(5) := '7';
tab_i(6) := '6';
tab_i(7) := '5';
tab_i(8) := '4';
tab_i(9) := '3';
tab_i(10) := '2';
IF len = 18 THEN
FOR i IN 1 .. 17
LOOP
tab_w(i) := MOD(power(2, ((19 - i) - 1)), 11);
tab_a(i) := substr(pid, i, 1);
sigma := sigma + tab_w(i) * tab_a(i);
END LOOP;
RESULT := substr(pid, 1, 17) || tab_i(MOD(sigma, 11));
END IF;
RETURN(RESULT);
END f_id_verify;
/[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/18921899/viewspace-1017653/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/18921899/viewspace-1017653/