关于身份证验证系统的一点奇怪的问题。 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于身份证验证系统的一点奇怪的问题。

我的收件箱(0)

共有 3194 人关注过本帖

标题：关于身份证验证系统的一点奇怪的问题。

只看楼主加入收藏

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 91 楼

得分:0

以下是引用bccn201203在2012-9-25 20:46:27的发言：

字符串中必须有 R 及 r 才起作用

你再研究下这个函数
STREXTRACT( ) 函数
与ALINES()相比是不是相似

?StrExtract("abdcfhresdfjk", 'cf', 'sd', 1) = hre

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-25 21:17

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11858
专家分：43421
注　册：2006-5-13

第 92 楼

得分:17

下面是身份证15位自动转换成18位的函数，也许会对楼主有点用。

PARAMETERS cSFZ15
cSFZ15 = ALLTRIM(cSFZ15)
IF LEN(cSFZ15)<>15 AND LENC(cSFZ15)<>15
    RETURN "不是15位身位证号码!"
ENDIF
    IF NOT CHRTRAN(cSFZ15,"1234567890","")==""
        RETURN "含有非数字,不是身份证号码!"
    ENDIF
    cSFZ17 = STUFF(cSFZ15,7,0,'19')
    cBy17='7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2'
    cCheck='10X98765432'
    nCheck=0
    FOR nCnt=1 TO 17
        nCheck=nCheck+VAL(SUBSTR(cSFZ17,nCnt,1))*VAL(GETWORDNUM(cBy17,nCnt,','))
    NEXT
    RETURN cSFZ17+SUBSTR(cCheck,nCheck%11+1,1)
ENDIF

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2012-09-25 21:32

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 93 楼

得分:0

以下是引用hu9jj在2012-9-25 21:32:21的发言：

下面是身份证15位自动转换成18位的函数，也许会对楼主有点用。

PARAMETERS cSFZ15
cSFZ15 = ALLTRIM(cSFZ15)
IF LEN(cSFZ15)<>15 AND LENC(cSFZ15)<>15
    RETURN "不是15位身位证号码!"
ENDIF
    IF NOT CHRTRAN(cSFZ15,"1234567890","")==""
        RETURN "含有非数字,不是身份证号码!"
    ENDIF
    cSFZ17 = STUFF(cSFZ15,7,0,'19')
    cBy17='7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2'
    cCheck='10X98765432'
    nCheck=0
    FOR nCnt=1 TO 17
        nCheck=nCheck+VAL(SUBSTR(cSFZ17,nCnt,1))*VAL(GETWORDNUM(cBy17,nCnt,','))
    NEXT
    RETURN cSFZ17+SUBSTR(cCheck,nCheck%11+1,1)
ENDIF

呵呵谢谢H版热心帮忙。。。

看你的代码很舒服啊学到一个函数stuff() 用起来比较简洁我以前是搞 left() + '19' + sbustr() 感觉没你的简洁啊不过不等号我喜欢用 #

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-25 21:37

bccn201203

等　级：蜘蛛侠
威　望：3
帖　子：680
专家分：1140
注　册：2012-3-14

第 94 楼

得分:17

2013.01.01起，15位身份证停止使用。
这段代码在低版本VFP中不能运行。

[ 本帖最后由 bccn201203 于 2012-9-25 22:42 编辑 ]

2012-09-25 22:38

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 95 楼

得分:17

程序代码：

*- 04 -第18位校验码验证
J=[0709100508040201060307091005080402]
*   Y值:012345678910 
校验码=[10X98765432]
LOCAL NUM,CTITLE
NUM=0
CTITLE=[]
FOR I=1 TO 17
    NUM=NUM+VAL(SUBSTR(J,I*2-1,2))*VAL(SUBSTR(SFZH,I,1))
ENDFOR
CTITLE=[第18位校验码为【]+SUBSTR(校验码,MOD(NUM,11)+1,1)+[】,与身份证校验码]+IIF(RIGHT(SFZH,1)==SUBSTR(校验码,MOD(NUM,11)+1,1),[相符],[不相符])
MESSAGEBOX(CTITLE,64,[系统信息])