013/160 CrackMe badboy

Serial

VB program to run with VB Decompiler about to try, the result is what came out
to check the registration code button is clicked, the registration code is generated in the selection CrackMe 1.0

registration code generation part, related to the date, registration code generated by the presence of var_1D0 the

most the simplest way is to copy directly to Excel, run it, came out License

Sub test()
    var_88 = CLng((((Day(Now) * Day(23)) + (Month(Now) * Month(2))) + (Year(Now) * Year(3))))
    var_1D0 = CStr((((var_88 + var_88) + CLng((Day(14) * Year(2020)))) + CLng((Day(14) * Year(2020)))))
    Sheet1.Cells(1, 1) = var_1D0
End Sub

Name Serial

The same has been decompile the code

has just experienced, directly thrown into Excel to run the code it

looked nothing issue, even wrong, in research studies in the OD
OD in p-code encoding program feeling a mess, look Available have to look p-code
so no study out why not. God peeping at the big posts, found in the code

If ((var_A8 + 1) >= 39) Then

We need to be modified to

var_A8 = var_A8 + 1
If (var_A8 >= 39) Then

So as to successfully registered, but did not find the cause of such changes
on the Internet to find a lot of relevant article did not explain in detail here

Thrown into complete code to run Excel:

Sub test()
    Dim var_90 As Long
    Dim var_1CC As Variant
    If (Len(Sheet1.Cells(1, 1)) < 5) Then
    Sheet1.Cells(2, 1) = "At least 5 characters!"
    Exit Sub
    End If
    var_94 = "0110617121214051216101106141404110614140411091211100810101608040610121608100416"
    var_98 = Sheet1.Cells(1, 1)
    var_A8 = 1 'Variant
    For var_108 = 4 To CVar(Len(var_98)): var_C8 = var_108 'Variant
     var_90 = CLng((CDbl(var_90) + (CDbl(Asc(Mid$(var_98, CLng(var_C8), 1))) * Val(Mid$(var_94, CLng((var_A8 * 3)), 3)))))
     var_A8 = var_A8 + 1
     If (var_A8 >= 39) Then
     'If ((var_A8 + 1) >= 39) Then
       var_A8 = 0 'Variant
     End If
   Next var_108 'Variant
   var_A8 = 1 'Variant
   For var_168 = 4 To CVar(Len(var_98)): var_C8 = var_168 'Variant
     var_1CC = CVar((CDbl((Asc(Mid$(var_98, CLng(var_C8), 1)) * Asc(Mid$(var_98, CLng((var_C8 - 1)), 1)))) * Val(Mid$(var_94, CLng((var_A8 * 2)), 2)))) 'Double
     var_178 = (var_178 + var_1CC) 'Variant
     var_A8 = var_A8 + 1
     If (var_A8 >= 39) Then
     'If ((var_A8 + 1) >= 39) Then
       var_A8 = 0 'Variant
     End If
   Next var_168 'Variant
   Sheet1.Cells(3, 1) = LTrim$(Str$(var_90)) & "-" & LTrim$(Str$(var_178))
End Sub