smartcard 0.2.0-mswin32

data/ext/smartcard_pcsc/pcsc_surrogate_reader.h

@@ -0,0 +1,207 @@
+/*
+ * 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

@@ -0,0 +1,63 @@
+/*
+ * 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/lib/smartcard.rb

@@ -0,0 +1 @@
+require 'smartcard/pcsc'

data/smartcard.gemspec

@@ -0,0 +1,53 @@
+
+# Gem::Specification for Smartcard-0.2.0
+# Originally generated by Echoe
+
+Gem::Specification.new do |s|
+  s.name = %q{smartcard}
+  s.version = "0.2.0"
+  s.date = %q{2007-11-18}
+  s.summary = %q{Interface with ISO 7816 smart cards.}
+  s.require_paths = ["lib", "ext"]
+  s.email = %q{victor@costan.us}
+  s.homepage = %q{http://www.costan.us/smartcard}
+  s.rubyforge_project = %q{smartcard}
+  s.description = %q{Interface with ISO 7816 smart cards.}
+  s.has_rdoc = true
+  s.platform = %q{mswin32}
+  s.authors = ["Victor Costan"]
+  s.files = ["CHANGELOG", "ext/smartcard_pcsc/extconf.rb", "ext/smartcard_pcsc/pcsc.h", "ext/smartcard_pcsc/pcsc_card.c", "ext/smartcard_pcsc/pcsc_constants.c", "ext/smartcard_pcsc/pcsc_context.c", "ext/smartcard_pcsc/pcsc_io_request.c", "ext/smartcard_pcsc/pcsc_main.c", "ext/smartcard_pcsc/pcsc_multi_strings.c", "ext/smartcard_pcsc/pcsc_namespace.c", "ext/smartcard_pcsc/pcsc_reader_states.c", "ext/smartcard_pcsc/pcsc_surrogate_reader.h", "ext/smartcard_pcsc/pcsc_surrogate_wintypes.h", "lib/smartcard.rb", "LICENSE", "README", "test/test_all.rb", "tests/ts_pcsc_ext.rb", "Manifest", "smartcard.gemspec", "lib/smartcard/pcsc.so"]
+  s.test_files = ["test/test_all.rb"]
+end
+
+
+# # Original Rakefile source (requires the Echoe gem):
+# 
+# # Needs the 'echoe' gem
+# require 'echoe'
+# 
+# Echoe.new('smartcard') do |p|
+#   p.project = 'smartcard' # rubyforge project
+#   
+#   p.author = 'Victor Costan'
+#   p.email = 'victor@costan.us'
+#   p.summary = 'Interface with ISO 7816 smart cards.'
+#   p.url = 'http://www.costan.us/smartcard'
+#   
+#   p.need_tar_gz = false
+#   p.clean_pattern += ['ext/**/*.manifest', 'ext/**/*_autogen.h']
+#   
+#   p.eval = proc do |p|
+#     case RUBY_PLATFORM
+#     when /mswin/
+#       p.files += ['lib/smartcard/pcsc.so']
+#       p.platform = Gem::Platform::WIN32
+# 
+#       # take out the extension info from the gemspec
+#       task :postcompile_hacks => [:compile] do
+#         p.extensions.clear
+#       end
+# 
+#       task :package => [ :clean, :compile, :postcompile_hacks ]
+#     end
+#   end
+# end

data/tests/ts_pcsc_ext.rb

@@ -0,0 +1,135 @@
+require 'smartcard'
+require 'pp'
+
+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")
+  
+  test_state1, test_state0 = reader_states.current_state_of(1), reader_states.current_state_of(0) 
+  if (test_state1 != Smartcard::PCSC::STATE_ATRMATCH) or (test_state0 != Smartcard::PCSC::STATE_CHANGED) 
+    puts "FAILED: ReaderStates.set_current_state_of! / current_state_of returned #{test_state1},#{test_state0} instead of #{Smartcard::PCSC::STATE_ATRMATCH},#{Smartcard::PCSC::STATE_CHANGED}\n"
+    return false
+  end
+  test_state0, test_state1 = reader_states.event_state_of(0), reader_states.event_state_of(1) 
+  if (test_state0 != Smartcard::PCSC::STATE_IGNORE) or (test_state1 != Smartcard::PCSC::STATE_PRESENT) 
+    puts "FAILED: ReaderStates.set_event_state_of! / event_state_of returned #{test_state0},#{test_state1} instead of #{Smartcard::PCSC::STATE_IGNORE},#{Smartcard::PCSC::STATE_PRESENT}\n"
+    return false
+  end
+  test_atr1, test_atr0 = reader_states.atr_of(1), reader_states.atr_of(0)
+  if (test_atr1 != "Ruby\0rocks!") or (test_atr0 != "grreat success") 
+    puts "FAILED: ReaderStates.set_atr_of! / atr_of returned '#{test_atr1}','#{test_atr0}' instead of 'Ruby\\0rocks!','grreat success'\n"
+    return false
+  end
+  test_reader0, test_reader1 = reader_states.reader_name_of(0), reader_states.reader_name_of(1)
+  if (test_reader0 != "PC/SC Reader 0") or (test_reader1 != "CCID Reader 1") 
+    puts "FAILED: ReaderStates.set_reader_name_of! / reader_name_of returned '#{test_reader0}','#{test_reader1}' instead of 'PC/SC Reader 0','CCID Reader 1'\n"
+    return false
+  end
+  
+  [5, 2, nil].each do |bad_index|
+    exception_thrown = false
+    begin
+      reader_states.current_state_of(bad_index)
+    rescue IndexError => e
+      puts "(expected) exception thrown: #{e}\n"
+      exception_thrown = e
+    rescue TypeError => e
+      puts "(expected) exception thrown: #{e}\n"
+      exception_thrown = e
+    end
+    unless exception_thrown
+      puts "FAILED: ReaderStates.current_state_of responded for bad index #{bad_index}\n"
+      return false
+    end
+  end
+  
+  return true
+end
+
+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 
+    if r_protocol != t_protocol
+      puts "FAILED: IoRequest.protocol= / protocol failed for protocol #{t_protocol} (got #{r_protocol} instead)\n"
+      return false
+    end     
+  end
+end
+
+test_reader_states
+test_io_request
+
+
+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
+
+card0.reconnect Smartcard::PCSC::SHARE_EXCLUSIVE, Smartcard::PCSC::PROTOCOL_ANY, Smartcard::PCSC::INITIALIZATION_RESET
+
+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, 0xba, 0xbe]
+select_apdu = [0x00, 0xA4, 0x04, 0x00, aid.length, aid].flatten
+send_ioreq = Smartcard::PCSC::IoRequest.new; send_ioreq.protocol = Smartcard::PCSC::PROTOCOL_T1;
+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