(AutoIt) (PKCS11) Use a Smart Card Certificate + Private Key for SSL/TLS Authentication

See more ScMinidriver Examples

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; 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.

$oPkcs11 = ObjCreate("Chilkat.Pkcs11")

; 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)
$oPkcs11.SharedLibPath = "C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS1164.dll"

Local $bSuccess = $oPkcs11.Initialize()
If ($bSuccess = False) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    Exit
EndIf

; Pass -1 for the slotID to open a session on the first non-empty slot.
Local $iSlotID = -1

; Open a session.
Local $bReadWrite = True
$bSuccess = $oPkcs11.OpenSession($iSlotID,$bReadWrite)
If ($bSuccess = False) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    Exit
EndIf

; 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 $iUserType = 1
Local $sPin = "0000"
$bSuccess = $oPkcs11.Login($iUserType,$sPin)
If ($bSuccess = False) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    $bSuccess = $oPkcs11.CloseSession()
    Exit
EndIf

$oCert = ObjCreate("Chilkat.Cert")

; Find a certificate by the Subject Common Name
$bSuccess = $oPkcs11.FindCert("subjectCN","BadSSL Client Certificate",$oCert)
If ($bSuccess = True) Then
    ConsoleWrite("Found: " & $oCert.SubjectCN & @CRLF)
Else
    ConsoleWrite("Not found: " & $oCert.SubjectCN & @CRLF)
    $bSuccess = $oPkcs11.CloseSession()
    Exit
EndIf

ConsoleWrite("Successfully loaded the cert object from the smart card / USB token." & @CRLF)

; Note: When successful, the cert object is internally linked to the Pkcs11 object's authenticated session.
; The cert object can now be used to sign or do other cryptographic operations that occur on the smart card / USB token.

; ------------------------------------------------------------------------------------------------------------

; Send an HTTPS request to https://client.badssl.com
; https://client.badssl.com (part of the badssl.com service) lets you test authentication using client SSL certificates. 
; The client certificate can be downloaded from https://badssl.com/download/.
; This server returns 200 OK if the correct client certificate is provided, and 400 Bad Request otherwise.

$oHttp = ObjCreate("Chilkat.Http")

; Provide the client certificate (linked internally to our authenticated smartcard session)
$bSuccess = $oHttp.SetSslClientCert($oCert)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    $bSuccess = $oPkcs11.CloseSession()
    Exit
EndIf

Local $sResponseBody = $oHttp.QuickGetStr("https://client.badssl.com/")
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    $bSuccess = $oPkcs11.CloseSession()
    Exit
EndIf

ConsoleWrite("Response status code: " & $oHttp.LastStatus & @CRLF)
ConsoleWrite("Response body: " & @CRLF)
ConsoleWrite($sResponseBody & @CRLF)

; ------------------------------------------------------------------------------------------------------------
; Revert to an unauthenticated session by calling Logout.
$bSuccess = $oPkcs11.Logout()
If ($bSuccess = False) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    $bSuccess = $oPkcs11.CloseSession()
    Exit
EndIf

; When finished, close the session.
; It is important to close the session (memory leaks will occur if the session is not properly closed).
$bSuccess = $oPkcs11.CloseSession()
If ($bSuccess = False) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Success." & @CRLF)