Function keyx(user As String) As Double
    Dim a, b, c, d, e As Integer
    Dim sn1, sn2, sn3, sn4, snx, sny, sn As Double
    a = CInt(Mid(user, 1, 2))
    b = CInt(Mid(user, 3, 2))
    c = CInt(Mid(user, 5, 2))
    d = CInt(Mid(user, 7, 2))
    e = CInt(Mid(user, 9, 2))
    
    If (a Mod 2) = 0 And (b Mod 2) <> 0 Then
        sn1 = (a ^ 2) Xor (b ^ 2)
    Else
        sn1 = (a ^ 2) Or (b ^ 2)
    End If
   
    If (b Mod 2) = 0 And (c Mod 2) <> 0 Then
        sn2 = (b ^ 2) Xor (c ^ 2)
    Else
        sn2 = (b ^ 2) Or (c ^ 2)
    End If

    If (c Mod 2) = 0 And (d Mod 2) <> 0 Then
        sn3 = (c ^ 2) Xor (d ^ 2)
    Else
        sn3 = (c ^ 2) Or (d ^ 2)
    End If
    
    If (d Mod 2) = 0 And (e Mod 2) <> 0 Then
        sn4 = (d ^ 2) Xor (e ^ 2)
    Else
        sn4 = (d ^ 2) Or (e ^ 2)
    End If
    
    If (sn1 Mod 2) = 0 Then
        sn1 = sn1 + 2010
    Else
        sn1 = sn1 + 365
    End If

    If (sn2 Mod 2) = 0 Then
        sn2 = sn2 + 2010
    Else
        sn2 = sn2 + 365
    End If

    If (sn3 Mod 2) = 0 Then
        sn3 = sn3 + 2010
    Else
        sn3 = sn3 + 365
    End If

    If (sn4 Mod 2) = 0 Then
        sn4 = sn4 + 2010
    Else
        sn4 = sn4 + 365
    End If

    snx = (sn1 + sn2 + sn3 + sn4) * 2010
    sny = snx + 8424501
    If (sny Mod 2) = 0 Then
        sn = snx * 2 + sny * 365
    Else
        sn = snx - 1 + snx + sny * 2010
    End If

    keyx = (sn + sn1 + sn2 + sn3 + sn4) ^ 2
End Function

Function keyy(name As String) As Double
    Dim a1, a2, a3, a4 As Integer
    Dim s1, s2, s3, sx, sy, s As Double
    a1 = CInt(Mid(name, 1, 2))
    a2 = CInt(Mid(name, 3, 2))
    a3 = CInt(Mid(name, 5, 2))
    a4 = CInt(Mid(name, 7, 2))
    s1 = (a1 ^ 2) Or (a2 ^ 2)
    s2 = (a2 ^ 2) Or (a3 ^ 2)
    s3 = (a3 ^ 2) Or (a4 ^ 2)
    
    If (a1 Mod 2) = 0 And (a2 Mod 2) <> 0 Then
        s1 = (a1 ^ 2) Or (a2 ^ 2)
    Else
        s1 = (a1 ^ 2) Xor (a2 ^ 2)
    End If
    
    If (a2 Mod 2) = 0 And (a3 Mod 2) <> 0 Then
        s2 = (a2 ^ 2) Or (a3 ^ 2)
    Else
        s2 = (a2 ^ 2) Xor (a3 ^ 2)
    End If
    
    If (a3 Mod 2) = 0 And (a4 Mod 2) <> 0 Then
        s3 = (a3 ^ 2) Or (a4 ^ 2)
    Else
        s3 = (a3 ^ 2) Xor (a4 ^ 2)
    End If
    
    If (s1 Mod 2) = 0 Then
        s1 = s1 + 2010
    Else
        s1 = s1 + 365
    End If

    If (s2 Mod 2) = 0 Then
        s2 = s2 + 2010
    Else
        s2 = s2 + 365
    End If

    If (s3 Mod 2) = 0 Then
        s3 = s3 + 2010
    Else
        s3 = s3 + 365
    End If

    sx = (s1 + s2 + s3 + 2010) ^ 2
    sy = (sx + CLng(name)) + 365
    If (sy Mod 2) = 0 Then
        s = sx * 2 + sy
    Else
        s = sx - 1 + sx + sy * 2
    End If
    keyy = (s + s1 + s2 + s3) ^ 2
End Function

Private Sub Command1_Click()
    Dim ss As Double
    If Len(Text1.Text) = 0 Then
        MsgBox "请输入机器码。", vbCritical, "提示"
    ElseIf Len(Text1.Text) >= 8 And Len(Text1.Text) < 10 Then
        ss = keyy(Text1.Text)
        Text2.Text = Sqr(ss) + Val(Text1.Text)
    ElseIf Len(Text1.Text) >= 10 Then
        ss = keyx(Text1.Text)
        Text2.Text = Sqr(ss) + Val(Text1.Text)
    Else
    End If
End Sub

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！