key code help please

[Jamie_Garland]

hello,

how would i generate the serial for this code?.

Option Explicit
'splash screen used to get registry info
'determines if copy is registered
 
 
Private Sub Form_Resize()
'Call AutoScale
End Sub
 
Private Sub Form_Load()
Dim phkResult As Long
    Dim slValue As String
    Dim slData As String
    Dim Title
    Dim slRegNumber As String
    Dim rc
'getform (11)
'Call GetCurrentPositions
'Call AutoScale
Me.Show
    'app info
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = App.Title
    
    ''''shareware thing'''''''
    hKey = HKEY_CURRENT_USER
    'set subkey''
    SubKey = "Software\The Settings\IsItYours\Settings"
    slValue = "PRgNm"
    slData = 3
    
    If RegOpenKeyEx(hKey, SubKey, 0, 1, phkResult) = ERROR_SUCCESS Then 'key opened
        'check for valid reg #
        slRegNumber = GetRegValue(hKey, SubKey, "User", "0")
        slRegNumber = Right$(slRegNumber, 6)
        usercode = ((slRegNumber * 23) * 251)
        usercode = Mid(usercode, 2, 6)
        glRegNumber = _
        GetRegValue(hKey, SubKey, "PRgNm", "1")
            If glRegNumber = usercode Then
                'it's registered
                lblWarning = "Registered Copy"
                lblWarning.Refresh
                RegCopy = True
                Unload Me
                Exit Sub
            End If
        RegCopy = False
    Else  'first time program used
'    MsgBox "Poker requires a screen resolution of ""1024 x 768""" & _
'    vbCrLf & "Your screen settings will be adjusted, and will be" & _
'    " returned to your normal settings when Poker is closed.", vbInformation, _
'    "Change Screen Resolution"
        Dim a As Integer
        Randomize
        Dim val As Integer
            For a = 0 To 4
                val = (Rnd * 8) + 1 'random # between 1 and 9
                slData = slData & val 'serial #
            Next
        slData = "H1N" & slData 'serial #
        'create registry keys
            If CreateRegKey(SubKey) Then
                rc = SetRegValue(hKey, SubKey, "User", slData)
                rc = vbNullString
                rc = SetRegValue(hKey, SubKey, slValue, "")
                lblWarning = "Unregistered Copy"
            Else
                MsgBox "Unable to create key"
            End If
   End If
  Unload Me
End Sub
Function CreateRegKey(NewSubKey As String) As Boolean
 
    On Error GoTo ErrorRoutineErr:
    
    Dim phkResult As Long
    Dim SA As SECURITY_ATTRIBUTES
    
    'Create key if it does not exist
    CreateRegKey = (RegCreateKeyEx(hKey, NewSubKey, _
        0, "", REG_OPTION_NON_VOLATILE, _
        KEY_ALL_ACCESS, SA, phkResult, Create) = ERROR_SUCCESS)
    
    'Close the key
    RegCloseKey phkResult
    Exit Function
    
ErrorRoutineErr::
    MsgBox "ERROR #" & str(Err) & " : " & Error & Chr(13) _
         & "Please exit and try again."
    CreateRegKey = False
  
End Function
 
Private Sub Form_Unload(Cancel As Integer)
'saves serial # to display on registration reminder(if not registered)
'and registration #(if registered) on about form
 
Dim slRegNumber As String
slRegNumber = GetRegValue(hKey, SubKey, "User", "0")
    slRegNumber = Right$(slRegNumber, 6) 'serial #
     usercode = ((slRegNumber * 23) * 251)
        usercode = Mid(usercode, 2, 6)
frmSplash.Show
End Sub