破译身份证

aimisiyou

一名男子身份证前十七位为一质数，第十八位为x,前六位为422121，能破译他的身份证吗？

gxqcn

此人，男，湖北省黄冈地区黄冈县人士，满足要求的应很多。若知其大概年龄，可收窄搜索范围。

wayne

gxqcn 发表于 2015-10-19 07:54
此人，男，湖北省黄冈地区黄冈县人士，满足要求的应很多。若知其大概年龄，可收窄搜索范围。

没有黄冈县吧，

aimisiyou

数值越大，质数越稀疏，17位仍是质数就可把范围缩小不少吧！

aimisiyou

前17位是质数已经说明性别了，信息有点累赘了。

aimisiyou

顺便说一下，像我们网上订购的火车票，虽然信息上身份证只有4个用星号隐藏，但可能数不超过40个！所以建议用完后及时处理,避免信息外漏!

aimisiyou

aimisiyou 发表于 2015-10-19 11:12
数值越大，质数越稀疏，17位仍是质数就可把范围缩小不少吧！

@KeyTo9_Fans 没你说的那么多.其实应该*500,而不是*1000.另外第十八位校验码是根据前十七位计算得出,故还有这一限制条件.

cn8888

1. Clear["Global`*"];(*Clear all variables*)
   
2. (*校验码的数字*)
   
3. checkseq={7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2};
   
4. Do[
   
5.     (*前17位的号码*)
   
6.     ID17=422121*10^11+(year*10^4+month*10^2+day)*1000+num;
   
7.     IDDigits=IntegerDigits[ID17];
   
8.     If[Mod[IDDigits.checkseq,11]==10&&PrimeQ[ID17],Print[ID17]],
   
9.     {year,1900,2015},{month,1,12},{day,1,31},{num,1,999,2}]
   

复制代码

看看这个代码就知道能运行处多少个结果了!
太多了

aimisiyou

cn8888 发表于 2015-10-20 08:57
看看这个代码就知道能运行处多少个结果了!
太多了

今天下午下载并安装了M，并且是第一次使用M，复制了你的代码稍作修改

1. Clear["Global`*"];(*Clear all variables*)(*校验码的数字*)
   
2. checkseq = {7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2};
   
3. Do[(*前17位的号码*)
   
4. ID17 = 422121*10^11 + (year*10^4 + month*10^2 + day)*1000 + num;
   
5. ID19 = ID17*100 + 29;
   
6. IDDigits = IntegerDigits[ID17];
   
7. If[Mod[IDDigits.checkseq, 11] == 2 && PrimeQ[ID17] && PrimeQ[ID19],
   
8.   Print[ID17]], {year, 1983, 1983}, {month, 1, 12}, {day, 1, 31}, {num, 1, 999, 2}]

复制代码

运行结果怎么会有遗漏？还是我哪里修改错误？

cn8888

aimisiyou 发表于 2015-11-5 22:43
今天下午下载并安装了M，并且是第一次使用M，复制了你的代码稍作修改

你的目的是什么，你说了吗？我看不懂你想干什么