发布一个自动生成身份证号的小东东. (0分)

K

kypansky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #1

我做了一个自动生成身份证号的小东东(压缩后共300K左右)
功能如下:
1.能设置每次生成的记录数;
2.能设置生成指定起止年份的身份证号码.
3.同时生成15位和18位的.
4.同时随机生成姓名
5.同时随机生成性别.姓名和性别按中国优统的方式取得.如王志东 男, 吴敏 女等;
说明这个是用D5+Access版本做的,可以将数据库导入SQL Server后自己生级)
想要的,请留E_mail.这个东东到底有什么用呢? 有些单位可能用得上.请不要用于不法用途.
对你没有什么用的,请不要顶.

 

S

serene_he

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #2

我要，我现在做的项目需要这个东东，谢谢
hejg@sunv.com

 

强

强人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #3

GUID 就可以

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #4

这个东西的关键在于15位升至18位有个算法。这个算法我有，谁要谁举手。

 

W

wzs1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #5

wzs@minipacs.com
thanks

 

P

Passion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #6

shanzhashu@163.com
需要这个。

 

K

kypansky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-14

• #7

To：桦树皮
能否将你的算法公布一下呢.要delphi版本的哟.
================================================
来自：强人, 时间：2003-11-12 11:43:00, ID：2288596
GUID 就可以
================================================
何为GUID?可否说一下?

 

S

Seven77

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #8

wang77@299.net
thanks

 

C

chenshaizi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #9

chenshaizi@vip.163.com

 

T

thj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #10

chgsx@126.COM

 

L

love51

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #11

谢谢我要算法
LOVE51@163.COM

 

K

kypansky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #12

To：桦树皮
请按下列邮件列表,将你的算法发给大家哟.别失信呀!
=====================================================
hejg@sunv.com
LOVE51@163.COM
chgsx@126.COM
chenshaizi@vip.163.com
wzs@minipacs.com
shanzhashu@163.com
====================== 2003.11.12 13:30

 

I

ing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #13

能說說你是怎麼實現得嗎？

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #14

哈哈哈，不好意思啊。刚才出去了。没想到这么多人要啊。
在15位身份证号的第六位后加19，然后把这个17位的值以字符串类型做参数传进去就能返回最后的校验位了。
function IDToNewID(ID: string): string;
var
i, SfzXy: Integer;
XYM: string;
a: array[0..17] of string;
begin
a[0] := '0';
a[1] := '7';
a[2] := '9';
a[3] := '10';
a[4] := '5';
a[5] := '8';
a[6] := '4';
a[7] := '2';
a[8] := '1';
a[9] := '6';
a[10] := '3';
a[11] := '7';
a[12] := '9';
a[13] := '10';
a[14] := '5';
a[15] := '8';
a[16] := '4';
a[17] := '2';
SfzXy := 0;
for i := 1 to 17do
SfzXy := SfzXy + StrToInt(Copy(ID, i, 1)) * strtoInt(a);
case (SfzXy mod 11) of
0: XYM := '1';
1: XYM := '0';
2: XYM := 'X';
3: XYM := '9';
4: XYM := '8';
5: XYM := '7';
6: XYM := '6';
7: XYM := '5';
8: XYM := '4';
9: XYM := '3';
10: XYM := '2';
end;
Result := XYM;
end;

 

X

xl4772

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #15

怎么个“同时随机生成姓名和性别”法？？[]

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #16

性别不用随机生成的。
对于18位的身份证号，第17位如果是奇数就是男，偶数就是女。
对于15位身份证号，第15位如果是奇数就是男，偶数就是女。

 

V

vickymade

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #17

vsoft@163.com

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #18

我要 master@de-guan.com

 

S

sailorboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #19

sailorboy@yeah.net
谢谢

 

S

sars1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #20

glassmao@qingdaonews.com
thanks