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
It is written in VB6, and here is the "unlock" function that it performs:
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
I have found that it appends or prepends the string "*-91511383#" to the key, I think.. lol someone please help me.