00000000 0
11111111 6
22222222 6
33333333 3
77777777 2
88888888 0
75000000 2
75000124 0
75000142 2
72685432 6后面的一个数是通过前面8位数算出来的,你能猜出这个算法吗?

解决方案 »

  1.   

    If TextBox4.Text.Length > 18 Then
                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
      

  2.   

    这个是表里的数据,还是程序得来的数据?估计是程序里面输入
    00000000 就是得到0 
    输入11111111 得到6,。
    你还是在程序里面看吧.
    如果是sql里面得到的就要看那个方法了。
    就这样看几个数据,来查找规律基本不可能。 
      

  3.   

    不是什么SQL,在程序里输入8位数字后,会弹出一个数字 是一个算法实现的。
    但大家能猜出这个算法吗?
      

  4.   


    如果那个程序你有源代码就可以直接查找,他的实现过程,如果没有源代码,
    看看那个程序时b/s 还是 c/s 如果是c/s 那就没有办法了,是b/s,如果是拿
    脚本写的你还可以看html,如果是后台写的,那一样也没有办法。