NCryptoki

Hi Ugo,

I follow your license installation, and add Cryptoki.Licensee = "Licensee"; Cryptoki.ProductKey = "ProductKey" to my application. When I test it in your VB sample code,it's working, but if I add these code to my Console Application it's not working and alway notice"This version of NCryptoki is not licensed". What is the problem here?

Hi Ugo,

I set the license codes once at the beginning of my program, and my code as follows:

Public Class MainForm

    Dim tokenslots As SlotList
    Dim token As Token
    Dim session As Session
    Dim Cryptoki = New Cryptoki("c:\Program Files\SafeNet\LunaClient\cryptoki.dll")
    Dim res As Integer

    Dim pgp As String = ""
    Dim strSource As String = ""
    Dim strLog As String = "Application"
    Dim strMachine As String = "."
    Public myEventLog As EventLog = New EventLog(strLog, strMachine, strSource)
    Public expiryDates As New Collection
    Public confFilePresent As Boolean = False

    Cryptoki.Licensee = "...my Licensee..."
    Cryptoki.ProductKey = "...my ProductKey"

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

these two lines
    Cryptoki.Licensee = "...my Licensee..."
    Cryptoki.ProductKey = "...my ProductKey"

show error on Cryptoki, and if I add these in the MainForm_Load, the error disappear but when I run the code, the notice"This version of NCryptoki is not licensed" is coming. What is the problem here? Thank you.

Hi Ugo,

I read your Cryptoki class, the instructor is

"  Public Sub New()    and  Public Sub New(cryptokilib As String)"

I have to set instanciation of Cryptoki class, then set the Licensee value. How can I set the license before any instanciation of Cryptoki class?

do you have any example code? Thank you.

namespace Cryptware.NCryptoki
   
    <ClassInterface(ClassInterfaceType.AutoDual)> <ComVisible(True)> <Guid("7EC26C78-4297-43e0-BDBC-5477362D8C53")>
    Public Class Cryptoki
        Implements ICryptoki

   
        Public Const CKF_DONT_BLOCK As Integer = 1
        Public Sub New()
        Public Sub New(cryptokilib As String)

        Public Shared Property Licensee As String  
        Public Shared Property ProductKey As String      
        Public ReadOnly Property ActiveSlots As SlotList 
        Public ReadOnly Property AttachedCryptokiLib As String   
        Public ReadOnly Property Info As CryptokiInfo  
        Public ReadOnly Property Slots As SlotList