00000000 0
11111111 6
22222222 6
33333333 3
77777777 2
88888888 0
75000000 2
75000124 0
75000142 2
72685432 6后面的一个数是通过前面8位数算出来的,你能猜出这个算法吗?
11111111 6
22222222 6
33333333 3
77777777 2
88888888 0
75000000 2
75000124 0
75000142 2
72685432 6后面的一个数是通过前面8位数算出来的,你能猜出这个算法吗?
MsgBox("你輸入的身份証號碼已經超過18位﹐請檢查﹗")
Exit Sub
End If
If TextBox4.Text.Length = 18 Then
Dim s() As Char = {"1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2"}
Dim ss() As Integer = {7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1}
Dim i As Integer = 0
Dim t As Integer = 0
For i = 0 To 16
t = t + Convert.ToInt32(TextBox4.Text.Substring(i, 1)) * ss(i)
Next
t = t Mod 11
If s(t) <> TextBox4.Text.Substring(17, 1).ToString Then
MsgBox("你輸入的身份號碼不正確﹐請檢查﹗")
Exit Sub
00000000 就是得到0
输入11111111 得到6,。
你还是在程序里面看吧.
如果是sql里面得到的就要看那个方法了。
就这样看几个数据,来查找规律基本不可能。
但大家能猜出这个算法吗?
如果那个程序你有源代码就可以直接查找,他的实现过程,如果没有源代码,
看看那个程序时b/s 还是 c/s 如果是c/s 那就没有办法了,是b/s,如果是拿
脚本写的你还可以看html,如果是后台写的,那一样也没有办法。