開機腳本之——身份證校驗碼計算

這是偶爾用用的小功能。

+!s:: MsgBox, 4096,, % 18位身份證校驗碼計算(Clipboard)

18位身份證校驗碼計算(身份證)
{
  if (StrLen(身份證)<17)	;校驗碼計算需要身份證前17位
    return
  加權因子:=[7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1]
  Loop, 17
    累和+=SubStr(身份證,A_Index,1)*加權因子[A_Index]
  校驗碼:=SubStr("10X98765432", Mod(累和,11)+1, 1)
  return 校驗碼
}