trunk/OpenPGPminidriver/CryptoOperations.c

/*      OpenPGP Smart Card Mini Driver
    Copyright (C) 2009 Vincent Le Toux

    This library is Free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License version 2.1 as published by the Free Software Foundation.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

#include <windows.h>
#include <cardmod.h>
#include "Tracing.h"
#include "Context.h"
#include "SmartCard.h"
#include "CryptoOperations.h"
#include "PinOperations.h"
#include "PublicDataOperations.h"

OPENPGP_CONTAINER_INFO Containers[] = 
{
        {0xB6, 0xCE, 0xC7, CALG_RSA_SIGN, AT_SIGNATURE, ROLE_SIGNATURE},
        {0xA4, 0xD0, 0xC9, CALG_RSA_SIGN, AT_SIGNATURE, ROLE_AUTHENTICATION},
        {0xB8, 0xCF, 0xC8, CALG_RSA_KEYX, AT_KEYEXCHANGE, ROLE_CONFIDENTIALITY}
        
};

typedef struct _OPENPGP_SUPPORTED_SIGNATURE_ALGORITHM
{
        ALG_ID aiHashAlg;
        DWORD  dwHashSize;
        PBYTE pbEncodedOid;
        DWORD dwEncodedOidSize;
} OPENPGP_SUPPORTED_SIGNATURE_ALGORITHM, *POPENPGP_SUPPORTED_SIGNATURE_ALGORITHM;

BYTE dwSHA1EncodedOid[] = {0x30, 0x21, 0x30, 0x09, 0x06, 0x05, 0x2b, 0x0e, 0x03,
                        0x02, 0x1a, 0x05, 0x00, 0x04, 0x14};
BYTE dwSHA256EncodedOid[] = {0x30, 0x31, 0x30, 0x0D,0x06, 0x09, 0x60, 0x86, 0x48, 0x01,
                        0x65, 0x03, 0x04, 0x02, 0x01, 0x05, 0x00, 0x04, 0x20};
BYTE dwSHA384EncodedOid[] = {0x30, 0x41, 0x30, 0x0D, 0x06, 0x09, 0x60, 0x86, 0x48, 0x01,
                        0x65, 0x03, 0x04, 0x02, 0x02, 0x05, 0x00, 0x04, 0x30};
BYTE dwSHA512EncodedOid[] = {0x30, 0x41, 0x30, 0x0D, 0x06, 0x09, 0x60, 0x86, 0x48, 0x01,
                        0x65, 0x03, 0x04, 0x02, 0x03, 0x05, 0x00, 0x04, 0x40};

OPENPGP_SUPPORTED_SIGNATURE_ALGORITHM SignatureAlgorithm[] = 
{
        {CALG_SHA1,20, 
                        dwSHA1EncodedOid,
                        ARRAYSIZE(dwSHA1EncodedOid)},
        {CALG_SHA-256,32,
                        dwSHA256EncodedOid,
                        ARRAYSIZE(dwSHA256EncodedOid)},
        {CALG_SHA-384,48,
                        dwSHA384EncodedOid,
                        ARRAYSIZE(dwSHA384EncodedOid)},
        {CALG_SHA-512,64,
                        dwSHA512EncodedOid,
                        ARRAYSIZE(dwSHA512EncodedOid)},
};

DWORD dwSignatureAlgorithmCount = ARRAYSIZE(SignatureAlgorithm);

#pragma pack(push,1)
typedef struct _OPENPGP_ALGORITHM_ATTRIBUTE
{
        BYTE bAlgoId;
        unsigned short wModulusLength;
        unsigned short wExponentLength;
        BYTE bFormat;
} OPENPGP_ALGORITHM_ATTRIBUTE, *POPENPGP_ALGORITHM_ATTRIBUTE;
#pragma pack(pop)

typedef struct _RSAPUBLICKEYBLOB
{
        BLOBHEADER blobheader;
        RSAPUBKEY rsapubkey;
        BYTE modulus[sizeof(DWORD)];
} RSAPUBLICKEYBLOB, *PRSAPUBLICKEYBLOB;

DWORD getTlvSize(__in PBYTE pbPointer, __in PDWORD pdwOffset)
{
        DWORD dwSize;
        switch(*pbPointer)
        {
        case 0x81:
                *pdwOffset+=2;
                dwSize = pbPointer[1];
                break;
        case 0x82:
                *pdwOffset+=3;
                dwSize = pbPointer[1] * 0x100 + pbPointer[2];
                break;
        default:
                dwSize = *pbPointer;
                *pdwOffset+=1;
                break;
        }
        return dwSize;
}

BOOL find_tlv(__in PBYTE pbData, __in BYTE bCode, __out PBYTE *pbDataOut, __out_opt PDWORD pdwSize)
{
        DWORD dwOffset = 2;
        DWORD dwSize;
        DWORD dwTotalSize = getTlvSize(pbData + 2,&dwOffset) + 2;
        while (dwOffset < dwTotalSize)
        {
                if (bCode == pbData[dwOffset])
                {
                        dwOffset++;
                        // size sequence
                        dwSize = getTlvSize(pbData + dwOffset,&dwOffset);
                        if (pdwSize)
                        {
                                *pdwSize = dwSize;
                        }
                        *pbDataOut = pbData + dwOffset;
                        return TRUE;
                }
                else
                {
                        dwOffset++;
                        dwSize = getTlvSize(pbData + dwOffset,&dwOffset);
                        dwOffset += dwSize;
                }
        }
        return FALSE;
}


DWORD GetKeyAlgorithmAttributes(__in PCARD_DATA pCardData, 
                                                                __in OPENPGP_CONTAINER dwContainer,
                                                                __out POPENPGP_ALGORITHM_ATTRIBUTE pAttributes)
{
        DWORD dwReturn;
        PSTR szAlgorithmAttributes = NULL;
        PBYTE pbData = NULL;
        DWORD dwResponseSize;
        WORD wTemp;
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",dwContainer);
                switch(dwContainer)
                {
                case Signature:
                        szAlgorithmAttributes = szOpenPGPAlgoAttributesSignature;
                        break;
                case Authentication:
                        szAlgorithmAttributes = szOpenPGPAlgoAttributesDecryption;
                        break;
                case Confidentiality:
                        szAlgorithmAttributes = szOpenPGPAlgoAttributesAuthentication;
                        break;
                default:
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_KEY_CONTAINER %d", dwContainer);
                        __leave;
                }
                dwReturn = SCardReadFile(pCardData, szOpenPGPDir, szAlgorithmAttributes, &pbData, &dwResponseSize);
                if (dwReturn)
                {
                        __leave;
                }
                if (dwResponseSize != sizeof(OPENPGP_ALGORITHM_ATTRIBUTE))
                {
                        dwReturn = SCARD_E_UNEXPECTED;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_UNEXPECTED");
                        __leave;
                }
                memcpy(pAttributes, pbData, dwResponseSize);
                // big endian, little endian ...
                wTemp = pAttributes->wExponentLength;
                pAttributes->wExponentLength = (wTemp % 0x100) * 0x100 + (wTemp / 0x100);
                wTemp = pAttributes->wModulusLength;
                pAttributes->wModulusLength = (wTemp % 0x100) * 0x100 + (wTemp / 0x100);
                
                dwReturn = 0;
        }
        __finally
        {
                if (pbData)
                        pCardData->pfnCspFree(pbData);
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD SetKeyAlgorithmAttributes(__in PCARD_DATA pCardData, 
                                                                __in OPENPGP_CONTAINER dwContainer,
                                                                __out POPENPGP_ALGORITHM_ATTRIBUTE pAttributes)
{
        DWORD dwReturn;
        PSTR szAlgorithmAttributes = NULL;
        OPENPGP_ALGORITHM_ATTRIBUTE TempAttributes;
        WORD wTemp;
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",dwContainer);
                switch(dwContainer)
                {
                case Signature:
                        szAlgorithmAttributes = szOpenPGPAlgoAttributesSignature;
                        break;
                case Authentication:
                        szAlgorithmAttributes = szOpenPGPAlgoAttributesDecryption;
                        break;
                case Confidentiality:
                        szAlgorithmAttributes = szOpenPGPAlgoAttributesAuthentication;
                        break;
                default:
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_KEY_CONTAINER %d", dwContainer);
                        __leave;
                }
                memcpy(&TempAttributes, pAttributes, sizeof(OPENPGP_ALGORITHM_ATTRIBUTE));
                wTemp = TempAttributes.wExponentLength;
                TempAttributes.wExponentLength = (wTemp % 0x100) * 0x100 + (wTemp / 0x100);
                wTemp = TempAttributes.wModulusLength;
                TempAttributes.wModulusLength = (wTemp % 0x100) * 0x100 + (wTemp / 0x100);

                dwReturn = SCardWriteFile(pCardData, szOpenPGPDir, szAlgorithmAttributes, (PBYTE) &TempAttributes, sizeof(OPENPGP_ALGORITHM_ATTRIBUTE));
                if (dwReturn)
                {
                        __leave;
                }
                dwReturn = 0;
        }
        __finally
        {
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD BuildSingleTlv(__in PBYTE buffer, __in BYTE bTlv, __in DWORD dwTlvSize, __inout PDWORD pdwOffset)
{
        DWORD dwSize = 1;
        buffer[(*pdwOffset)++] = bTlv;
        // truncate if too long
        if (dwTlvSize > 0xFFFF) dwTlvSize = 0xFFFF;
        if (dwTlvSize < 0x7F)
        {
                buffer[(*pdwOffset)++] = (BYTE) dwTlvSize;
                dwSize++;
        }
        else if (dwTlvSize < 0xFF)
        {
                buffer[(*pdwOffset)++] = 0x81;
                buffer[(*pdwOffset)++] = (BYTE) dwTlvSize;
                dwSize+=2;
        }
        else
        {
                buffer[(*pdwOffset)++] = 0x82;
                buffer[(*pdwOffset)++] = (BYTE) (dwTlvSize / 0x100);
                buffer[(*pdwOffset)++] = (BYTE) (dwTlvSize % 0x100);
                dwSize+=3;
        }
        return dwSize;
}

DWORD BuildPrivateKeyTlv(__in PCARD_DATA pCardData, __in PRSAPUBLICKEYBLOB pbPublicKeyBlob, 
                                                  __in OPENPGP_CONTAINER dwContainer, __in BYTE bFormat,
                                                 __out PBYTE * ppbTlv, __out PDWORD pdwTlvSize)
{
        // structure of the keyblob
        //BLOBHEADER blobheader;
        //RSAPUBKEY rsapubkey;
        //BYTE modulus[rsapubkey.bitlen/8];
        //BYTE prime1[rsapubkey.bitlen/16];
        //BYTE prime2[rsapubkey.bitlen/16];
        //BYTE exponent1[rsapubkey.bitlen/16];
        //BYTE exponent2[rsapubkey.bitlen/16];
        //BYTE coefficient[rsapubkey.bitlen/16];
        //BYTE privateExponent[rsapubkey.bitlen/8];
        DWORD dwReturn = 0;
        
        DWORD bitlen = pbPublicKeyBlob->rsapubkey.bitlen;
        PBYTE pbPublicKeyData = (PBYTE) &(pbPublicKeyBlob->modulus);
        // 7F48 len is < 7F so its encoded len is 1 bytes
        // 3 bytes max + length * 7 potential plv
        BYTE b7F48Header[(3 +1) * 7 + 3] = {0x7F, 0x48}; 
        BYTE b5F48Header[3 + 2] = {0x5F, 0x48};
        BYTE b4DHeader[3 + 1] = {0x4D};
        DWORD dwOffset = 0;
        DWORD dw7F48HeaderSize, dw5F48HeaderSize, dw4DHeaderSize;
        DWORD dwKeyDataSize, dwExtendedHeaderListSize;
        DWORD dwI;
        __try
        {
                // build the 7F48 header + the data into a buffer
                dwOffset = 3;
                dw7F48HeaderSize = 0;
                dw7F48HeaderSize += BuildSingleTlv(b7F48Header, 0x91, sizeof(DWORD), &dwOffset);
                dw7F48HeaderSize += BuildSingleTlv(b7F48Header, 0x92, bitlen / 16, &dwOffset);
                dw7F48HeaderSize += BuildSingleTlv(b7F48Header, 0x93, bitlen / 16, &dwOffset);
                if (bFormat & 2)
                {
                        // add crt (chineese reminder theorem) template
                        dw7F48HeaderSize += BuildSingleTlv(b7F48Header, 0x94, bitlen / 16, &dwOffset);
                        dw7F48HeaderSize += BuildSingleTlv(b7F48Header, 0x95, bitlen / 16, &dwOffset);
                        dw7F48HeaderSize += BuildSingleTlv(b7F48Header, 0x96, bitlen / 16, &dwOffset);
                }
                if (bFormat & 1)
                {
                        dw7F48HeaderSize += BuildSingleTlv(b7F48Header, 0x97, bitlen / 8, &dwOffset);
                }
                b7F48Header[2] = (BYTE) dw7F48HeaderSize;
                dw7F48HeaderSize += 3; // before = only content, after += header size
                // build 5F48 header in a buffer
                // size of the data
                dwKeyDataSize = sizeof(DWORD) // e
                                                                                + bitlen / 16 //prime1
                                                                                + bitlen / 16 //prime2
                                                                                ;
                if (bFormat & 2)
                {
                        dwKeyDataSize+= bitlen / 16 //coefficient
                                                                                + bitlen / 16 //exp1
                                                                                + bitlen / 16 //exp2
                                                                                ;
                }
                if (bFormat & 1)
                {
                        dwKeyDataSize+= bitlen / 8 ; //modulus
                }
                dwOffset = 1;
                dw5F48HeaderSize = 1 + BuildSingleTlv(b5F48Header, 0x48, dwKeyDataSize, &dwOffset);
                // build the extended header list in a buffer
                dwExtendedHeaderListSize = 2 // for the crt to indicate the private key
                                                                + dw7F48HeaderSize
                                                                + dw5F48HeaderSize
                                                                + dwKeyDataSize;
                dwOffset = 0;
                dw4DHeaderSize = BuildSingleTlv(b4DHeader, 0x4D, dwExtendedHeaderListSize, &dwOffset);

                // allocate the memory
                *pdwTlvSize = dw4DHeaderSize + dwExtendedHeaderListSize;
                *ppbTlv = pCardData->pfnCspAlloc(*pdwTlvSize);
                if (! *ppbTlv)
                {
                        dwReturn = SCARD_E_NO_MEMORY;
                        __leave;
                }
                // 4D header
                dwOffset = 0;
                memcpy(*ppbTlv + dwOffset, b4DHeader, dw4DHeaderSize);
                dwOffset += dw4DHeaderSize;
                // control reference templace
                (*ppbTlv)[dwOffset++] = Containers[dwContainer].bKeyTag;
                (*ppbTlv)[dwOffset++] = 0;
                // cardholder private key template
                memcpy(*ppbTlv + dwOffset, b7F48Header, dw7F48HeaderSize);
                dwOffset += dw7F48HeaderSize;
                // Concatenation of key data header
                memcpy(*ppbTlv + dwOffset, b5F48Header, dw5F48HeaderSize);
                dwOffset += dw5F48HeaderSize;
                // Concatenation of key data
                // exponent little => big endian
                (*ppbTlv)[dwOffset++] = (BYTE) (pbPublicKeyBlob->rsapubkey.pubexp / 0x1000000);
                (*ppbTlv)[dwOffset++] = (BYTE) ((pbPublicKeyBlob->rsapubkey.pubexp % 0x1000000) / 0x10000);
                (*ppbTlv)[dwOffset++] = (BYTE) ((pbPublicKeyBlob->rsapubkey.pubexp % 0x10000) / 0x100);
                (*ppbTlv)[dwOffset++] = (BYTE) ((pbPublicKeyBlob->rsapubkey.pubexp % 0x100) / 0x1);
                // prime1
                //memcpy(*ppbTlv + dwOffset, pbPublicKeyData + (2*bitlen)/16, bitlen / 16);
                for(dwI = 0; dwI < bitlen / 16; dwI++)
                {
                        (*ppbTlv)[dwOffset+dwI] = pbPublicKeyData[(3*bitlen)/16 - 1 - dwI];
                }
                dwOffset += bitlen / 16;
                
                // prime2
                for(dwI = 0; dwI < bitlen / 16; dwI++)
                {
                        (*ppbTlv)[dwOffset+dwI] = pbPublicKeyData[(4*bitlen)/16 - 1 - dwI];
                }
                //memcpy(*ppbTlv + dwOffset, pbPublicKeyData + (3*bitlen)/16, bitlen / 16);
                dwOffset += bitlen / 16;
                if (bFormat & 2)
                {
                        // coeff
                        //memcpy(*ppbTlv + dwOffset, pbPublicKeyData + (2+1 + 3) * bitlen / 16 , bitlen / 16);
                        for(dwI = 0; dwI < bitlen / 16; dwI++)
                        {
                                (*ppbTlv)[dwOffset+dwI] = pbPublicKeyData[(7*bitlen)/16 - 1 - dwI];
                        }
                        dwOffset += bitlen / 16;
                        // exponent1
                        //memcpy(*ppbTlv + dwOffset, pbPublicKeyData + (2+1 + 1) * bitlen / 16 , bitlen / 16);
                        for(dwI = 0; dwI < bitlen / 16; dwI++)
                        {
                                (*ppbTlv)[dwOffset+dwI] = pbPublicKeyData[(5*bitlen)/16 - 1 - dwI];
                        }
                        dwOffset += bitlen / 16;
                        // exponent2
                        //memcpy(*ppbTlv + dwOffset, pbPublicKeyData + (2+1 + 2) * bitlen / 16 , bitlen / 16);
                        for(dwI = 0; dwI < bitlen / 16; dwI++)
                        {
                                (*ppbTlv)[dwOffset+dwI] = pbPublicKeyData[(6*bitlen)/16 - 1 - dwI];
                        }
                        dwOffset += bitlen / 16;
                }
                if (bFormat & 1)
                {
                        // modulus
                        //memcpy(*ppbTlv + dwOffset, pbPublicKeyData, bitlen / 8);
                        for(dwI = 0; dwI < bitlen / 8; dwI++)
                        {
                                (*ppbTlv)[dwOffset+dwI] = pbPublicKeyData[bitlen / 8 - 1 - dwI];
                        }
                }
        }
        __finally
        {
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD UpdateGenerationDateTime(__in PCARD_DATA pCardData, __in OPENPGP_CONTAINER dwContainer,
                                                           __out PDWORD pdwSecondsSince1970)
{
        DWORD dwReturn = 0;
        LARGE_INTEGER UnixZeroTime = {0}, WindowsTime;
        SYSTEMTIME WindowsSystemTime;
        FILETIME WindowsFileTime;
        BYTE pbCommand[] = {0x00, 0xDA, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00};
        DWORD dwCommandSize = ARRAYSIZE(pbCommand);
        __try
        {
                UnixZeroTime.QuadPart = 116444736000000000I64; // january 1st 1970
                GetSystemTime(&WindowsSystemTime);
                SystemTimeToFileTime(&WindowsSystemTime, &WindowsFileTime);
                /* It is not recommended that you add and subtract values from the FILETIME
                structure to obtain relative times. Instead, you should copy the low- and high-order
                parts of the file time to a ULARGE_INTEGER  structure, perform 64-bit arithmetic
                on the QuadPart member, and copy the LowPart and HighPart  members into the 
                FILETIME structure.

                Do not cast a pointer to a FILETIME structure to either a ULARGE_INTEGER* 
                or __int64* value because it can cause alignment faults on 64-bit Windows.
                */
                WindowsTime.HighPart = WindowsFileTime.dwHighDateTime;
                WindowsTime.LowPart = WindowsFileTime.dwLowDateTime;
                *pdwSecondsSince1970 = (DWORD)((WindowsTime.QuadPart - UnixZeroTime.QuadPart) / 10000000);
                
                pbCommand[3] = Containers[dwContainer].bDateTimeTag;
                pbCommand[5] = (BYTE) (*pdwSecondsSince1970 / 0x1000000);
                pbCommand[6] = (BYTE) ((*pdwSecondsSince1970 % 0x1000000) / 0x10000);
                pbCommand[7] = (BYTE) ((*pdwSecondsSince1970 % 0x10000) / 0x100);
                pbCommand[8] = (BYTE) ((*pdwSecondsSince1970 % 0x100) / 0x1);
                dwReturn = SCardSendCommand(pCardData, pbCommand, dwCommandSize);
        }
        __finally
        {
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD UpdateFingerPrint(__in PCARD_DATA pCardData, __in OPENPGP_CONTAINER dwContainer, 
                                                __in DWORD dwSecondsSince1970,
                                                __in PBYTE pbModulus, __in DWORD dwModulusSizeInBit,
                                                __in BOOL fIsModulusInBigEndian,
                                                __in DWORD dwExponent)
{
        // modulus in input are in big endian
        // rfc4880 12.2
        DWORD dwReturn = 0;
        PBYTE pbBuffer = NULL;
        DWORD dwBufferSize;
        DWORD dwOffset = 0;
        HCRYPTPROV hProv = 0;
        HCRYPTHASH hHash = 0;
        BYTE pbCommand[25] = {0x00, 0xDA, 0x00, 0x00, 0x14};
        DWORD dwCommandSize = ARRAYSIZE(pbCommand);
        DWORD dwHashLen = 0x14;
        __try
        {
                dwBufferSize = dwModulusSizeInBit / 8 + sizeof(DWORD) + 10  + 3;
                pbBuffer = (PBYTE) pCardData->pfnCspAlloc(dwBufferSize);
                if (!pbBuffer)
                {
                        dwReturn = SCARD_E_NO_MEMORY;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_MEMORY");
                        __leave;
                }
                pbBuffer[dwOffset++] = 0x99;
                // -3 because of the header size
                pbBuffer[dwOffset++] = (BYTE) ((dwBufferSize-3) / 0x100);
                pbBuffer[dwOffset++] = (BYTE) ((dwBufferSize-3) % 0x100);
                // rfc4880 5.5.2
                // version
                pbBuffer[dwOffset++] = 4;
                // timestamp
                pbBuffer[dwOffset++] = (BYTE) (dwSecondsSince1970 / 0x1000000);
                pbBuffer[dwOffset++] = (BYTE) ((dwSecondsSince1970 % 0x1000000) / 0x10000);
                pbBuffer[dwOffset++] = (BYTE) ((dwSecondsSince1970 % 0x10000) / 0x100);
                pbBuffer[dwOffset++] = (BYTE) ((dwSecondsSince1970 % 0x100) / 0x1);
                // RSA
                pbBuffer[dwOffset++] = 1;
                // size of modulus
                pbBuffer[dwOffset++] = (BYTE) ((dwModulusSizeInBit % 0x10000) / 0x100);
                pbBuffer[dwOffset++] = (BYTE) ((dwModulusSizeInBit % 0x100) / 0x1);
                if (fIsModulusInBigEndian)
                {
                        memcpy(pbBuffer + dwOffset, pbModulus, dwModulusSizeInBit / 8);
                }
                else
                {
                        DWORD dwI;
                        for(dwI = 0; dwI < dwModulusSizeInBit / 8; dwI++)
                        {
                                pbBuffer[dwOffset + dwI] = pbModulus[dwModulusSizeInBit / 8 - 1 - dwI];
                        }
                }
                // size of exponent
                pbBuffer[dwOffset++] = 0;
                pbBuffer[dwOffset++] = sizeof(DWORD);
                // exponent
                pbBuffer[dwOffset++] = (BYTE) (dwExponent / 0x1000000);
                pbBuffer[dwOffset++] = (BYTE) ((dwExponent % 0x1000000) / 0x10000);
                pbBuffer[dwOffset++] = (BYTE) ((dwExponent % 0x10000) / 0x100);
                pbBuffer[dwOffset++] = (BYTE) ((dwExponent % 0x100) / 0x1);

                // hash using SHA1
                if (!CryptAcquireContext(&hProv,  NULL, NULL, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT))
                {
                        dwReturn = GetLastError();
                        Trace(WINEVENT_LEVEL_ERROR, L"CryptAcquireContext 0x%08X", dwReturn);
                        __leave;
                }
                if(!CryptCreateHash(hProv, CALG_SHA1, 0, 0, &hHash)) 
                {
                        dwReturn = GetLastError();
                        Trace(WINEVENT_LEVEL_ERROR, L"CryptCreateHash 0x%08X", dwReturn);
                        __leave;
                }
                if(!CryptHashData(hHash, pbBuffer, dwBufferSize, 0)) 
                {
                        dwReturn = GetLastError();
                        Trace(WINEVENT_LEVEL_ERROR, L"CryptHashData 0x%08X", dwReturn);
                        __leave;
                }
                if(!CryptGetHashParam(hHash, HP_HASHVAL, pbCommand + 5, &dwHashLen, 0)) {
                        dwReturn = GetLastError();
                        Trace(WINEVENT_LEVEL_ERROR, L"CryptGetHashParam 0x%08X", dwReturn);
                        __leave;
                }
                pbCommand[3] = Containers[dwContainer].bSignatureTag;
                dwReturn = SCardSendCommand(pCardData, pbCommand, dwCommandSize);

        }
        __finally
        {
                if (pbBuffer)
                        pCardData->pfnCspFree(pbBuffer);
                if(hHash) 
                         CryptDestroyHash(hHash);
                if(hProv) 
                        CryptReleaseContext(hProv,0);

        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;

}

DWORD SCardReadPublicKey(PCARD_DATA pCardData, OPENPGP_CONTAINER dwContainer, PBYTE *pbPublicKey, PDWORD pdwPublicKeySize)
{
        DWORD dwReturn;
        PBYTE pbData = NULL;
        DWORD dwResponseSize = 0;
        BYTE pbCmd[] = {0x00, 
                                    0x47,
                                        0x81,
                                        0x00,
                                        0x00,
                                        0x00,
                                        0x02,
                                        0x00,
                                        0x00,
                                        0x00,
                                        0x00
                                        };
        DWORD dwCmdSize;
        POPENPGP_CONTEXT pContext;
        PBYTE pbModulus;
        DWORD dwModulusSize, dwI;
        PBYTE pbExponent;
        PRSAPUBLICKEYBLOB pbBlob = NULL;
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",dwContainer);
                if (dwContainer >= MaxContainer)
                {
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_INFO, L"SCARD_E_NO_KEY_CONTAINER %d", dwContainer);
                        __leave;
                }
                pContext = (POPENPGP_CONTEXT) pCardData->pvVendorSpecific;
                pbCmd[7] = Containers[dwContainer].bKeyTag;
                dwCmdSize = 9;
                if (pContext->fExtentedLeLcFields)
                {
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength / 0x100);
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength % 0x100);
                }
                else
                {
                        pbCmd[dwCmdSize++] = 0xFF;
                }

                dwReturn = SCardGetData(pCardData, pbCmd, dwCmdSize, &pbData, &dwResponseSize);
                if (dwReturn)
                {
                        __leave;
                }
                if (!find_tlv(pbData,0x81,&pbModulus,&dwModulusSize))
                {
                        dwReturn = SCARD_E_UNEXPECTED;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_UNEXPECTED 0x81");
                        __leave;
                }
                if (!find_tlv(pbData,0x82,(PBYTE*)&pbExponent,NULL))
                {
                        dwReturn = SCARD_E_UNEXPECTED;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_UNEXPECTED 0x81");
                        __leave;
                }
                Trace(WINEVENT_LEVEL_INFO, L"dwModulusSize %d bits", dwModulusSize * 8);
                *pdwPublicKeySize = sizeof(RSAPUBLICKEYBLOB) + dwModulusSize - sizeof(DWORD);
                *pbPublicKey = pCardData->pfnCspAlloc(*pdwPublicKeySize);
                if (!*pbPublicKey)
                {
                        dwReturn = SCARD_E_NO_MEMORY;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_MEMORY %d", dwContainer);
                        __leave;
                }
                pbBlob = (PRSAPUBLICKEYBLOB) *pbPublicKey;
                memset(pbBlob,0,*pdwPublicKeySize);
                pbBlob->blobheader.bType = PUBLICKEYBLOB;
                pbBlob->blobheader.bVersion = CUR_BLOB_VERSION;
                pbBlob->blobheader.reserved = 0;
                pbBlob->blobheader.aiKeyAlg = Containers[dwContainer].aiKeyAlg;
                pbBlob->rsapubkey.magic = 0x31415352; //'RSA1';
                pbBlob->rsapubkey.bitlen = dwModulusSize*8;
                pbBlob->rsapubkey.pubexp = pbExponent[0] * 0x1000000  + pbExponent[1] * 0x10000  + pbExponent[2] * 0x100 + pbExponent[3];
                // convert big endian into little endian
                //memcpy(pbBlob->modulus, pbModulus, dwModulusSize);
                for (dwI = 0; dwI < dwModulusSize; dwI++)
                {
                        pbBlob->modulus[dwI] = pbModulus[dwModulusSize - 1 - dwI];
                }
                
                dwReturn = 0;
        }
        __finally
        {
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD SCardCreateKey(PCARD_DATA pCardData, OPENPGP_CONTAINER dwContainer, DWORD dwBitLen)
{
        DWORD dwReturn;
        PBYTE pbData = NULL;
        DWORD dwResponseSize = 0, dwCmdSize;
        OPENPGP_ALGORITHM_ATTRIBUTE Attributes;
        POPENPGP_CONTEXT pContext;
        DWORD dwSecondsSince1970;
        PBYTE pbModulus, pbExponent;
        DWORD dwModulusSize, dwExponent;
        BYTE pbCmd[] = {0x00, 
                                    0x47,
                                        0x80,
                                        0x00,
                                        0x00,
                                        0x00,
                                        0x02,
                                        0x00,
                                        0x00,
                                        0x00,
                                        0x00
                                        };
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",dwContainer);
                if (dwContainer >= MaxContainer)
                {
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_INFO, L"SCARD_E_NO_KEY_CONTAINER %d", dwContainer);
                        __leave;
                }
                // key len
                dwReturn = GetKeyAlgorithmAttributes(pCardData, dwContainer, &Attributes);
                if (dwReturn == SCARD_E_FILE_NOT_FOUND)
                {
                        Attributes.bAlgoId = 0x01;
                        Attributes.bFormat = 0;
                        Attributes.wExponentLength = 0x20;
                } 
                else if (dwReturn)
                {
                        __leave;
                }
                Attributes.wModulusLength = (WORD) dwBitLen;
                dwReturn = SetKeyAlgorithmAttributes(pCardData, dwContainer, &Attributes);
                if (dwReturn)
                {
                        __leave;
                }

                pContext = (POPENPGP_CONTEXT) pCardData->pvVendorSpecific;
                pbCmd[7] = Containers[dwContainer].bKeyTag;
                dwCmdSize = 9;
                if (pContext->fExtentedLeLcFields)
                {
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength / 0x100);
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength % 0x100);
                }
                else
                {
                        pbCmd[dwCmdSize++] = 0xFF;
                }
                
                dwReturn = SCardGetData(pCardData, pbCmd, dwCmdSize, &pbData, &dwResponseSize);
                if (dwReturn)
                {
                        __leave;
                }
                if (!find_tlv(pbData,0x81,&pbModulus,&dwModulusSize))
                {
                        dwReturn = SCARD_E_UNEXPECTED;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_UNEXPECTED 0x81");
                        __leave;
                }
                if (!find_tlv(pbData,0x82,(PBYTE*)&pbExponent,NULL))
                {
                        dwReturn = SCARD_E_UNEXPECTED;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_UNEXPECTED 0x81");
                        __leave;
                }
                dwExponent = pbExponent[0] * 0x1000000  + pbExponent[1] * 0x10000  + pbExponent[2] * 0x100 + pbExponent[3];
                dwReturn = UpdateGenerationDateTime(pCardData, dwContainer, &dwSecondsSince1970);
                if (dwReturn)
                {
                        __leave;
                }
                dwReturn = UpdateFingerPrint(pCardData, dwContainer, dwSecondsSince1970, 
                                                                                pbModulus,
                                                                                dwModulusSize * 8,
                                                                                TRUE,
                                                                                dwExponent
                                                                                );
        }
        __finally
        {
                if (pbData)
                        pCardData->pfnCspFree(pbData);
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD SCardImportKey(PCARD_DATA pCardData, 
                                         OPENPGP_CONTAINER dwContainer,
                                         PBYTE pBlob,
                                         DWORD dwKeySize)
{
        DWORD dwReturn;
        PSTR szAlgorithmAttributes = NULL;
        PBYTE pbTlv = NULL;
        DWORD dwTlvSize;
        PBYTE pbCommand = NULL;
        DWORD dwCommandSize;
        OPENPGP_ALGORITHM_ATTRIBUTE Attributes;
        PRSAPUBLICKEYBLOB pbPublicKeyBlob = (PRSAPUBLICKEYBLOB) pBlob;
        BYTE bCommand[] = {0x00,0xDB,0x3F,0xFF};
        DWORD dwSecondsSince1970;
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",dwContainer);
                // check blob
                if (pbPublicKeyBlob->blobheader.aiKeyAlg != CALG_RSA_SIGN &&
                        pbPublicKeyBlob->blobheader.aiKeyAlg != CALG_RSA_KEYX)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"Wrong aiKeyAlg %d", pbPublicKeyBlob->blobheader.aiKeyAlg);
                        dwReturn = SCARD_E_INVALID_PARAMETER;
                        __leave;
                }
                if (pbPublicKeyBlob->blobheader.bType != PRIVATEKEYBLOB)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"Wrong bType %d", pbPublicKeyBlob->blobheader.bType);
                        dwReturn = SCARD_E_INVALID_PARAMETER;
                        __leave;
                }
                if (pbPublicKeyBlob->rsapubkey.magic != 0x32415352)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"Wrong magic");
                        dwReturn = SCARD_E_INVALID_PARAMETER;
                        __leave;
                }
                
                dwReturn = GetKeyAlgorithmAttributes(pCardData, dwContainer, &Attributes);
                if (dwReturn == SCARD_E_FILE_NOT_FOUND)
                {
                        Attributes.bAlgoId = 0x01;
                        Attributes.bFormat = 0;
                        Attributes.wExponentLength = 0x20;
                } 
                else if (dwReturn)
                {
                        __leave;
                }
                Attributes.wModulusLength = (WORD) pbPublicKeyBlob->rsapubkey.bitlen;
                dwReturn = SetKeyAlgorithmAttributes(pCardData, dwContainer, &Attributes);
                if (dwReturn)
                {
                        __leave;
                }
                dwReturn = BuildPrivateKeyTlv(pCardData, pbPublicKeyBlob, dwContainer, Attributes.bFormat, &pbTlv, &dwTlvSize);
                if (dwReturn)
                {
                        __leave;
                }
                if (dwTlvSize > 0xFF)
                {
                        dwCommandSize = 7 + dwTlvSize;
                        
                }
                else
                {
                        dwCommandSize = 5 + dwTlvSize;
                }
                pbCommand = pCardData->pfnCspAlloc(dwCommandSize);
                if (!pbCommand)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_MEMORY");
                        dwReturn = SCARD_E_NO_MEMORY;
                        __leave;
                }
                memcpy(pbCommand, bCommand, 4);
                if (dwTlvSize > 0xFF)
                {
                        pbCommand[4] = 0;
                        pbCommand[5] = (BYTE)(dwTlvSize / 0x100);
                        pbCommand[6] = (BYTE)(dwTlvSize % 0x100);
                        memcpy(pbCommand + 7, pbTlv, dwTlvSize);
                }
                else
                {
                        pbCommand[4] = (BYTE) dwTlvSize;
                        memcpy(pbCommand + 5, pbTlv, dwTlvSize);
                }
                dwReturn = SCardSendCommand(pCardData, pbCommand, dwCommandSize);
                if (dwReturn)
                {
                        __leave;
                }
                dwReturn = UpdateGenerationDateTime(pCardData, dwContainer, &dwSecondsSince1970);
                if (dwReturn)
                {
                        __leave;
                }
                dwReturn = UpdateFingerPrint(pCardData, dwContainer, dwSecondsSince1970, 
                                                                                pbPublicKeyBlob->modulus,
                                                                                pbPublicKeyBlob->rsapubkey.bitlen,
                                                                                FALSE,
                                                                                pbPublicKeyBlob->rsapubkey.pubexp
                                                                                );
        }
        __finally
        {
                if (pbCommand)
                {
                        SecureZeroMemory(pbCommand, dwCommandSize);
                        pCardData->pfnCspFree(pbCommand);
                }
                if (pbTlv)
                {
                        SecureZeroMemory(pbTlv, dwTlvSize);
                        pCardData->pfnCspFree(pbTlv);
                }
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD SCardSign(PCARD_DATA pCardData,
                                PCARD_SIGNING_INFO  pInfo)
{
        DWORD dwReturn;
        PBYTE pbData = NULL;
        DWORD dwCmdSize = 0, dwI;
        POPENPGP_CONTEXT pContext;
        BYTE pbCmd[6 + 256 + 256] = {0x00, 
                                    0x2A,
                                        0x9E,
                                        0x9A,
                                        0x00,
                                        0x00,
                                        };
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",pInfo->bContainerIndex);
                if (pInfo->bContainerIndex != Signature)
                {
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_KEY_CONTAINER %d", pInfo->bContainerIndex);
                        __leave;
                }
                if (CARD_PADDING_PKCS1 & pInfo->dwPaddingType)
                {
                        dwReturn = SCARD_E_UNSUPPORTED_FEATURE;
                        Trace(WINEVENT_LEVEL_ERROR, L"CARD_PADDING_PKCS1");
                        __leave;
                }
                else if (CARD_PADDING_PSS & pInfo->dwPaddingType)
                {
                        dwReturn = SCARD_E_UNSUPPORTED_FEATURE;
                        Trace(WINEVENT_LEVEL_ERROR, L"CARD_PADDING_PSS");
                        __leave;
                }
                for(dwI = 0 ; dwI < dwSignatureAlgorithmCount ; dwI++)
                {
                        if (SignatureAlgorithm[dwI].aiHashAlg == pInfo->aiHashAlg)
                        {
                                // found
                                break;
                        }
                }
                if (dwI >= dwSignatureAlgorithmCount)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"alg not found %d", pInfo->aiHashAlg);
                        __leave;
                }
                if (SignatureAlgorithm[dwI].dwHashSize != pInfo->cbData)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"wrong hash size %d", pInfo->cbData);
                        __leave;
                }
                pContext = (POPENPGP_CONTEXT) pCardData->pvVendorSpecific;

                dwCmdSize = 5;
                if (pContext->fExtentedLeLcFields)
                {
                        dwCmdSize++;
                }
                pbCmd[dwCmdSize++] = (BYTE) (SignatureAlgorithm[dwI].dwEncodedOidSize + pInfo->cbData);
                memcpy(pbCmd + dwCmdSize , SignatureAlgorithm[dwI].pbEncodedOid,SignatureAlgorithm[dwI].dwEncodedOidSize);
                dwCmdSize += SignatureAlgorithm[dwI].dwEncodedOidSize;
                /*for(dwI = 0 ; dwI < pInfo->cbData ; dwI++)
                {
                        pbCmd[dwCmdSize + dwI] = pInfo->pbData[pInfo->cbData - dwI -1];
                }*/
                memcpy(pbCmd + dwCmdSize, pInfo->pbData,pInfo->cbData);
                dwCmdSize += pInfo->cbData;

                
                if (pContext->fExtentedLeLcFields)
                {
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength / 0x100);
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength % 0x100);
                }
                else
                {
                        pbCmd[dwCmdSize++] = 0;
                }
                dwReturn = SCardGetData(pCardData, pbCmd, dwCmdSize, &(pInfo->pbSignedData), &(pInfo->cbSignedData));
                if (dwReturn == SCARD_W_WRONG_CHV)
                {
                        dwReturn = SCARD_W_SECURITY_VIOLATION;
                        __leave;
                }
                if (dwReturn)
                {
                        __leave;
                }
                // revert the BYTES
                for(dwI = 0 ; dwI < pInfo->cbSignedData / 2 ; dwI++)
                {
                        BYTE bTemp = pInfo->pbSignedData[dwI];
                        pInfo->pbSignedData[dwI] = pInfo->pbSignedData[pInfo->cbSignedData - 1 - dwI];
                        pInfo->pbSignedData[pInfo->cbSignedData - 1 - dwI] = bTemp;
                }
        }
        __finally
        {
                if (dwReturn)
                {
                        if (pInfo->pbSignedData)
                                pCardData->pfnCspFree(pInfo->pbSignedData);
                }
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD SCardAuthenticate(PCARD_DATA pCardData,
                                PCARD_SIGNING_INFO  pInfo)
{
        DWORD dwReturn;
        PBYTE pbData = NULL;
        DWORD dwCmdSize = 0, dwI;
        POPENPGP_CONTEXT pContext;
        BYTE pbCmd[6 + 256 + 256] = {0x00, 
                                    0x88,
                                        0x00,
                                        0x00,
                                        0x00,
                                        0x00,
                                        };
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",pInfo->bContainerIndex);
                if (pInfo->bContainerIndex != Authentication)
                {
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_KEY_CONTAINER %d", pInfo->bContainerIndex);
                        __leave;
                }
                if (CARD_PADDING_PKCS1 & pInfo->dwPaddingType)
                {
                        dwReturn = SCARD_E_UNSUPPORTED_FEATURE;
                        Trace(WINEVENT_LEVEL_ERROR, L"CARD_PADDING_PKCS1");
                        __leave;
                }
                else if (CARD_PADDING_PSS & pInfo->dwPaddingType)
                {
                        dwReturn = SCARD_E_UNSUPPORTED_FEATURE;
                        Trace(WINEVENT_LEVEL_ERROR, L"CARD_PADDING_PSS");
                        __leave;
                }
                for(dwI = 0 ; dwI < dwSignatureAlgorithmCount ; dwI++)
                {
                        if (SignatureAlgorithm[dwI].aiHashAlg == pInfo->aiHashAlg)
                        {
                                // found
                                break;
                        }
                }
                if (dwI >= dwSignatureAlgorithmCount)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"alg not found %d", pInfo->aiHashAlg);
                        __leave;
                }
                if (SignatureAlgorithm[dwI].dwHashSize != pInfo->cbData)
                {
                        Trace(WINEVENT_LEVEL_ERROR, L"wrong hash size %d", pInfo->cbData);
                        __leave;
                }
                pContext = (POPENPGP_CONTEXT) pCardData->pvVendorSpecific;

                dwCmdSize = 5;
                if (pContext->fExtentedLeLcFields)
                {
                        dwCmdSize++;
                }
                pbCmd[dwCmdSize++] = (BYTE) (SignatureAlgorithm[dwI].dwEncodedOidSize + pInfo->cbData);
                memcpy(pbCmd + dwCmdSize , SignatureAlgorithm[dwI].pbEncodedOid,SignatureAlgorithm[dwI].dwEncodedOidSize);
                dwCmdSize += SignatureAlgorithm[dwI].dwEncodedOidSize;
                /*for(dwI = 0 ; dwI < pInfo->cbData ; dwI++)
                {
                        pbCmd[dwCmdSize + dwI] = pInfo->pbData[pInfo->cbData - dwI -1];
                }*/
                memcpy(pbCmd + dwCmdSize, pInfo->pbData,pInfo->cbData);
                dwCmdSize += pInfo->cbData;

                
                if (pContext->fExtentedLeLcFields)
                {
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength / 0x100);
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength % 0x100);
                }
                else
                {
                        pbCmd[dwCmdSize++] = 0;
                }
                dwReturn = SCardGetData(pCardData, pbCmd, dwCmdSize, &(pInfo->pbSignedData), &(pInfo->cbSignedData));
                if (dwReturn == SCARD_W_WRONG_CHV)
                {
                        dwReturn = SCARD_W_SECURITY_VIOLATION;
                        __leave;
                }
                if (dwReturn)
                {
                        __leave;
                }
                // revert the BYTES
                for(dwI = 0 ; dwI < pInfo->cbSignedData / 2 ; dwI++)
                {
                        BYTE bTemp = pInfo->pbSignedData[dwI];
                        pInfo->pbSignedData[dwI] = pInfo->pbSignedData[pInfo->cbSignedData - 1 - dwI];
                        pInfo->pbSignedData[pInfo->cbSignedData - 1 - dwI] = bTemp;
                }
        }
        __finally
        {
                if (dwReturn)
                {
                        if (pInfo->pbSignedData)
                                pCardData->pfnCspFree(pInfo->pbSignedData);
                }
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}

DWORD SCardDecrypt(PCARD_DATA pCardData,
                                PCARD_RSA_DECRYPT_INFO  pInfo)
{
        DWORD dwReturn;
        PBYTE pbData = NULL;
        DWORD dwCmdSize = 0, dwResponseSize;
        BYTE pbCmd[6 + 256 + 256] = {0x00, 
                                    0x2A,
                                        0x80,
                                        0x86,
                                        0x00,
                                        };
        POPENPGP_CONTEXT pContext;
        DWORD dwI;
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwContainer=%d",pInfo->bContainerIndex);
                if (pInfo->bContainerIndex >= MaxContainer)
                {
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_KEY_CONTAINER %d", pInfo->bContainerIndex);
                        __leave;
                }
                if (pInfo->bContainerIndex != Confidentiality)
                {
                        dwReturn = SCARD_E_NO_KEY_CONTAINER;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_NO_KEY_CONTAINER %d", pInfo->bContainerIndex);
                        __leave;
                }
                pContext = (POPENPGP_CONTEXT) pCardData->pvVendorSpecific;
                dwCmdSize = 5;
                if (pContext->fExtentedLeLcFields)
                {
                        pbCmd[dwCmdSize++] = (BYTE)((pInfo->cbData +1) / 0x100);
                        pbCmd[dwCmdSize++] = (BYTE)((pInfo->cbData +1) % 0x100);
                }
                else
                {
                        pbCmd[dwCmdSize++] = (BYTE)((pInfo->cbData +1) % 0x100);
                }
                pbCmd[dwCmdSize++] = 0;
                //little endian => big endian
                for(dwI = 0; dwI < pInfo->cbData; dwI++)
                {
                        pbCmd[dwCmdSize + dwI] = pInfo->pbData[pInfo->cbData -1 -dwI];
                }
                dwCmdSize += pInfo->cbData;
                if (pContext->fExtentedLeLcFields)
                {
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength / 0x100);
                        pbCmd[dwCmdSize++] = (BYTE)(pContext->dwMaxLength % 0x100);
                }
                else
                {
                        pbCmd[dwCmdSize++] = 0;
                }
                dwReturn = SCardGetData(pCardData, pbCmd, dwCmdSize, &pbData, &dwResponseSize);
                if (dwReturn)
                {
                        __leave;
                }
                
                // CryptDecrypt expects the data decrypted using rsa (only the mathematical computation)
                // this means the data with the padding (removed by the card)
                // and in little endian (while the card return the data in big endian)
                // so we rebuilt the padding in reverse order
                
                if ( pInfo->cbData < dwResponseSize + 3 + 11)
                {
                        dwReturn = SCARD_E_INSUFFICIENT_BUFFER;
                        Trace(WINEVENT_LEVEL_ERROR, L"SCARD_E_INSUFFICIENT_BUFFER %d expected = %d", pInfo->cbData, dwResponseSize);
                        __leave;
                }
                
                pInfo->pbData[pInfo->cbData - 1] = 0; // start byte
                pInfo->pbData[pInfo->cbData - 2] = 02; // block type
                // padding
                memset(pInfo->pbData + dwResponseSize + 1,1,pInfo->cbData - 3 - dwResponseSize);
                pInfo->pbData[dwResponseSize] = 0; // separator
                // data field in reverse order
                for(dwI = 0; dwI < dwResponseSize; dwI++)
                {
                        pInfo->pbData[dwI] = pbData[dwResponseSize - 1 - dwI];
                }
        }
        __finally
        {
                if (pbData)
                {
                        SecureZeroMemory(pbData, dwResponseSize);
                        pCardData->pfnCspFree(pbData);
                }
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}


DWORD GetPinInfo(DWORD __in dwPinIndex, __inout PPIN_INFO pPinInfo)
{
        DWORD dwReturn=0;
        __try
        {
                Trace(WINEVENT_LEVEL_VERBOSE, L"Enter dwPinIndex=%d",dwPinIndex);
                switch(dwPinIndex)
                {
                case ROLE_SIGNATURE:
                        pPinInfo->PinType = AlphaNumericPinType;
                        pPinInfo->PinPurpose = DigitalSignaturePin;
                        pPinInfo->dwChangePermission = PIN_CHANGE_FLAG_CHANGEPIN;
                        pPinInfo->PinCachePolicy.dwVersion = PIN_CACHE_POLICY_CURRENT_VERSION;
                        pPinInfo->PinCachePolicy.PinCachePolicyType = PinCacheAlwaysPrompt;
                        break;
                case ROLE_AUTHENTICATION:
                        pPinInfo->PinType = AlphaNumericPinType;
                        pPinInfo->PinPurpose = AuthenticationPin;
                        pPinInfo->dwChangePermission = PIN_CHANGE_FLAG_CHANGEPIN;
                        pPinInfo->PinCachePolicy.dwVersion = PIN_CACHE_POLICY_CURRENT_VERSION;
                        pPinInfo->PinCachePolicy.PinCachePolicyType = PinCacheAlwaysPrompt;
                        break;
                case ROLE_CONFIDENTIALITY:
                        pPinInfo->PinType = AlphaNumericPinType;
                        pPinInfo->PinPurpose = EncryptionPin;
                        pPinInfo->dwChangePermission = PIN_CHANGE_FLAG_CHANGEPIN;
                        pPinInfo->PinCachePolicy.dwVersion = PIN_CACHE_POLICY_CURRENT_VERSION;
                        pPinInfo->PinCachePolicy.PinCachePolicyType = PinCacheAlwaysPrompt;
                        break;
                default:
                        Trace(WINEVENT_LEVEL_ERROR, L"dwPinIndex == %d", dwPinIndex);
                        dwReturn  = SCARD_E_INVALID_PARAMETER ;
                        __leave;
                }
        }
        __finally
        {
        }
        Trace(WINEVENT_LEVEL_VERBOSE, L"dwReturn = 0x%08X",dwReturn);
        return dwReturn;
}