关于新18位身份证最后一位校验位算法(50分)

  • 主题发起人 主题发起人 cyi
  • 开始时间 开始时间
难道没有人知道?
 
呵呵,我还不知道18为号码有什么特征呢,惭愧……
 
是否举个号码出来看看?
猜测:
是否前17位加起来,末位数与 第18位相加为 10或者 0?
或者就是 前17位加起来的末位数
 
没那马简单把
 
狗屁!这个加密算法肯定是保密的,否则随便作个身份证就是真的
 
应该是保密的
 
应该是不加密的,检验位只是为了防止输号码时输错而已。
以前在报纸上看过,没留意而已。
要是加密,只有一位就想加密?
 
老兄:
您想做 What?
 
我也想知道,我一个同学(女)的号码最后一位数是奇数,真奇怪!(男性才是奇数)
 
试一试,不知是否你所要的
----------------------------------------------------------------
详细内容:
procedure TForm1.Button2Click(Sender: TObject);
var
num, i: integer;
PersonID: ShortString;
Code: string[1];
begin
PersonID := '13010319620914121';
PersonID := '34052419800101001';
num:= 0;
for i := 18do
wnto 2do
num := num + Trunc(power(2, i-1)) mod 11 * (ord(PersonID[19 - i])-$30);
num := num mod 11;
case num of
0: code := '1';
1: code := '0';
2: code := 'X';
3: code := '9';
4: code := '8';
5: code := '7';
6: code := '6';
7: code := '5';
8: code := '4';
9: code := '3';
10: code := '2';
end;
PersonID := PersonID + code;
end;
 
>我也想知道,我一个同学(女)的号码最后一位数是奇数,真奇怪!(男性才是奇数)
15 位才如你所说!
18 位判断性别应该看倒数第二位(第 17 位)的奇偶
 
谢谢个位关注:50大洋送给wulianmin
 
后退
顶部