求一份***号生成源码

海娜百川520

求一份***号生成源码


补充内容 (2016-7-14 13:49):
身fen证号

太阳i

1. .版本 2
   
2. 
   
3. .子程序 取随机区号, 文本型, 公开
   
4. .局部变量 区号, 文本型, , "0"
   
5. 
   
6. 区号 ＝ { “110100”, “110102”, “110103”, “110104”, “110105”, “110106”, “110107”, “110108”, “110109”, “110110”, “110111”, “110112”, “110113”, “110114”, “110115”, “110116”, “110117”, “110118”, “130100”, “130200”, “130300”, “130400”, “130500”, “130600”, “130700”, “220100”, “220200”, “220300”, “220400”, “220500”, “220600”, “220700”, “370100”, “370200”, “370300”, “370400”, “370500”, “370600”, “441200”, “441300”, “441400”, “441500”, “441600”, “441700”, “441800”, “441900”, “500231”, “500232”, “500233”, “500234”, “500235”, “500236”, “500237”, “500238”, “500239”, “610100”, “610200”, “610300”, “610400”, “610500”, “610600”, “610700” }
   
7. 置随机数种子 ()
   
8. 返回 (区号 [取随机数 (1, 62)])
   

复制代码

补充内容 (2016-7-14 14:05):
这是随机区号的

天哭蓝了海

http://bbs.125.la/forum.php?mod= ... 1&highlight=SFZ
你可以去下载一下。

海娜百川520

天哭蓝了海 发表于 2016-7-14 13:52
http://bbs.125.la/forum.php?mod=viewthread&tid=13679471&highlight=SFZ
你可以去下载一下。

这个我早在论坛上找了，但是我不要这样的，我要简洁的点的

天哭蓝了海

海娜百川520 发表于 2016-7-14 13:57
这个我早在论坛上找了，但是我不要这样的，我要简洁的点的

具体点呢？

海娜百川520

天哭蓝了海 发表于 2016-7-14 13:58
具体点呢？

代码要简单的。。

太阳i

1. .版本 2
   
2. 
   
3. .子程序 取随机***, 文本型, 公开
   
4. .局部变量 加权因子, 整数型, , "17"
   
5. .局部变量 校验码串, 文本型, , "11"
   
6. .局部变量 年份, 文本型, , "32"
   
7. .局部变量 月份, 文本型, , "12"
   
8. .局部变量 日期, 文本型, , "30"
   
9. .局部变量 数据, 整数型
   
10. .局部变量 计次, 整数型
    
11. .局部变量 位, 文本型
    
12. .局部变量 累加, 整数型
    
13. .局部变量 局_返回, 文本型
    
14. .局部变量 现数据, 文本型, , "4"
    
15. .局部变量 校验码, 文本型
    
16. .局部变量 区号, 文本型
    
17. 
    
18. 置随机数种子 ()
    
19. 区号 ＝ 取随机区号 ()
    
20. 年份 ＝ { “1960”, “1961”, “1962”, “1963”, “1964”, “1965”, “1966”, “1967”, “1968”, “1969”, “1970”, “1971”, “1972”, “1973”, “1974”, “1975”, “1976”, “1977”, “1978”, “1979”, “1980”, “1981”, “1982”, “1983”, “1984”, “1985”, “1986”, “1987”, “1988”, “1989”, “1990”, “1991” }
    
21. 月份 ＝ { “01”, “02”, “03”, “04”, “05”, “06”, “07”, “08”, “09”, “10”, “11”, “12” }
    
22. 日期 ＝ { “01”, “02”, “03”, “04”, “05”, “06”, “07”, “08”, “09”, “10”, “11”, “12”, “13”, “14”, “15”, “16”, “17”, “18”, “19”, “20”, “21”, “22”, “23”, “24”, “25”, “26”, “27”, “28”, “29”, “30 ” }
    
23. 加权因子 ＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 }
    
24. 校验码串 ＝ { “1”, “0”, “X”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2” }
    
25. 现数据 [1] ＝ 年份 [取随机数 (1, 32)]
    
26. 现数据 [2] ＝ 月份 [取随机数 (1, 12)]
    
27. 现数据 [3] ＝ 日期 [取随机数 (1, 30)]
    
28. 局_返回 ＝ 现数据 [1] ＋ 现数据 [2] ＋ 现数据 [3]
    
29. 置随机数种子 ()
    
30. 数据 ＝ 取随机数 (100, 999)
    
31. 局_返回 ＝ 区号 ＋ 局_返回 ＋ 到文本 (数据)
    
32. .计次循环首 (17, 计次)
    
33.     位 ＝ 取文本中间 (局_返回, 计次, 1)
    
34.     累加 ＝ 累加 ＋ 到数值 (位) × 加权因子 [计次]
    
35. .计次循环尾 ()
    
36. 校验码 ＝ 校验码串 [累加 ％ 11 ＋ 1]
    
37. 局_返回 ＝ 局_返回 ＋ 校验码
    
38. 现数据 [4] ＝ 局_返回
    
39. 返回 (删全部空 (现数据 [4]))
    

复制代码

补充内容 (2016-7-14 14:04):
希望解决你的问题

海娜百川520

太阳i 发表于 2016-7-14 14:05
补充内容 (2016-7-14 14:05):
这是随机区号的

你这种类别的可以，但是后面的呢？怎么生成