Space Trip 3D Screensaver 追码及算法注册机 by Zaas

标题：Space Trip 3D Screensaver 追码及算法注册机 by Zaas
作者：zaas
时间：2009-11-20 19:56
链接：http://bbs.pediy.com/showthread.php?t=101638
代码:
Function Check(Number As Integer) As Integer
    If Number < 58 Then
        Check = Number - 47
    Else
        If Number >= 58 And Number <= 96 Then
            Check = Number - 54
        Else
            If Number > 96 Then
                Check = Number - 60
            End If
        End If
    End If
End Function
Private Sub Command1_Click()
    Dim Word As String
    Dim Char As String
    Dim Ref_String(16) As Integer
    Dim Test_Char As String
    Dim Serial(16) As Integer
    Dim Output(16) As String
    Dim Success As Boolean
    Dim First_Rnd_Char As Integer
    Dim Selected_Char As Integer
    Text1.Text = ""
    Word = "3829322D322B00251225362800162D37"
    Char = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
        For x = 1 To 16
            Ref_String(x) = Val("&h" & Mid(Word, 2 * x - 1, 2))
        Next
    For i = 1 To 8
        Do
            Do
                Randomize
                First_Rnd_Char = (122 - 48) * Rnd() + 48
            Loop Until (First_Rnd_Char > 47 And First_Rnd_Char < 58) Or (First_Rnd_Char > 64 And First_Rnd_Char < 91) Or (First_Rnd_Char > 96 And First_Rnd_Char < 123)
            Success = False
            Output(i) = Chr(First_Rnd_Char)
            First_Rnd_Char = Check(First_Rnd_Char)
            First_Rnd_Char = First_Rnd_Char - Ref_String(i + 8)
            For y = 1 To Len(Char)
                Selected_Char = Asc(Mid(Char, y, 1))
                Test_Char = Chr(Selected_Char)
                Selected_Char = Check(Selected_Char)
                Selected_Char = Selected_Char - Ref_String(8 - i + 1)
                If First_Rnd_Char = Selected_Char Then
                    Output(16 - i + 1) = Test_Char
                    Success = True
                    Exit For
                End If
            Next
        Loop Until Success = True
    Next
    For m = 1 To 16
        First_Rnd_Char_serial = First_Rnd_Char_serial & Output(m)
        Text1.Text = Mid(First_Rnd_Char_serial, 9, 8) & Mid(First_Rnd_Char_serial, 1, 8)
    Next
End Sub
Private Sub Command2_Click()
Unload Me
End Sub