今天在一个查询手机号码归属地的网站,发现还可以进行国内身份证号码验证查询,随便输入一个号码,居然说"该18位身份证号校验位不正确,您可以使用我们的15位升18位的小工具来验证",开始还以为它和公安部的数据库有联系,后来搜索了一下,发现网上关于介绍身份证号码验证码的文章还挺多的,参考了一下CSDN上的一些帖子,改成VB.NET的函数,也许有一天会用上.
下面是写成数据库的函数形式(原著不名,我在网上搜索到的都没有标明作者),其实知道了算法,写成SQL语句也不困难:
''' -----------------------------------------------------------------------------
''' <summary>
''' 将15位的身份证号码升级到18位
''' </summary>
''' <param name="IDCard15">15位的身份证号码</param>
''' <returns>18位的身份证号码</returns>
''' <remarks>
''' 根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定,公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成。
''' 排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码, 三位数字顺序码和一位数字校验码。
''' 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。
''' 生日期码表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。
''' 顺序码表示同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。
''' 顺序码的奇数分给男性,偶数分给女性。
''' 校验码是根据前面十七位数字码,按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。
'''
''' 注意:这里没有考虑1900年以及之前出生的人的情况
'''
''' </remarks>
''' <history>
''' [Hudan] 2005-8-8 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function IDCard15to18(ByVal IDCard15 As String) As String
Dim IDCard17 As String
'将出生年扩展为4位,即在2位数的出生年前面加19 (这里没有考虑1900年以及之前出生的人的情况)
'IDCard18 = IDCard15.Substring(0, 6) + "19" + IDCard15.Substring(6)
IDCard17 = IDCard15.Insert(6, "19")
'计算校验码
Dim code As Char
code = GetCheckCode(IDCard17)
'返回18位身份证号码
Return IDCard17 + code.ToString()
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 判断身份证号码的校验码是否正确
''' </summary>
''' <param name="IDCard18">18位身份证号码</param>
''' <returns>true表示验证码正确,否则表示验证码错误</returns>
''' <remarks>
''' 注意:
''' 此方法只是对验证码进行判断,不判断身份证号码其它部分的合法性.
''' 比如出现666666198013320014这样的号码,显然是非法的身份证号码
''' 666666的地区号目前是不存在的
''' 1980年没有13月,也没有32日
''' 但是它的校验码4却是正确的
''' </remarks>
''' <history>
''' [Hudan] 2005-8-8 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function ValidCheckcode(ByVal IDCard18 As String) As Boolean
'参数IDCard18中的校验码
Dim currentCode As Char
currentCode = IDCard18.Chars(17)
'正确的验证码
Dim ValidCode As Char
ValidCode = GetCheckCode(IDCard18.Substring(0, 17))
Return ValidCode.Equals(currentCode)
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 根据身份证号码的前17位数字生成最后一位的校验码
''' </summary>
''' <param name="IDCard17">身份证号码的前17位数字</param>
''' <returns>校验码(身份证号码的第18位)</returns>
''' <remarks>
''' </remarks>
''' <history>
''' [Hudan] 2005-8-8 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function GetCheckCode(ByVal IDCard17 As String) As Char
'按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码
'公式如下:
'∑(ai×Wi)(mod 11)
'i----表示号码字符从右至左包括校验码在内的位置序号;
'ai----表示第i位置上的号码字符值;
'Wi----示第i位置上的加权因子,其数值依据公式Wi=2^(n-1)(mod 11)计算得出。
Dim num As Integer = 0
For i As Integer = 18 To 2 Step -1
num += CInt(IDCard17.Substring(18 - i, 1)) * (2 ^ (i - 1) Mod 11)
Next
num = num Mod 11
'然后根据计算的结果,从下面的表中查出相应的校验码,其中X表示计算结果为10:
'∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
'校验码字符值ai 1 0 X 9 8 7 6 5 4 3 2
Dim checkcode As String
Select Case num
Case 0
checkcode = "1"
Case 1
checkcode = "0"
Case 2
'TODO: X是大写还是小写还未确定(刚好我的身份证的校验码是小写x,不知道大写X是否也可行)
checkcode = "x"
Case Else
checkcode = CStr(12 - num)
End Select
Return CChar(checkcode)
End Function
''' <summary>
''' 将15位的身份证号码升级到18位
''' </summary>
''' <param name="IDCard15">15位的身份证号码</param>
''' <returns>18位的身份证号码</returns>
''' <remarks>
''' 根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定,公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成。
''' 排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码, 三位数字顺序码和一位数字校验码。
''' 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。
''' 生日期码表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。
''' 顺序码表示同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。
''' 顺序码的奇数分给男性,偶数分给女性。
''' 校验码是根据前面十七位数字码,按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。
'''
''' 注意:这里没有考虑1900年以及之前出生的人的情况
'''
''' </remarks>
''' <history>
''' [Hudan] 2005-8-8 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function IDCard15to18(ByVal IDCard15 As String) As String
Dim IDCard17 As String
'将出生年扩展为4位,即在2位数的出生年前面加19 (这里没有考虑1900年以及之前出生的人的情况)
'IDCard18 = IDCard15.Substring(0, 6) + "19" + IDCard15.Substring(6)
IDCard17 = IDCard15.Insert(6, "19")
'计算校验码
Dim code As Char
code = GetCheckCode(IDCard17)
'返回18位身份证号码
Return IDCard17 + code.ToString()
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 判断身份证号码的校验码是否正确
''' </summary>
''' <param name="IDCard18">18位身份证号码</param>
''' <returns>true表示验证码正确,否则表示验证码错误</returns>
''' <remarks>
''' 注意:
''' 此方法只是对验证码进行判断,不判断身份证号码其它部分的合法性.
''' 比如出现666666198013320014这样的号码,显然是非法的身份证号码
''' 666666的地区号目前是不存在的
''' 1980年没有13月,也没有32日
''' 但是它的校验码4却是正确的
''' </remarks>
''' <history>
''' [Hudan] 2005-8-8 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function ValidCheckcode(ByVal IDCard18 As String) As Boolean
'参数IDCard18中的校验码
Dim currentCode As Char
currentCode = IDCard18.Chars(17)
'正确的验证码
Dim ValidCode As Char
ValidCode = GetCheckCode(IDCard18.Substring(0, 17))
Return ValidCode.Equals(currentCode)
End Function
''' -----------------------------------------------------------------------------
''' <summary>
''' 根据身份证号码的前17位数字生成最后一位的校验码
''' </summary>
''' <param name="IDCard17">身份证号码的前17位数字</param>
''' <returns>校验码(身份证号码的第18位)</returns>
''' <remarks>
''' </remarks>
''' <history>
''' [Hudan] 2005-8-8 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Function GetCheckCode(ByVal IDCard17 As String) As Char
'按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码
'公式如下:
'∑(ai×Wi)(mod 11)
'i----表示号码字符从右至左包括校验码在内的位置序号;
'ai----表示第i位置上的号码字符值;
'Wi----示第i位置上的加权因子,其数值依据公式Wi=2^(n-1)(mod 11)计算得出。
Dim num As Integer = 0
For i As Integer = 18 To 2 Step -1
num += CInt(IDCard17.Substring(18 - i, 1)) * (2 ^ (i - 1) Mod 11)
Next
num = num Mod 11
'然后根据计算的结果,从下面的表中查出相应的校验码,其中X表示计算结果为10:
'∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
'校验码字符值ai 1 0 X 9 8 7 6 5 4 3 2
Dim checkcode As String
Select Case num
Case 0
checkcode = "1"
Case 1
checkcode = "0"
Case 2
'TODO: X是大写还是小写还未确定(刚好我的身份证的校验码是小写x,不知道大写X是否也可行)
checkcode = "x"
Case Else
checkcode = CStr(12 - num)
End Select
Return CChar(checkcode)
End Function
下面是写成数据库的函数形式(原著不名,我在网上搜索到的都没有标明作者),其实知道了算法,写成SQL语句也不困难:
Create function getCheckCode(@SFZH char(18))
Returns char(1)
As
Begin
declare @r char(1)
declare @i int
if len(@SFZH) <> 18
set @r = '?'
else
set @i = cast(substring(@SFZH,1,1) as int) * 7
+cast(substring(@SFZH,2,1) as int) * 9
+cast(substring(@SFZH,3,1) as int) * 10
+cast(substring(@SFZH,4,1) as int) * 5
+cast(substring(@SFZH,5,1) as int) * 8
+cast(substring(@SFZH,6,1) as int) * 4
+cast(substring(@SFZH,7,1) as int) * 2
+cast(substring(@SFZH,8,1) as int) * 1
+cast(substring(@SFZH,9,1) as int) * 6
+cast(substring(@SFZH,10,1) as int) * 3
+cast(substring(@SFZH,11,1) as int) * 7
+cast(substring(@SFZH,12,1) as int) * 9
+cast(substring(@SFZH,13,1) as int) * 10
+cast(substring(@SFZH,14,1) as int) * 5
+cast(substring(@SFZH,15,1) as int) * 8
+cast(substring(@SFZH,16,1) as int) * 4
+cast(substring(@SFZH,17,1) as int) * 2
set @i = @i - @i/11 * 11
set @r = (case @i
when 0 then '1' when 1 then '0' when 2 then 'X' when 3 then '9'
when 4 then '8' when 5 then '7' when 6 then '6' when 7 then '5'
when 8 then '4' when 9 then '3' when 10 then '2' else '/' end)
Return(@r)
End
Returns char(1)
As
Begin
declare @r char(1)
declare @i int
if len(@SFZH) <> 18
set @r = '?'
else
set @i = cast(substring(@SFZH,1,1) as int) * 7
+cast(substring(@SFZH,2,1) as int) * 9
+cast(substring(@SFZH,3,1) as int) * 10
+cast(substring(@SFZH,4,1) as int) * 5
+cast(substring(@SFZH,5,1) as int) * 8
+cast(substring(@SFZH,6,1) as int) * 4
+cast(substring(@SFZH,7,1) as int) * 2
+cast(substring(@SFZH,8,1) as int) * 1
+cast(substring(@SFZH,9,1) as int) * 6
+cast(substring(@SFZH,10,1) as int) * 3
+cast(substring(@SFZH,11,1) as int) * 7
+cast(substring(@SFZH,12,1) as int) * 9
+cast(substring(@SFZH,13,1) as int) * 10
+cast(substring(@SFZH,14,1) as int) * 5
+cast(substring(@SFZH,15,1) as int) * 8
+cast(substring(@SFZH,16,1) as int) * 4
+cast(substring(@SFZH,17,1) as int) * 2
set @i = @i - @i/11 * 11
set @r = (case @i
when 0 then '1' when 1 then '0' when 2 then 'X' when 3 then '9'
when 4 then '8' when 5 then '7' when 6 then '6' when 7 then '5'
when 8 then '4' when 9 then '3' when 10 then '2' else '/' end)
Return(@r)
End