#1
|
|||
|
|||
Help with generating serial
Hi guys,
I'm currently working on a piece of software and it is driving me crazy. I am able to 'register/activate' it by fudging all of the jumps at the serial key checker. However, I cannot for the life of me figure out the routine that actually creates the serial numbers.. Would any of you like to check this out and possibly give me an idea of how to do it? I don't really want the company looking this direction by mentioning the name of it, but here is the link to the installer. (It's used for Nissan cars) Link to the software: Code:
https://nisscan.com/NDSI/index.php?content=download Code:
Private Sub btnUnlock_Click() '53DC71 Dim var_10C As Variant Dim var_114 As TextBox loc_0053DCC6: On Error GoTo loc_0053E93B loc_0053DCFB: var_40 = frmActivate.txtActivKey.Text loc_0053DD03: var_110 = var_40 loc_0053DD70: If (var_40 = global_00425534) + 1 Then loc_0053DD7E: var_40 = "Please enter Activation Key" loc_0053DDA1: var_44 = Proc_15_1_52D634(&HCB) loc_0053DE08: MsgBox(var_44, 0, 10, var_80, 10) loc_0053DE41: Else loc_0053DEE3: var_8020 = GetVolumeInformation("C:\", String$(256, False), 255, global_005C507C, global_005C5084, global_005C5080, String$(256, False), 255) loc_0053DEFB: var_8028 = var_44 loc_0053DF08: var_802C = var_48 loc_0053DF13: global_005C5088 = var_8020 loc_0053DF46: var_114 = frmActivate.txtActivKey loc_0053DF7C: var_40 = frmActivate.txtActivKey.Text loc_0053DF84: var_110 = var_40 loc_0053E003: var_114.Text = CStr(Trim(var_40)) loc_0053E00B: var_118 = var_114 loc_0053E0A0: var_40 = frmActivate.txtActivKey.Text loc_0053E0A8: var_110 = var_40 loc_0053E13E: var_3C = Proc_23_0_565AB7(Proc_24_1_56681B("Tomasz", "Tomasz", 1), "Tomasz", Me) loc_0053E212: var_2C = Proc_23_0_565AB7(Mid(var_3C, 17, Len(var_3C)), Mid(var_3C, 1, 16), 0) loc_0053E2A7: var_8050 = Proc_23_0_565AB7(Proc_24_1_56681B(GetSetting("NDataScan", "Activation", "RegCode", 10), var_CC, 80020004h), "Lilys", var_C4) loc_0053E2B1: var_3C = var_8050 loc_0053E37A: var_34 = Proc_23_0_565AB7(Mid(var_3C, 17, Len(var_3C)), Mid(var_3C, 1, 16), 0) loc_0053E3DC: var_34 = Left(var_34, Len(var_34)(-1)) loc_0053E42C: var_34 = Right(var_34, Len(var_34)(-1)) loc_0053E530: If CBool((var_2C = var_34) And (var_2C = Str(global_005C507C)) And (var_34 = Str(global_005C507C))) Then loc_0053E53E: var_40 = "NDSI has been sucessfully activated. Please restart NDSI." loc_0053E5C8: MsgBox(Proc_15_1_52D634(&HCC), 0, 10, var_80, 10) loc_0053E614: var_10C = frmActivate.btnUnlock loc_0053E62A: var_10C.Enabled = False loc_0053E632: var_110 = var_10C loc_0053E68B: var_10C = frmActivate.txtRegCode loc_0053E6A1: var_10C.Enabled = False loc_0053E6A9: var_110 = var_10C loc_0053E702: var_10C = frmActivate.txtActivKey loc_0053E718: var_10C.Enabled = False loc_0053E720: var_110 = var_10C loc_0053E779: var_10C = frmActivate.lblNotice loc_0053E78F: var_10C.Enabled = False loc_0053E797: var_110 = var_10C loc_0053E808: var_40 = frmActivate.txtActivKey.Text loc_0053E810: var_110 = var_40 loc_0053E85B: SaveSetting("NDataScan", "Activation", "ActivKey", var_40) loc_0053E875: Else loc_0053E87D: var_40 = "You have entered wrong activation details. Please try again." loc_0053E907: MsgBox(Proc_15_1_52D634(&HCD), 0, 10, 10, 10) loc_0053E93B: End If loc_0053E93B: End If loc_0053E93B: Exit Sub loc_0053E945: GoTo loc_0053E9A2 loc_0053E9A1: Exit Sub loc_0053E9A2: ' Referenced from: 0053E945 End Sub |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Can the bit0 mask in port 0x21 stop generating int 0x08? | BlackWhite | General Discussion | 0 | 03-19-2021 22:53 |