身份證15位轉換成18位代碼(vbscript) - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- 身份證15位轉換成18位代碼(vbscript) (http://www.webasp.net/article/15/14617.htm)

-- 作者：未知 -- 發佈日期： 2004-11-08

今天論壇上有人要這個代碼，有人轉貼了個vb的，圖方便就隨便改寫成了vbs的,並取消了1900年前的判斷，希望原vb作者不要見怪。 如下： <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Function GetNewIDCard(IDCard) Dim i, S ,Wi,Wf,result Wi= split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",",-1,1) Wf= Split("1,0,X,9,8,7,6,5,4,3,2", ",",-1,1) IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9) S=0 For i = 0 To ubound(wi) S = cint(Wi(i)) *cint(Mid(IDCard, i + 1, 1)) +S Next GetNewIDCard=IDCard & Wf(S Mod 11) End Function IDCard=request("idcard") if IDCard<>empty then newidcard=GetNewIDCard(IDCard) response.Write(newidcard) end if %> <form action="" method="post"> <input name="idcard" value="340524800101001"> </form> ---------------------------------- 運行結果： ------------------------ 下邊是轉發的sfply(隨風飄零葉)的規則： 根據【中華人民共和國國家標準 GB 11643-1999】中有關公民身份號碼的規定，公民身份號碼是特徵組合碼，由十七位數字本體碼和一位數字校驗碼組成。排列順序從左至右依次為：六位數字地址碼，八位數字出生日期碼，三位數字順序碼和一位數字校驗碼。 地址碼表示編碼對像常住戶口所在縣(市、旗、區)的行政區劃代碼。生日期碼表示編碼對像出生的年、月、日，其中年份用四位數字表示，年、月、日之間不用分隔符。順序碼表示同一地址碼所標識的區域範圍內，對同年、月、日出生的人員編定的順序號。順序碼的奇數分給男性，偶數分給女性。校驗碼是根據前面十七位數字碼，按照ISO 7064:1983.MOD 11-2校驗碼計算出來的檢驗碼。下面舉例說明該計算方法。 15位的身份證編碼首先把出生年擴展為4位，簡單的就是增加一個19，但是這對於1900年出生的人不使用（這樣的壽星不多了） 某男性公民身份號碼本體碼為34052419800101001，首先按照公式１計算： Σ(ai×Wi)(mod 11)……………………………………(1) 公式(1)中： i----表示號碼字符從由至左包括校驗碼在內的位置序號； ai----表示第i位置上的號碼字符值； Wi----示第i位置上的加權因子，其數值依據公式Wi=2（n-1）(mod 11)計算得出。 i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1 Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1 ai×Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1 根據公式(1)進行計算： Σ(ai×Wi) =（21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189 189 ÷ 11 = 17 + 2/11 Σ(ai×Wi)(mod 11) = 2 然後根據計算的結果，從下面的表中查出相應的校驗碼，其中X表示計算結果為10： Σ(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 根據上表，查出計算結果為2的校驗碼為所以該人員的公民身份號碼應該為 34052419800101001X。 a[0]*7+a[1]*9+a[2]*10+a[3]*5+a[4]*8+a[5]*4+a[6]*2+a[7]*1+a[8]*6+a[9]*3 +a[10]*7+a[11]*9+a[12]*10+a[13]*5+a[14]*8+a[15]*4+a[16]*2 %11

webasp.net