[ActiveLock-Development] [ activelock-Bugs-1017830 ] GetProductLicense

[SourceForge.net <no...@so...>]

Bugs item #1017830, was opened at 2004-08-27 12:28
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=526385&aid=1017830&group_id=70007

Category: Interface Error
Group: Development Team
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: GetProductLicense

Initial Comment:
Suppose you want to display the licence type to the 
user.  There is not a way to get the ProductLic. 
I noticed the degates for RegisteredUser, InstalledDate 
etc

But what about just returning the Product Lic in a 
routine like simular to Aquire (SEE BELOW)

Or is this a security hole?
ThanX
GDM

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Private Function IActiveLock_GetProductLicense() As 
ProductLicense

    'Modified by GDM 8/27/2004
    
    If mKeyStore Is Nothing Then
        Err.Raise 
ActiveLockErrCodeConstants.alerrKeyStoreInvalid, "IActiv
eLock_Acquire", "Key Store Provider hasn't been 
initialized yet."
    End If

    Dim Lic As ProductLicense
    Set Lic = mKeyStore.Retrieve(mSoftwareName)
    If Lic Is Nothing Then
        Err.Raise 
ActiveLockErrCodeConstants.alerrNoLicense, "IActiveLock
_Acquire", "No valid license"
    End If
    ' Validate license
    ValidateLic Lic
    
    IActiveLock_GetProductLicense = Lic
    
End Function

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=526385&aid=1017830&group_id=70007