身份证校验函数

以下代码为国家身份证的校验函数。由于计划把此函数应用到SSIS的Package Script里，所以只能用VB.NET写了。代码是根据PB版本的代码翻译过来的，所以有些逻辑不符合OO的思想，请谅解。

 1 Imports System
 2 
 3 Public Class SFZ
 4     Private _code As String
 5 
 6     Public Sub New(ByVal code As String)
 7         _code = code
 8     End Sub
 9 
10     Public Function Verify() As Boolean
11         '返回结果
12         Dim result As Boolean = False
13         Dim datestr As System.Text.StringBuilder = New System.Text.StringBuilder
14 
15         Select Case _code.Length
16             Case 15
17                 '取得日期字符串
18                 datestr.Append("19")
19                 datestr.Append(_code.Substring(6, 2))
20                 datestr.Append("-")
21                 datestr.Append(_code.Substring(8, 2))
22                 datestr.Append("-")
23                 datestr.Append(_code.Substring(10, 2))
24                 '判断是否为日期
25                 result = IsDate(datestr.ToString())
26             Case 18
27                 '取得日期字符串
28                 datestr.Append(_code.Substring(6, 4))
29                 datestr.Append("-")
30                 datestr.Append(_code.Substring(10, 2))
31                 datestr.Append("-")
32                 datestr.Append(_code.Substring(12, 2))
33                 '判断是否为日期
34                 result = IsDate(datestr.ToString())
35                 If result Then
36                     '判断校验码是否正确
37                     If _code.Substring(17, 1) = lastCodeVerify(_code.Substring(0, 17)) Then
38                         result = True
39                     Else
40                         result = False
41                     End If
42                 End If
43             Case Else
44                 result = False
45         End Select
46 
47         Verify = result
48     End Function
49 
50     Private Function lastCodeVerify(ByVal a_sfz As String) As String
51         '获得校验码
52         Dim lastcode As String
53         Dim ls_sfz As String
54         Dim i, li_ai, li_wi, li_sum, li_mod, li_result As Integer
55 
56         ls_sfz = a_sfz
57         If ls_sfz.Length = 15 Or ls_sfz.Length = 17 Then
58             If ls_sfz.Length = 15 Then
59                 '应该不会执行
60                 ls_sfz = ls_sfz.Substring(0, 6) + "19" + ls_sfz.Substring(6, 9)
61             End If
62 
63             For i = 2 To 18
64                 li_ai = CInt(ls_sfz.Substring(19 - i - 1, 1))
65                 li_wi = System.Math.Pow(2, i - 1) Mod 11
66                 li_sum = li_sum + li_ai * li_wi
67             Next
68 
69             li_mod = li_sum Mod 11
70             li_result = 12 - li_mod
71 
72             If li_result >= 10 Then
73                 If li_result = 10 Then
74                     lastcode = "X"
75                 Else
76                     li_result = li_result - 11
77                     lastcode = CStr(li_result)
78                 End If
79             Else
80                 lastcode = CStr(li_result)
81             End If
82         Else
83             lastcode = "E"
84         End If
85 
86         lastCodeVerify = lastcode
87 
88     End Function
89 End Class