Lua Requires Chilkat v9.5.0.88+

PKCS11 Find All Certificates on Smart Card or USB Token

See more PKCS11 Examples

Sample code showing how to examine all the certificates on a smart card or USB token. Lua

local chilkat = require("chilkat")

-- This example requires the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.

-- Note: Chilkat's PKCS11 implementation runs on Windows, Linux, Mac OS X, and other supported operating systems.

local pkcs11 = chilkat.Pkcs11.new()

-- Set your shared lib path -- either a full path to the DLL, .so, or .dylib,
-- or just the filename if the driver is in a location that can be automatically found. (Such as in C:\Windows\System32)
pkcs11.shared_lib_path = "aetpkss1.dll"

local success = pkcs11:initialize()
if not success then
    print(pkcs11.last_error_text)
    return
end

-- Pass -1 for the slotID to open a session on the first non-empty slot.
local slotID = -1

-- Open a session.
local readWrite = true
success = pkcs11:open_session(slotID, readWrite)
if not success then
    print(pkcs11.last_error_text)
    return
end

-- Make it an authenticated session by calling Login.
--
-- If we don't authenticate, then we won't be able to see the private keys, and thus
-- we won't know which certificates have an associated private key stored on the smart card.

-- The smart card PIN is passed to the Login method.
-- userType 1 indicates a "Normal User".
local userType = 1
local pin = "0000"
success = pkcs11:login(userType, pin)
if not success then
    print(pkcs11.last_error_text)
    success = pkcs11:close_session()
    return
end

-- Call FindAllCerts to find all certificates on the smart card or USB token.
success = pkcs11:find_all_certs()
if not success then
    print(pkcs11.last_error_text)
    success = pkcs11:close_session()
    return
end

-- The NumCerts property is set by FindAllCerts.
local numCerts = pkcs11.num_certs
print("Number of certs: " .. numCerts)

local privateKeyNote = ""
local cert = chilkat.Cert.new()
local i = 0
while i < numCerts do
    pkcs11:get_cert(i, cert)
    privateKeyNote = ""
    if cert:has_private_key() then
        privateKeyNote = "(has private key)"
    end

    print(i .. ": " .. privateKeyNote .. " " .. cert.subject_dn)
    print(i .. ": issuer: " .. cert.issuer_dn)
    print("----")
    i = i + 1
end

-- Revert to an unauthenticated session by calling Logout.
success = pkcs11:logout()
if not success then
    print(pkcs11.last_error_text)
    success = pkcs11:close_session()
    return
end

-- When finished, close the session.
-- It is important to close the session (memory leaks will occur if the session is not properly closed).
success = pkcs11:close_session()
if not success then
    print(pkcs11.last_error_text)
    return
end

print("Success.")