|
|
(SQL Server) ScMinidriver - Delete Smart Card Key Container
Demonstrates how to delete the contents of a key container on a smart card (or USB token).
// Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
//
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
DECLARE @sTmp0 nvarchar(4000)
-- This example requires the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.
-- Chilkat recommends the following free tool for interactively examining the contents of your smart card
-- through the ScMinidriver interface: MGTEK Tool for Minidriver enabled Smart Cards
-- Let's first look at our smart card..
-- Here's the view of the card we happen to be using: a Gemalto (Thales) IDPrime MD T=0 smart card.
DECLARE @scmd int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.ScMinidriver', @scmd OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
-- First we need to acquire a context to the smart card in the reader where it is inserted.
-- Reader names (smart card readers or USB tokens) can be discovered
-- via List Readers or Find Smart Cards
DECLARE @readerName nvarchar(4000)
SELECT @readerName = 'Alcor Micro USB Smart Card Reader 0'
DECLARE @success int
EXEC sp_OAMethod @scmd, 'AcquireContext', @success OUT, @readerName
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @scmd, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @scmd
RETURN
END
-- If successful, the name of the currently inserted smart card is available:
EXEC sp_OAGetProperty @scmd, 'CardName', @sTmp0 OUT
PRINT 'Card name: ' + @sTmp0
-- To delete the contents of a key container, we'll need to be PIN authenticated..
-- For more details about smart card PIN authentication, see the Smart Card PIN Authentication Example
DECLARE @pinId nvarchar(4000)
SELECT @pinId = 'user'
DECLARE @retval int
EXEC sp_OAMethod @scmd, 'PinAuthenticate', @retval OUT, @pinId, '0000'
IF @retval <> 0
BEGIN
PRINT 'PIN Authentication failed.'
EXEC sp_OAMethod @scmd, 'DeleteContext', @success OUT
EXEC @hr = sp_OADestroy @scmd
RETURN
END
-- Let's delete the contents of key container #7
-- This deletes both keys (signature key and "key exchange" key) that might be present in the key container.
-- (It is not possible to delete just one or the other.)
EXEC sp_OAMethod @scmd, 'DeleteKeyContainer', @success OUT, 7
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @scmd, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC sp_OAMethod @scmd, 'DeleteContext', @success OUT
EXEC @hr = sp_OADestroy @scmd
RETURN
END
EXEC sp_OAMethod @scmd, 'DeleteContext', @success OUT
PRINT 'Successfully delete the contents of key container #7'
EXEC @hr = sp_OADestroy @scmd
END
GO
|
