求随机生成15或18位身份证号的源程序或方法(50)

  • 主题发起人 主题发起人 lytianshi
  • 开始时间 开始时间
L

lytianshi

Unregistered / Unconfirmed
GUEST, unregistred user!
求随机生成15或18位身份证号的源程序或方法
 
初始设置变量s:=‘’,进行一个为15或18次的循环,s:= randomfrom(['1','2'....'9']);//初始位不能为0for i:= 1 to 14 dobegin s:= s+random(9);end;s既是身份证号码。
 
只是用于测试就可以。如果有要求,还应该明白数字在身份证号中表示的含义。
 
是的啊,比如每个地区的区号像洛阳的410322.我就不知道各个地方的区号是多少?你可以建立一个数据库表,用于记录各个地区的区号,然后添加到randomfrom(['1','2'....'9'])的数组里,获得随机码,加上随机日期等。我也不明白身份证得规则是什么,只有从2为到15随机获得0-9数字。
 
上网查,有的说
 
在网上可以搜到很多方法啊。好象:15位是指11 22 33 44 55 66 77 8省省 市市 区区 年年 月月 日日 流水 校验号18位是指11 22 33 4444 55 66 777 8省省 市市 区区 年年年的 月月 日日 流水号 校验号校验号是有一个算法的,网上可以搜到。
 
肯定是做坏事的,我懂怎么做但不想告诉你
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部