smartcard 0.4.11 → 0.5.0

data/ext/smartcard_pcsc/pcsc_surrogate_reader.h

@@ -1,207 +0,0 @@
-/*
- * MUSCLE SmartCard Development ( http://www.linuxnet.com )
- *
- * Copyright (C) 1999-2005
- *  David Corcoran <corcoran@linuxnet.com>
- *  Ludovic Rousseau <ludovic.rousseau@free.fr>
- *
- * $Id: reader.h.in 2572 2007-06-20 07:24:35Z rousseau $
- */
-
-/**
- * @file
- * @brief This keeps a list of defines shared between the driver and the application
- */
-
-#ifndef __reader_h__
-#define __reader_h__
-
-/*
- * Tags for requesting card and reader attributes
- */
-
-#define SCARD_ATTR_VALUE(Class, Tag) ((((ULONG)(Class)) << 16) | ((ULONG)(Tag)))
-
-#define SCARD_CLASS_VENDOR_INFO     1   /**< Vendor information definitions */
-#define SCARD_CLASS_COMMUNICATIONS  2   /**< Communication definitions */
-#define SCARD_CLASS_PROTOCOL        3   /**< Protocol definitions */
-#define SCARD_CLASS_POWER_MGMT      4   /**< Power Management definitions */
-#define SCARD_CLASS_SECURITY        5   /**< Security Assurance definitions */
-#define SCARD_CLASS_MECHANICAL      6   /**< Mechanical characteristic definitions */
-#define SCARD_CLASS_VENDOR_DEFINED  7   /**< Vendor specific definitions */
-#define SCARD_CLASS_IFD_PROTOCOL    8   /**< Interface Device Protocol options */
-#define SCARD_CLASS_ICC_STATE       9   /**< ICC State specific definitions */
-#define SCARD_CLASS_SYSTEM     0x7fff   /**< System-specific definitions */
-
-#define SCARD_ATTR_VENDOR_NAME SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_INFO, 0x0100)
-#define SCARD_ATTR_VENDOR_IFD_TYPE SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_INFO, 0x0101)
-#define SCARD_ATTR_VENDOR_IFD_VERSION SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_INFO, 0x0102)
-#define SCARD_ATTR_VENDOR_IFD_SERIAL_NO SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_INFO, 0x0103)
-#define SCARD_ATTR_CHANNEL_ID SCARD_ATTR_VALUE(SCARD_CLASS_COMMUNICATIONS, 0x0110)
-#define SCARD_ATTR_ASYNC_PROTOCOL_TYPES SCARD_ATTR_VALUE(SCARD_CLASS_PROTOCOL, 0x0120)
-#define SCARD_ATTR_DEFAULT_CLK SCARD_ATTR_VALUE(SCARD_CLASS_PROTOCOL, 0x0121)
-#define SCARD_ATTR_MAX_CLK SCARD_ATTR_VALUE(SCARD_CLASS_PROTOCOL, 0x0122)
-#define SCARD_ATTR_DEFAULT_DATA_RATE SCARD_ATTR_VALUE(SCARD_CLASS_PROTOCOL, 0x0123)
-#define SCARD_ATTR_MAX_DATA_RATE SCARD_ATTR_VALUE(SCARD_CLASS_PROTOCOL, 0x0124)
-#define SCARD_ATTR_MAX_IFSD SCARD_ATTR_VALUE(SCARD_CLASS_PROTOCOL, 0x0125)
-#define SCARD_ATTR_SYNC_PROTOCOL_TYPES SCARD_ATTR_VALUE(SCARD_CLASS_PROTOCOL, 0x0126)
-#define SCARD_ATTR_POWER_MGMT_SUPPORT SCARD_ATTR_VALUE(SCARD_CLASS_POWER_MGMT, 0x0131)
-#define SCARD_ATTR_USER_TO_CARD_AUTH_DEVICE SCARD_ATTR_VALUE(SCARD_CLASS_SECURITY, 0x0140)
-#define SCARD_ATTR_USER_AUTH_INPUT_DEVICE SCARD_ATTR_VALUE(SCARD_CLASS_SECURITY, 0x0142)
-#define SCARD_ATTR_CHARACTERISTICS SCARD_ATTR_VALUE(SCARD_CLASS_MECHANICAL, 0x0150)
-
-#define SCARD_ATTR_CURRENT_PROTOCOL_TYPE SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0201)
-#define SCARD_ATTR_CURRENT_CLK SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0202)
-#define SCARD_ATTR_CURRENT_F SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0203)
-#define SCARD_ATTR_CURRENT_D SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0204)
-#define SCARD_ATTR_CURRENT_N SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0205)
-#define SCARD_ATTR_CURRENT_W SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0206)
-#define SCARD_ATTR_CURRENT_IFSC SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0207)
-#define SCARD_ATTR_CURRENT_IFSD SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0208)
-#define SCARD_ATTR_CURRENT_BWT SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x0209)
-#define SCARD_ATTR_CURRENT_CWT SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x020a)
-#define SCARD_ATTR_CURRENT_EBC_ENCODING SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x020b)
-#define SCARD_ATTR_EXTENDED_BWT SCARD_ATTR_VALUE(SCARD_CLASS_IFD_PROTOCOL, 0x020c)
-
-#define SCARD_ATTR_ICC_PRESENCE SCARD_ATTR_VALUE(SCARD_CLASS_ICC_STATE, 0x0300)
-#define SCARD_ATTR_ICC_INTERFACE_STATUS SCARD_ATTR_VALUE(SCARD_CLASS_ICC_STATE, 0x0301)
-#define SCARD_ATTR_CURRENT_IO_STATE SCARD_ATTR_VALUE(SCARD_CLASS_ICC_STATE, 0x0302)
-#define SCARD_ATTR_ATR_STRING SCARD_ATTR_VALUE(SCARD_CLASS_ICC_STATE, 0x0303)
-#define SCARD_ATTR_ICC_TYPE_PER_ATR SCARD_ATTR_VALUE(SCARD_CLASS_ICC_STATE, 0x0304)
-
-#define SCARD_ATTR_ESC_RESET SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_DEFINED, 0xA000)
-#define SCARD_ATTR_ESC_CANCEL SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_DEFINED, 0xA003)
-#define SCARD_ATTR_ESC_AUTHREQUEST SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_DEFINED, 0xA005)
-#define SCARD_ATTR_MAXINPUT SCARD_ATTR_VALUE(SCARD_CLASS_VENDOR_DEFINED, 0xA007)
-
-#define SCARD_ATTR_DEVICE_UNIT SCARD_ATTR_VALUE(SCARD_CLASS_SYSTEM, 0x0001)
-#define SCARD_ATTR_DEVICE_IN_USE SCARD_ATTR_VALUE(SCARD_CLASS_SYSTEM, 0x0002)
-#define SCARD_ATTR_DEVICE_FRIENDLY_NAME_A SCARD_ATTR_VALUE(SCARD_CLASS_SYSTEM, 0x0003)
-#define SCARD_ATTR_DEVICE_SYSTEM_NAME_A SCARD_ATTR_VALUE(SCARD_CLASS_SYSTEM, 0x0004)
-#define SCARD_ATTR_DEVICE_FRIENDLY_NAME_W SCARD_ATTR_VALUE(SCARD_CLASS_SYSTEM, 0x0005)
-#define SCARD_ATTR_DEVICE_SYSTEM_NAME_W SCARD_ATTR_VALUE(SCARD_CLASS_SYSTEM, 0x0006)
-#define SCARD_ATTR_SUPRESS_T1_IFS_REQUEST SCARD_ATTR_VALUE(SCARD_CLASS_SYSTEM, 0x0007)
-
-#ifdef UNICODE
-#define SCARD_ATTR_DEVICE_FRIENDLY_NAME SCARD_ATTR_DEVICE_FRIENDLY_NAME_W
-#define SCARD_ATTR_DEVICE_SYSTEM_NAME SCARD_ATTR_DEVICE_SYSTEM_NAME_W
-#else
-#define SCARD_ATTR_DEVICE_FRIENDLY_NAME SCARD_ATTR_DEVICE_FRIENDLY_NAME_A
-#define SCARD_ATTR_DEVICE_SYSTEM_NAME SCARD_ATTR_DEVICE_SYSTEM_NAME_A
-#endif
-
-/**
- * Provide source compatibility on different platforms
- */
-#define SCARD_CTL_CODE(code) (0x42000000 + (code))
-
-/**
- * TeleTrust Class 2 reader tags
- */
-#define CM_IOCTL_GET_FEATURE_REQUEST SCARD_CTL_CODE(3400)
-
-#define FEATURE_VERIFY_PIN_START  0x01 /**< OMNIKEY Proposal */
-#define FEATURE_VERIFY_PIN_FINISH 0x02 /**< OMNIKEY Proposal */
-#define FEATURE_MODIFY_PIN_START  0x03 /**< OMNIKEY Proposal */
-#define FEATURE_MODIFY_PIN_FINISH 0x04 /**< OMNIKEY Proposal */
-#define FEATURE_GET_KEY_PRESSED   0x05 /**< OMNIKEY Proposal */
-#define FEATURE_VERIFY_PIN_DIRECT 0x06 /**< USB CCID PIN Verify */
-#define FEATURE_MODIFY_PIN_DIRECT 0x07 /**< USB CCID PIN Modify */
-#define FEATURE_MCT_READERDIRECT  0x08 /**< KOBIL Proposal */
-#define FEATURE_MCT_UNIVERSAL     0x09 /**< KOBIL Proposal */
-#define FEATURE_IFD_PIN_PROP      0x0A /**< Gemplus Proposal */
-#define FEATURE_ABORT             0x0B /**< SCM Proposal */
-
-/* structures used (but not defined) in PCSC Part 10 revision 2.01.02:
- * "IFDs with Secure Pin Entry Capabilities" */
-
-#include <inttypes.h>
-
-/* Set structure elements aligment on bytes
- * http://gcc.gnu.org/onlinedocs/gcc/Structure_002dPacking-Pragmas.html */
-#if defined(__APPLE__) | defined(sun)
-#pragma pack(1)
-#else
-#pragma pack(push, 1)
-#endif
-
-/** the structure must be 6-bytes long */
-typedef struct
-{
-	uint8_t tag;
-	uint8_t length;
-	uint32_t value;	/**< This value is always in BIG ENDIAN format as documented in PCSC v2 part 10 ch 2.2 page 2. You can use ntohl() for example */
-} PCSC_TLV_STRUCTURE;
-
-/** the wLangId and wPINMaxExtraDigit are 16-bits long so are subject to byte
- * ordering */
-#define HOST_TO_CCID_16(x) @host_to_ccid_16@
-#define HOST_TO_CCID_32(x) @host_to_ccid_32@
-
-/** structure used with \ref FEATURE_VERIFY_PIN_DIRECT */
-typedef struct
-{
-	uint8_t bTimerOut;	/**< timeout is seconds (00 means use default timeout) */
-	uint8_t bTimerOut2; /**< timeout in seconds after first key stroke */
-	uint8_t bmFormatString; /**< formatting options */
-	uint8_t bmPINBlockString; /**< bits 7-4 bit size of PIN length in APDU,
-	                        * bits 3-0 PIN block size in bytes after
-	                        * justification and formatting */
-	uint8_t bmPINLengthFormat; /**< bits 7-5 RFU,
-	                         * bit 4 set if system units are bytes, clear if
-	                         * system units are bits,
-	                         * bits 3-0 PIN length position in system units */
-	uint16_t wPINMaxExtraDigit; /**< 0xXXYY where XX is minimum PIN size in digits,
-	                            and YY is maximum PIN size in digits */
-	uint8_t bEntryValidationCondition; /**< Conditions under which PIN entry should
-	                                 * be considered complete */
-	uint8_t bNumberMessage; /**< Number of messages to display for PIN verification */
-	uint16_t wLangId; /**< Language for messages */
-	uint8_t bMsgIndex; /**< Message index (should be 00) */
-	uint8_t bTeoPrologue[3]; /**< T=1 block prologue field to use (fill with 00) */
-	uint32_t ulDataLength; /**< length of Data to be sent to the ICC */
-	uint8_t abData[1]; /**< Data to send to the ICC */
-} PIN_VERIFY_STRUCTURE;
-
-/** structure used with \ref FEATURE_MODIFY_PIN_DIRECT */
-typedef struct
-{
-	uint8_t bTimerOut;	/**< timeout is seconds (00 means use default timeout) */
-	uint8_t bTimerOut2; /**< timeout in seconds after first key stroke */
-	uint8_t bmFormatString; /**< formatting options */
-	uint8_t bmPINBlockString; /**< bits 7-4 bit size of PIN length in APDU,
-	                        * bits 3-0 PIN block size in bytes after
-	                        * justification and formatting */
-	uint8_t bmPINLengthFormat; /**< bits 7-5 RFU,
-	                         * bit 4 set if system units are bytes, clear if
-	                         * system units are bits,
-	                         * bits 3-0 PIN length position in system units */
-	uint8_t bInsertionOffsetOld; /**< Insertion position offset in bytes for
-	                             the current PIN */
-	uint8_t bInsertionOffsetNew; /**< Insertion position offset in bytes for
-	                             the new PIN */
-	uint16_t wPINMaxExtraDigit;
-	                         /**< 0xXXYY where XX is minimum PIN size in digits,
-	                            and YY is maximum PIN size in digits */
-	uint8_t bConfirmPIN; /**< Flags governing need for confirmation of new PIN */
-	uint8_t bEntryValidationCondition; /**< Conditions under which PIN entry should
-	                                 * be considered complete */
-	uint8_t bNumberMessage; /**< Number of messages to display for PIN verification*/
-	uint16_t wLangId; /**< Language for messages */
-	uint8_t bMsgIndex1; /**< index of 1st prompting message */
-	uint8_t bMsgIndex2; /**< index of 2d prompting message */
-	uint8_t bMsgIndex3; /**< index of 3d prompting message */
-	uint8_t bTeoPrologue[3]; /**< T=1 block prologue field to use (fill with 00) */
-	uint32_t ulDataLength; /**< length of Data to be sent to the ICC */
-	uint8_t abData[1]; /**< Data to send to the ICC */
-} PIN_MODIFY_STRUCTURE;
-
-/* restore default structure elements alignment */
-#if defined(__APPLE__) | defined(sun)
-#pragma pack()
-#else
-#pragma pack(pop)
-#endif
-
-#endif
-

data/ext/smartcard_pcsc/pcsc_surrogate_wintypes.h

@@ -1,63 +0,0 @@
-/*
- * MUSCLE SmartCard Development ( http://www.linuxnet.com )
- *
- * Copyright (C) 1999
- *  David Corcoran <corcoran@linuxnet.com>
- *
- * $Id: wintypes.h 2537 2007-05-22 15:02:26Z rousseau $
- */
-
-/**
- * @file
- * @brief This keeps a list of Windows(R) types.
- */
-
-#ifndef __wintypes_h__
-#define __wintypes_h__
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-#if !defined(WIN32)
-
-#ifndef BYTE
-	typedef unsigned char BYTE;
-#endif
-	typedef unsigned char UCHAR;
-	typedef unsigned char *PUCHAR;
-	typedef unsigned short USHORT;
-
-#ifndef __COREFOUNDATION_CFPLUGINCOM__
-	typedef unsigned long ULONG;
-	typedef void *LPVOID;
-	typedef short BOOL;
-#endif
-
-	typedef unsigned long *PULONG;
-	typedef const void *LPCVOID;
-	typedef uint32_t DWORD;
-	typedef uint32_t *PDWORD;
-	typedef uint16_t WORD;
-	typedef long LONG;
-	typedef const char *LPCSTR;
-	typedef const BYTE *LPCBYTE;
-	typedef BYTE *LPBYTE;
-	typedef DWORD *LPDWORD;
-	typedef unsigned char *LPSTR;
-
-	/* these types were deprecated but still used by old drivers and
-	 * applications. So just declare and use them. */
-	typedef LPSTR LPTSTR;
-	typedef LPCSTR LPCTSTR;
-
-#else
-#include <windows.h>
-#endif
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif

data/test/pcsc/containers_test.rb

@@ -1,59 +0,0 @@
-# Author:: Victor Costan
-# Copyright:: Copyright (C) 2008 Massachusetts Institute of Technology
-# License:: MIT
-
-require 'smartcard'
-
-require 'test/unit'
-
-
-class ContainersTest < Test::Unit::TestCase
-  def setup
-    
-  end
-  
-  def teardown
-    
-  end
-  
-  # tests the SmartCard::PCSC::ReaderStates container
-  def test_reader_states
-    reader_states = Smartcard::PCSC::ReaderStates.new(2)
-    reader_states.set_current_state_of!(1, Smartcard::PCSC::STATE_ATRMATCH)
-    reader_states.set_current_state_of!(0, Smartcard::PCSC::STATE_CHANGED)
-    reader_states.set_event_state_of!(0, Smartcard::PCSC::STATE_IGNORE)
-    reader_states.set_event_state_of!(1, Smartcard::PCSC::STATE_PRESENT)
-    reader_states.set_atr_of!(1, "Ruby\0rocks!")
-    reader_states.set_atr_of!(0, "grreat success")
-    reader_states.set_reader_name_of!(0, "PC/SC Reader 0")
-    reader_states.set_reader_name_of!(1, "CCID Reader 1")
-    
-    assert_equal Smartcard::PCSC::STATE_ATRMATCH, reader_states.current_state_of(1), 'ReaderStates.set_current_state_of! / current_state_of mismatch'
-    assert_equal Smartcard::PCSC::STATE_CHANGED, reader_states.current_state_of(0), 'ReaderStates.set_current_state_of! / current_state_of mismatch'
-
-    assert_equal Smartcard::PCSC::STATE_IGNORE, reader_states.event_state_of(0), 'ReaderStates.set_event_state_of! / event_state_of mismatch'
-    assert_equal Smartcard::PCSC::STATE_PRESENT, reader_states.event_state_of(1), 'ReaderStates.set_event_state_of! / event_state_of mismatch' 
-
-    assert_equal "Ruby\0rocks!", reader_states.atr_of(1), 'ReaderStates.set_atr_of! / atr_of mismatch'
-    assert_equal "grreat success", reader_states.atr_of(0), 'ReaderStates.set_atr_of! / atr_of mismatch' 
-    
-    assert_equal "PC/SC Reader 0", reader_states.reader_name_of(0)
-    assert_equal "CCID Reader 1", reader_states.reader_name_of(1)
-    
-    [[5, IndexError], [2, IndexError], [nil, TypeError]].each do |bad_index_test|
-      assert_raise bad_index_test[1] do
-        reader_states.current_state_of(bad_index_test[0])
-      end
-    end
-  end
-
-  # tests the SmartCard::PCSC::IoRequest container
-  def test_io_request
-    io_request = Smartcard::PCSC::IoRequest.new
-    [Smartcard::PCSC::PROTOCOL_T0, Smartcard::PCSC::PROTOCOL_T1, Smartcard::PCSC::PROTOCOL_RAW].each do |t_protocol|
-      io_request.protocol = t_protocol
-      r_protocol = io_request.protocol
-      assert_equal r_protocol, t_protocol, 'IoRequest.protocol= / protocol mismatch'
-    end
-  end  
-end

data/test/pcsc/smoke_test.rb

@@ -1,28 +0,0 @@
-# Author:: Victor Costan
-# Copyright:: Copyright (C) 2008 Massachusetts Institute of Technology
-# License:: MIT
-
-require 'smartcard'
-
-require 'test/unit'
-
-
-class SmokeTest < Test::Unit::TestCase
-  def setup
-  end
-
-  def teardown    
-  end
-
-  # smoke-test to ensure that the extension loads and can call into the PC/SC library
-  def test_smoke
-    context = Smartcard::PCSC::Context.new(Smartcard::PCSC::SCOPE_SYSTEM)
-
-    reader_groups = context.list_reader_groups
-    readers1 = context.list_readers reader_groups
-    readers2 = context.list_readers reader_groups.first
-    readers3 = context.list_readers nil
-
-    context.release
-  end
-end

data/tests/ts_pcsc_ext.rb

@@ -1,76 +0,0 @@
-# Author:: Victor Costan
-# Copyright:: Copyright (C) 2008 Massachusetts Institute of Technology
-# License:: MIT
-
-require 'smartcard'
-require 'pp'
-
-context = Smartcard::PCSC::Context.new(Smartcard::PCSC::SCOPE_SYSTEM)
-
-reader_groups = context.list_reader_groups
-pp reader_groups
-readers1 = context.list_readers reader_groups
-pp readers1
-readers2 = context.list_readers reader_groups.first
-pp readers2
-readers3 = context.list_readers nil
-pp readers3
-
-context.cancel
-
-reader0 = readers3.first
-puts "Waiting for card in reader: #{reader0}\n"
-reader_states = Smartcard::PCSC::ReaderStates.new(1)
-reader_states.set_reader_name_of!(0, reader0)
-reader_states.set_current_state_of!(0, Smartcard::PCSC::STATE_UNKNOWN)
-while (reader_states.event_state_of(0) & Smartcard::PCSC::STATE_PRESENT) == 0 do
-  context.get_status_change reader_states, Smartcard::PCSC::INFINITE_TIMEOUT
-  puts "Status change: now it's #{reader_states.event_state_of(0)} and we want #{Smartcard::PCSC::STATE_PRESENT}\n"
-  reader_states.acknowledge_events!
-end
-
-puts "Connecting to card\n"
-card0 = Smartcard::PCSC::Card.new(context, reader0, Smartcard::PCSC::SHARE_SHARED, Smartcard::PCSC::PROTOCOL_ANY)
-
-card0.begin_transaction
-card0.end_transaction Smartcard::PCSC::DISPOSITION_LEAVE
-
-begin
-card0.reconnect Smartcard::PCSC::SHARE_EXCLUSIVE, Smartcard::PCSC::PROTOCOL_ANY, Smartcard::PCSC::INITIALIZATION_RESET
-rescue RuntimeException => e
-puts "Card.reconnect threw exception #{e}\n" 
-end
-
-card_status = card0.status
-pp card_status
-puts "ATR Length: #{card_status[:atr].length}\n"
-
-begin
-  puts "IFD vendor: #{card0.get_attribute Smartcard::PCSC::ATTR_VENDOR_IFD_VERSION}\n"
-rescue RuntimeError => e
-  puts "Card.get_attribute threw exception #{e}\n"
-end
-
-puts "Selecting applet\n"
-aid = [0x19, 0x83, 0x12, 0x29, 0x10, 0xba, 0xbe]
-select_apdu = [0x00, 0xA4, 0x04, 0x00, aid.length, aid].flatten
-send_ioreq = {Smartcard::PCSC::PROTOCOL_T0 => Smartcard::PCSC::IOREQUEST_T0,
-              Smartcard::PCSC::PROTOCOL_T1 => Smartcard::PCSC::IOREQUEST_T1}[card_status[:protocol]]
-recv_ioreq = Smartcard::PCSC::IoRequest.new
-select_response = card0.transmit(select_apdu.map {|byte| byte.chr}.join(''), send_ioreq, recv_ioreq)
-select_response_str = (0...select_response.length).map { |i| ' %02x' % select_response[i].to_i }.join('')
-puts "Response:#{select_response_str}\n"
-
-begin
-  # This only works with GemPlus readers... any other suggestions?
-  puts "Testing low-level control\n"
-  ctl_string = [0x82, 0x01, 0x07, 0x00].map {|byte| byte.chr}.join('')
-  ctl_response = card0.control 2049, ctl_string, 4
-  pp ctl_response
-rescue RuntimeError => e
-  puts "Card.control threw exception #{e}\n"
-end
-
-puts "Disconnecting and cleaning up\n"
-card0.disconnect Smartcard::PCSC::DISPOSITION_LEAVE
-context.release