0N/A/*
2362N/A * Copyright (c) 2005, 2006, Oracle and/or its affiliates. All rights reserved.
0N/A * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
0N/A *
0N/A * This code is free software; you can redistribute it and/or modify it
0N/A * under the terms of the GNU General Public License version 2 only, as
2362N/A * published by the Free Software Foundation. Oracle designates this
0N/A * particular file as subject to the "Classpath" exception as provided
2362N/A * by Oracle in the LICENSE file that accompanied this code.
0N/A *
0N/A * This code is distributed in the hope that it will be useful, but WITHOUT
0N/A * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
0N/A * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
0N/A * version 2 for more details (a copy is included in the LICENSE file that
0N/A * accompanied this code).
0N/A *
0N/A * You should have received a copy of the GNU General Public License version
0N/A * 2 along with this work; if not, write to the Free Software Foundation,
0N/A * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
0N/A *
2362N/A * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
2362N/A * or visit www.oracle.com if you need additional information or have any
2362N/A * questions.
0N/A */
0N/A
0N/A/* disable asserts in product mode */
0N/A#ifndef DEBUG
0N/A #ifndef NDEBUG
0N/A #define NDEBUG
0N/A #endif
0N/A#endif
0N/A
0N/A#include <stdio.h>
0N/A#include <stdlib.h>
0N/A#include <string.h>
0N/A#include <assert.h>
0N/A
0N/A#include <winscard.h>
0N/A
0N/A// #define J2PCSC_DEBUG
0N/A
0N/A#ifdef J2PCSC_DEBUG
0N/A#define dprintf(s) printf(s)
0N/A#define dprintf1(s, p1) printf(s, p1)
0N/A#define dprintf2(s, p1, p2) printf(s, p1, p2)
0N/A#define dprintf3(s, p1, p2, p3) printf(s, p1, p2, p3)
0N/A#else
0N/A#define dprintf(s)
0N/A#define dprintf1(s, p1)
0N/A#define dprintf2(s, p1, p2)
0N/A#define dprintf3(s, p1, p2, p3)
0N/A#endif
0N/A
0N/A#include "sun_security_smartcardio_PCSC.h"
0N/A
0N/A#include "pcsc_md.h"
0N/A
0N/A#define MAX_STACK_BUFFER_SIZE 8192
0N/A
0N/A// make the buffers larger than what should be necessary, just in case
0N/A#define ATR_BUFFER_SIZE 128
0N/A#define READERNAME_BUFFER_SIZE 128
0N/A#define RECEIVE_BUFFER_SIZE MAX_STACK_BUFFER_SIZE
0N/A
0N/A#define J2PCSC_EXCEPTION_NAME "sun/security/smartcardio/PCSCException"
0N/A
0N/Avoid throwPCSCException(JNIEnv* env, LONG code) {
0N/A jclass pcscClass;
0N/A jmethodID constructor;
0N/A jthrowable pcscException;
0N/A
0N/A pcscClass = (*env)->FindClass(env, J2PCSC_EXCEPTION_NAME);
0N/A assert(pcscClass != NULL);
0N/A constructor = (*env)->GetMethodID(env, pcscClass, "<init>", "(I)V");
0N/A assert(constructor != NULL);
0N/A pcscException = (jthrowable) (*env)->NewObject(env, pcscClass, constructor, (jint)code);
0N/A (*env)->Throw(env, pcscException);
0N/A}
0N/A
0N/Ajboolean handleRV(JNIEnv* env, LONG code) {
0N/A if (code == SCARD_S_SUCCESS) {
0N/A return JNI_FALSE;
0N/A } else {
0N/A throwPCSCException(env, code);
0N/A return JNI_TRUE;
0N/A }
0N/A}
0N/A
0N/AJNIEXPORT jint JNICALL JNI_OnLoad(JavaVM *vm, void *reserved) {
0N/A return JNI_VERSION_1_4;
0N/A}
0N/A
0N/AJNIEXPORT jlong JNICALL Java_sun_security_smartcardio_PCSC_SCardEstablishContext
0N/A (JNIEnv *env, jclass thisClass, jint dwScope)
0N/A{
0N/A SCARDCONTEXT context;
0N/A LONG rv;
0N/A dprintf("-establishContext\n");
0N/A rv = CALL_SCardEstablishContext(dwScope, NULL, NULL, &context);
0N/A if (handleRV(env, rv)) {
0N/A return 0;
0N/A }
0N/A // note: SCARDCONTEXT is typedef'd as long, so this works
0N/A return (jlong)context;
0N/A}
0N/A
0N/A/**
0N/A * Convert a multi string to a java string array,
0N/A */
0N/AjobjectArray pcsc_multi2jstring(JNIEnv *env, char *spec) {
0N/A jobjectArray result;
0N/A jclass stringClass;
0N/A char *cp, **tab;
0N/A jstring js;
0N/A int cnt = 0;
0N/A
0N/A cp = spec;
0N/A while (*cp != 0) {
0N/A cp += (strlen(cp) + 1);
0N/A ++cnt;
0N/A }
0N/A
0N/A tab = (char **)malloc(cnt * sizeof(char *));
0N/A
0N/A cnt = 0;
0N/A cp = spec;
0N/A while (*cp != 0) {
0N/A tab[cnt++] = cp;
0N/A cp += (strlen(cp) + 1);
0N/A }
0N/A
0N/A stringClass = (*env)->FindClass(env, "java/lang/String");
0N/A assert(stringClass != NULL);
0N/A
0N/A result = (*env)->NewObjectArray(env, cnt, stringClass, NULL);
0N/A while (cnt-- > 0) {
0N/A js = (*env)->NewStringUTF(env, tab[cnt]);
0N/A (*env)->SetObjectArrayElement(env, result, cnt, js);
0N/A }
0N/A free(tab);
0N/A return result;
0N/A}
0N/A
0N/AJNIEXPORT jobjectArray JNICALL Java_sun_security_smartcardio_PCSC_SCardListReaders
0N/A (JNIEnv *env, jclass thisClass, jlong jContext)
0N/A{
0N/A SCARDCONTEXT context = (SCARDCONTEXT)jContext;
0N/A LONG rv;
0N/A LPTSTR mszReaders;
0N/A DWORD size;
0N/A jobjectArray result;
0N/A
0N/A dprintf1("-context: %x\n", context);
0N/A rv = CALL_SCardListReaders(context, NULL, NULL, &size);
0N/A if (handleRV(env, rv)) {
0N/A return NULL;
0N/A }
0N/A dprintf1("-size: %d\n", size);
0N/A
0N/A mszReaders = malloc(size);
0N/A rv = CALL_SCardListReaders(context, NULL, mszReaders, &size);
0N/A if (handleRV(env, rv)) {
0N/A free(mszReaders);
0N/A return NULL;
0N/A }
0N/A dprintf1("-String: %s\n", mszReaders);
0N/A
0N/A result = pcsc_multi2jstring(env, mszReaders);
0N/A free(mszReaders);
0N/A return result;
0N/A}
0N/A
0N/AJNIEXPORT jlong JNICALL Java_sun_security_smartcardio_PCSC_SCardConnect
0N/A (JNIEnv *env, jclass thisClass, jlong jContext, jstring jReaderName,
0N/A jint jShareMode, jint jPreferredProtocols)
0N/A{
0N/A SCARDCONTEXT context = (SCARDCONTEXT)jContext;
0N/A LONG rv;
0N/A LPCTSTR readerName;
0N/A SCARDHANDLE card;
0N/A DWORD proto;
0N/A
0N/A readerName = (*env)->GetStringUTFChars(env, jReaderName, NULL);
0N/A rv = CALL_SCardConnect(context, readerName, jShareMode, jPreferredProtocols, &card, &proto);
0N/A (*env)->ReleaseStringUTFChars(env, jReaderName, readerName);
0N/A dprintf1("-cardhandle: %x\n", card);
0N/A dprintf1("-protocol: %d\n", proto);
0N/A if (handleRV(env, rv)) {
0N/A return 0;
0N/A }
0N/A
0N/A return (jlong)card;
0N/A}
0N/A
0N/AJNIEXPORT jbyteArray JNICALL Java_sun_security_smartcardio_PCSC_SCardTransmit
0N/A (JNIEnv *env, jclass thisClass, jlong jCard, jint protocol,
0N/A jbyteArray jBuf, jint jOfs, jint jLen)
0N/A{
0N/A SCARDHANDLE card = (SCARDHANDLE)jCard;
0N/A LONG rv;
0N/A SCARD_IO_REQUEST sendPci;
0N/A unsigned char *sbuf;
0N/A unsigned char rbuf[RECEIVE_BUFFER_SIZE];
0N/A DWORD rlen = RECEIVE_BUFFER_SIZE;
0N/A int ofs = (int)jOfs;
0N/A int len = (int)jLen;
0N/A jbyteArray jOut;
0N/A
0N/A sendPci.dwProtocol = protocol;
0N/A sendPci.cbPciLength = sizeof(SCARD_IO_REQUEST);
0N/A
0N/A sbuf = (unsigned char *) ((*env)->GetByteArrayElements(env, jBuf, NULL));
0N/A rv = CALL_SCardTransmit(card, &sendPci, sbuf + ofs, len, NULL, rbuf, &rlen);
0N/A (*env)->ReleaseByteArrayElements(env, jBuf, (jbyte *)sbuf, JNI_ABORT);
0N/A
0N/A if (handleRV(env, rv)) {
0N/A return NULL;
0N/A }
0N/A
0N/A jOut = (*env)->NewByteArray(env, rlen);
0N/A (*env)->SetByteArrayRegion(env, jOut, 0, rlen, (jbyte *)rbuf);
0N/A return jOut;
0N/A}
0N/A
0N/AJNIEXPORT jbyteArray JNICALL Java_sun_security_smartcardio_PCSC_SCardStatus
0N/A (JNIEnv *env, jclass thisClass, jlong jCard, jbyteArray jStatus)
0N/A{
0N/A SCARDHANDLE card = (SCARDHANDLE)jCard;
0N/A LONG rv;
0N/A char readerName[READERNAME_BUFFER_SIZE];
0N/A DWORD readerLen = READERNAME_BUFFER_SIZE;
0N/A unsigned char atr[ATR_BUFFER_SIZE];
0N/A DWORD atrLen = ATR_BUFFER_SIZE;
0N/A DWORD state;
0N/A DWORD protocol;
0N/A jbyteArray jArray;
0N/A jbyte tmp;
0N/A
0N/A rv = CALL_SCardStatus(card, readerName, &readerLen, &state, &protocol, atr, &atrLen);
0N/A if (handleRV(env, rv)) {
0N/A return NULL;
0N/A }
0N/A dprintf1("-reader: %s\n", readerName);
0N/A dprintf1("-status: %d\n", state);
0N/A dprintf1("-protocol: %d\n", protocol);
0N/A
0N/A jArray = (*env)->NewByteArray(env, atrLen);
0N/A (*env)->SetByteArrayRegion(env, jArray, 0, atrLen, (jbyte *)atr);
0N/A
0N/A tmp = (jbyte)state;
0N/A (*env)->SetByteArrayRegion(env, jStatus, 0, 1, &tmp);
0N/A tmp = (jbyte)protocol;
0N/A (*env)->SetByteArrayRegion(env, jStatus, 1, 1, &tmp);
0N/A
0N/A return jArray;
0N/A}
0N/A
0N/AJNIEXPORT void JNICALL Java_sun_security_smartcardio_PCSC_SCardDisconnect
0N/A (JNIEnv *env, jclass thisClass, jlong jCard, jint jDisposition)
0N/A{
0N/A SCARDHANDLE card = (SCARDHANDLE)jCard;
0N/A LONG rv;
0N/A
0N/A rv = CALL_SCardDisconnect(card, jDisposition);
0N/A dprintf1("-disconnect: 0x%X\n", rv);
0N/A handleRV(env, rv);
0N/A return;
0N/A}
0N/A
0N/AJNIEXPORT jintArray JNICALL Java_sun_security_smartcardio_PCSC_SCardGetStatusChange
0N/A (JNIEnv *env, jclass thisClass, jlong jContext, jlong jTimeout,
0N/A jintArray jCurrentState, jobjectArray jReaderNames)
0N/A{
0N/A SCARDCONTEXT context = (SCARDCONTEXT)jContext;
0N/A LONG rv;
0N/A int readers = (*env)->GetArrayLength(env, jReaderNames);
0N/A SCARD_READERSTATE *readerState = malloc(readers * sizeof(SCARD_READERSTATE));
0N/A int i;
0N/A jintArray jEventState;
0N/A int *currentState = (*env)->GetIntArrayElements(env, jCurrentState, NULL);
0N/A
0N/A for (i = 0; i < readers; i++) {
0N/A jobject jReaderName = (*env)->GetObjectArrayElement(env, jReaderNames, i);
0N/A readerState[i].szReader = (*env)->GetStringUTFChars(env, jReaderName, NULL);
0N/A readerState[i].pvUserData = NULL;
0N/A readerState[i].dwCurrentState = currentState[i];
0N/A readerState[i].dwEventState = SCARD_STATE_UNAWARE;
0N/A readerState[i].cbAtr = 0;
0N/A }
0N/A (*env)->ReleaseIntArrayElements(env, jCurrentState, currentState, JNI_ABORT);
0N/A
0N/A rv = CALL_SCardGetStatusChange(context, (DWORD)jTimeout, readerState, readers);
0N/A
0N/A jEventState = (*env)->NewIntArray(env, readers);
0N/A for (i = 0; i < readers; i++) {
0N/A jint eventStateTmp;
0N/A jobject jReaderName = (*env)->GetObjectArrayElement(env, jReaderNames, i);
0N/A dprintf3("-reader status %s: 0x%X, 0x%X\n", readerState[i].szReader,
0N/A readerState[i].dwCurrentState, readerState[i].dwEventState);
0N/A (*env)->ReleaseStringUTFChars(env, jReaderName, readerState[i].szReader);
0N/A eventStateTmp = (jint)readerState[i].dwEventState;
0N/A (*env)->SetIntArrayRegion(env, jEventState, i, 1, &eventStateTmp);
0N/A }
0N/A free(readerState);
0N/A
0N/A handleRV(env, rv);
0N/A return jEventState;
0N/A}
0N/A
0N/AJNIEXPORT void JNICALL Java_sun_security_smartcardio_PCSC_SCardBeginTransaction
0N/A (JNIEnv *env, jclass thisClass, jlong jCard)
0N/A{
0N/A SCARDHANDLE card = (SCARDHANDLE)jCard;
0N/A LONG rv;
0N/A
0N/A rv = CALL_SCardBeginTransaction(card);
0N/A dprintf1("-beginTransaction: 0x%X\n", rv);
0N/A handleRV(env, rv);
0N/A return;
0N/A}
0N/A
0N/AJNIEXPORT void JNICALL Java_sun_security_smartcardio_PCSC_SCardEndTransaction
0N/A (JNIEnv *env, jclass thisClass, jlong jCard, jint jDisposition)
0N/A{
0N/A SCARDHANDLE card = (SCARDHANDLE)jCard;
0N/A LONG rv;
0N/A
0N/A rv = CALL_SCardEndTransaction(card, jDisposition);
0N/A dprintf1("-endTransaction: 0x%X\n", rv);
0N/A handleRV(env, rv);
0N/A return;
0N/A}
0N/A
0N/AJNIEXPORT jbyteArray JNICALL Java_sun_security_smartcardio_PCSC_SCardControl
0N/A (JNIEnv *env, jclass thisClass, jlong jCard, jint jControlCode, jbyteArray jSendBuffer)
0N/A{
0N/A SCARDHANDLE card = (SCARDHANDLE)jCard;
0N/A LONG rv;
0N/A jbyte* sendBuffer = (*env)->GetByteArrayElements(env, jSendBuffer, NULL);
0N/A jint sendBufferLength = (*env)->GetArrayLength(env, jSendBuffer);
0N/A jbyte receiveBuffer[MAX_STACK_BUFFER_SIZE];
0N/A jint receiveBufferLength = MAX_STACK_BUFFER_SIZE;
0N/A ULONG returnedLength = 0;
0N/A jbyteArray jReceiveBuffer;
0N/A
0N/A#ifdef J2PCSC_DEBUG
0N/A{
0N/A int k;
0N/A printf("-control: 0x%X\n", jControlCode);
0N/A printf("-send: ");
0N/A for (k = 0; k < sendBufferLength; k++) {
0N/A printf("%02x ", sendBuffer[k]);
0N/A }
0N/A printf("\n");
0N/A}
0N/A#endif
0N/A
0N/A rv = CALL_SCardControl(card, jControlCode, sendBuffer, sendBufferLength,
0N/A receiveBuffer, receiveBufferLength, &returnedLength);
0N/A
0N/A (*env)->ReleaseByteArrayElements(env, jSendBuffer, sendBuffer, JNI_ABORT);
0N/A if (handleRV(env, rv)) {
0N/A return NULL;
0N/A }
0N/A
0N/A#ifdef J2PCSC_DEBUG
0N/A{
0N/A int k;
0N/A printf("-recv: ");
0N/A for (k = 0; k < returnedLength; k++) {
0N/A printf("%02x ", receiveBuffer[k]);
0N/A }
0N/A printf("\n");
0N/A}
0N/A#endif
0N/A
0N/A jReceiveBuffer = (*env)->NewByteArray(env, returnedLength);
0N/A (*env)->SetByteArrayRegion(env, jReceiveBuffer, 0, returnedLength, receiveBuffer);
0N/A
0N/A return jReceiveBuffer;
0N/A}