Private Sub Command1_Click() Dim ID As String, n As Integer, i As Integer Dim tmp As Integer, BytStr() As Byte
ID = Text1 If Len(ID) \ 2 <> Len(ID) / 2 Then Exit Sub BytStr = StrConv(ID, vbFromUnicode) n = UBound(BytStr) For i = 0 To n If BytStr(i) < 56 Then BytStr(i) = BytStr(i) + 3 ElseIf BytStr(i) >= 56 And BytStr(i) < 58 Then BytStr(i) = 48 ElseIf BytStr(i) > 64 Then BytStr(i) = BytStr(i) + 3 End If Next For i = 0 To (n - 1) / 2 BytStr(2 * i) = BytStr(2 * i) Xor BytStr(2 * i + 1) BytStr(2 * i + 1) = BytStr(2 * i) Xor BytStr(2 * i + 1) BytStr(2 * i) = BytStr(2 * i) Xor BytStr(2 * i + 1) Next For i = 0 To n If BytStr(i) > 64 And BytStr(i) < 75 Then BytStr(i) = BytStr(i) - 17 ElseIf BytStr(i) >= 75 And BytStr(i) < 85 Then BytStr(i) = BytStr(i) - 27 End If Next Text2 = StrConv(BytStr, vbUnicode) End Sub
Private Sub Command1_Click() Dim a As String, ID As String, n As Integer, i As Integer Dim tmp As Integer, BytStr() As Byte Text2 = "请正确填写软件号!" ID = Text1 a = Len(ID) If a <> 12 Then GoTo a: If Len(ID) \ 2 <> Len(ID) / 2 Then Exit Sub BytStr = StrConv(ID, vbFromUnicode) n = UBound(BytStr) For i = 0 To n If BytStr(i) < 55 Then BytStr(i) = BytStr(i) + 3 ElseIf BytStr(i) >= 55 And BytStr(i) < 57 Then BytStr(i) = 48 ElseIf BytStr(i) > 64 Then BytStr(i) = BytStr(i) + 3 End If
Next For i = 0 To (n - 1) / 2 BytStr(2 * i) = BytStr(2 * i) Xor BytStr(2 * i + 1) BytStr(2 * i + 1) = BytStr(2 * i) Xor BytStr(2 * i + 1) BytStr(2 * i) = BytStr(2 * i) Xor BytStr(2 * i + 1)
Next For i = 0 To n If BytStr(i) > 65 And BytStr(i) < 75 Then BytStr(i) = BytStr(i) - 17 ElseIf BytStr(i) >= 75 And BytStr(i) < 85 Then BytStr(i) = BytStr(i) - 27 ElseIf BytStr(i) >= 85 Then BytStr(i) = BytStr(i) - 37
End If Next Text2 = StrConv(BytStr, vbUnicode) a: End Sub
Private Sub Command2_Click() MsgBox "感谢看雪学院的BlueT童鞋!", 0, "致 谢" End Sub
Private Sub Command1_Click() Dim ID As String, n As Integer, i As Integer Dim tmp As Integer, BytStr() As Byte
ID = Text1 If Len(ID) <> 12 Then Exit Sub BytStr = StrConv(ID, vbFromUnicode) n = UBound(BytStr) For i = 0 To n Select Case BytStr(i) Case Is < 56: BytStr(i) = BytStr(i) + 3 Case 56 To 57: BytStr(i) = 48 Case Is > 64: BytStr(i) = BytStr(i) + 3 End Select Select Case BytStr(i) Case 65 To 74: BytStr(i) = BytStr(i) - 17 Case 75 To 84: BytStr(i) = BytStr(i) - 27 Case Is > 84: BytStr(i) = BytStr(i) - 37 End Select Next For i = 0 To (n - 1) / 2 BytStr(2 * i) = BytStr(2 * i) Xor BytStr(2 * i + 1) BytStr(2 * i + 1) = BytStr(2 * i) Xor BytStr(2 * i + 1) BytStr(2 * i) = BytStr(2 * i) Xor BytStr(2 * i + 1) Next Text2 = StrConv(BytStr, vbUnicode) End Sub