您所在位置：主题：15位身份证升18位身份证算法(自己写的函数)
lm60974
[专家分：90] 发布于 2006-03-29 04:00:00
以下是身份证计算的代码
PARA KK
JJ=SPACE(17)
s=0
j=0
dimension wi(17)
wi(1)=7
wi(2)=9
wi(3)=10
wi(4)=5
wi(5)=8
wi(6)=4
wi(7)=2
wi(8)=1
wi(9)=6
wi(10)=3
wi(11)=7
wi(12)=9
wi(13)=10
wi(14)=5
wi(15)=8
wi(16)=4
wi(17)=2
dimension ai(11)
ai(1)="1"
ai(2)="0"
ai(3)="X"
ai(4)="9"
ai(5)="8"
ai(6)="7"
ai(7)="6"
ai(8)="5"
ai(9)="4"
ai(10)="3"
ai(11)="2"
JJ=SUBST(KK,1,17)
FOR I=1 TO 17
J=VAL(SUBST(JJ,I,1))*WI(I)
S=S+J
ENDFOR
S=MOD(S,11)
JJ=JJ+AI(S+1)
return jj
PARA KK
JJ=SPACE(17)
s=0
j=0
dimension wi(17)
wi(1)=7
wi(2)=9
wi(3)=10
wi(4)=5
wi(5)=8
wi(6)=4
wi(7)=2
wi(8)=1
wi(9)=6
wi(10)=3
wi(11)=7
wi(12)=9
wi(13)=10
wi(14)=5
wi(15)=8
wi(16)=4
wi(17)=2
dimension ai(11)
ai(1)="1"
ai(2)="0"
ai(3)="X"
ai(4)="9"
ai(5)="8"
ai(6)="7"
ai(7)="6"
ai(8)="5"
ai(9)="4"
ai(10)="3"
ai(11)="2"
JJ=SUBST(KK,1,17)
FOR I=1 TO 17
J=VAL(SUBST(JJ,I,1))*WI(I)
S=S+J
ENDFOR
S=MOD(S,11)
JJ=JJ+AI(S+1)
return jj
