变换控制模块：
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
获得1八位真实身份证号：GetNewIDCard(15位真实身份证号) 十年单独网站源代码开发设计、网页美工工作经验。全部网站源代码均为原創开发设计，决不应用完全免费网站源代码改动。原創版网站决不会再卖给第三方应用。所卖出网站源代码请不必给第三方应用。