Help with generating serial

[foil]

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:

https://nisscan.com/NDSI/index.php?content=download

It is written in VB6, and here is the "unlock" function that it performs:

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.