delphi 18位身份证号码的校验


本文整理自网络,侵删。

 18位公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成。
组成:六位地址,八位生日,三位顺序码, 一位校验码。校验方法:
(1)十七位数字本体码加权求和公式
S = Sum(Ai * Wi), i = 0, … , 16 ,先对前17位数字的权求和
Ai:表示第i位置上的身份证号码数字值
Wi:表示第i位置上的加权因子
Wi: 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2

(2)计算模
Y = mod(S, 11)

(3)通过模得到对应的校验码
Y: 0 1 2 3 4 5 6 7 8 9 10
校验码: 1 0 X 9 8 7 6 5 4 3 2

代码如下:
Function Verify(Num : String):Boolean;
const
WI :array[0..16] of Integer = (7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2);
VC :array[0..10] of Char = (’1′, ’0′, ‘X’, ’9′, ’8′, ’7′, ’6′, ’5′, ’4′, ’3′, ’2′);
var
P : PChar;
I, S : Integer;
begin
P := PChar(Num);
S := 0;
for I := 0 to 16 do
S := S + (Ord(P[I]) ?C $30)*WI[I];
S := S mod 11;
Result := P[17] = VC[S];
end;

相关阅读 >>

Delphi 如何确定windows安装的语言

Delphi 判断两个时间差是否在一个指定范围内

Delphi richedit接受消息的问题

Delphi中combobox.items.indexof用法

Delphi自带的indy控件实现md5加密

Delphi win7下超级管理员创建普通权限任务

Delphi drawing text 绘制文本

Delphi 附加数据读取

Delphi 替换系统文件实现绕过杀软启动

minsperday:一天中有多少分钟

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...