Private Sub cmdCheck_Click()
    Dim uname As String
    Dim ucode As String
    Dim usn As String
    Dim c As String
    Dim constv1 As String
    Dim constv2 As String
    Dim tmp As String
   
    Dim i As Integer
    Dim strlen As Integer
    Dim d As Integer
   
    Dim t1, t2 As Integer
   
    On Error Resume Next
   
    t1 = 0
    t2 = 1
    t2 = t2 / t1
   

    If Len(Text1.Text) <= 0 Then Exit Sub
    If Len(Text2.Text) <= 0 Then Exit Sub
   
    uname = Text1.Text
    ucode = Text2.Text
    usn = ""
    constv1 = "uZgL3qPMUPBCyUouhXU1gw3T9WCtgtUvwXMIhtPRXY8woGYtCw/YGMfElBu2ed47iuMoUy8TOnsLTCvr6C4nU1kJcTphllMwUkI+PctmLTDwCjARo/kddgx6UXyvxP30CE"
    constv2 = "MiMPo2/9XeFlHnNVjx8ASTMlpvGNWwW6/mOSKwvjiSI"
   
    t1 = 0
    t2 = 1
    t2 = t2 / t1
   
    strlen = Len(uname)
   
    For i = 1 To strlen
   
        t1 = 0
        t2 = 1
        t2 = t2 / t1
        
        c = Mid(uname, i, 1)
        d = InStr(1, constv1, c, vbBinaryCompare)
        If d = 0 Then
            d = (Asc(c) + 65536) Mod 16 + 1
        End If
        d = d - 1
        d = d Mod 16
        d = d + 1
        c = Mid(constv2, d, 1)
        usn = usn & c
    Next
   
    tmp = ""
    strlen = Len(ucode)
    For i = 1 To strlen
   
        t1 = 0
        t2 = 1
        t2 = t2 / t1
        
        c = Mid(ucode, i, 1)
        d = Asc(c) - 1
        c = Chr(d)
        tmp = tmp & c
    Next
        
    t1 = 0
    t2 = 1
    t2 = t2 / t1
   
    If usn = tmp Then
        MsgBox "Yeh~~!!You good kind!!", vbInformation, ":)"
        crackme1.Caption = "CrackMe 2005 #1 by KuNgBiM (Registered)"
     Label1.Caption = "Registered"
     Label1.ForeColor = &HFF0000
     cmdCheck.Enabled = False
        
    End If
End Sub

Private Sub cmdAbout_Click()
MsgBox "2005' The first Crackme that I design, Thank all of the member of DFCG !!!", vbOKOnly, "CrackMe 2005 #1 by KuNgBiM"

End Sub

Private Sub cmdExit_Click()
End
End Sub

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