Private Sub Command1_Click()
cc = Text1.Text
aa = ""
Do Until Len(cc) = 0
aa = aa & Asc(cc)
cc = Right(cc, Len(cc) - 1)
Loop
bb = Format(Now, "YYYY-MM-DD HH:MM:SS")
ee = bb
dd = ""
Do Until Len(ee) = 0
dd = aa & Asc(ee)
ee = Right(ee, Len(ee) - 1)
Loop
ff = dd * aa
If Text2.Text = ff Then MsgBox "恭喜你做对了快到论坛上去分享你的破解过程吧!" Else: Unload Me
