IAPP-身份证号最后一位校验

//说明:本程序用于根据身份证号前17位数字来计算正确的效验码，即最后一位数字
//原身份证号 430921200112242918

//身份证号前17位
s give="43092120011224291"
slg(give,cd)
//初始化截取开始位置
s start=0
//初始化截取结束位置
s end=1
//初始化身份证号位数
s d=1
s sum=0
for(1;cd)
{
  ssg(give,start,end,e)
//将身份证号前17位数字和系数相乘的结果相加
  f(d==1)
  {
    s(sum+e*7,sum)
  }
else f(d==2)
  {
    s(sum+e*9,sum)
  }
else f(d==3)
  {
    s(sum+e*10,sum)
  }
else f(d==4)
  {
    s(sum+e*5,sum)
  }
else f(d==5)
  {
    s(sum+e*8,sum)
  }
else f(d==6)
  {
    s(sum+e*4,sum)
  }
else f(d==7)
  {
    s(sum+e*2,sum)
  }
else f(d==8)
  {
    s(sum+e*1,sum)
  }
else f(d==9)
  {
    s(sum+e*6,sum)
  }
else f(d==10)
  {
    s(sum+e*3,sum)
  }
else f(d==11)
  {
    s(sum+e*7,sum)
  }
else f(d==12)
  {
    s(sum+e*9,sum)
  }
else f(d==13)
  {
    s(sum+e*10,sum)
  }
else f(d==14)
  {
    s(sum+e*5,sum)
  }
else f(d==15)
  {
    s(sum+e*8,sum)
  }
else f(d==16)
  {
    s(sum+e*4,sum)
  }
else f(d==17)
  {
    s(sum+e*2,sum)
  }
  //截取开始位置+1
  s(start+1,start)
  //截取结束位置+1
  s(end+1,end)
//循环一次，身份证号位数加1，直到17
  s(d+1,d)
}

//用加出来的和跟11取余，余数只可能为0-10这11个数字，否则身份证号是错的
s(sum%11,rem)
//判断余数对应的效验码，即身份证号的最后一位数字
f(rem==0)
{
  s check=1
  }
else f(rem==1)
{
  s check=0
}
else f(rem==2)
{
  s check=X
}
else f(rem==3)
{
  s check=9
}
else f(rem==4)
{
  s check=8
}
else f(rem==5)
{
  s check=7
}
else f(rem==6)
{
  s check=6
}
else f(rem==7)
{
  s check=5
}
else f(rem==8)
{
  s check=4
}
else f(rem==9)
{
  s check=3
}
else f(rem==10)
{
  s check=2
  }

//输出正确的效验码，即身份证号最后一位数
syso(check)
本代码仅仅学习测试 请勿用于非法