mintchip 0.0.2 → 0.0.3

data/lib/mintchip.rb

@@ -1,141 +1,20 @@
-require 'openssl'
-require 'net/http'
-require 'net/https'
-require 'uri'
-require 'json'
-require 'active_support/all'
-
-require "mintchip/version"
+require 'mintchip/version'
+require 'mintchip/hosted'
+require 'mintchip/mintchip_message'
+require 'mintchip/value_request_message'
 
 module Mintchip
   CURRENCY_CODES = { CAD: 1 }
 
+  def self.currency_code(name)
+    CURRENCY_CODES[name.to_sym] or raise InvalidCurrency
+  end
+
   class InvalidCurrency < StandardError; end
   class Error < StandardError ; end
   class SystemError < Error   ; end
   class CryptoError < Error   ; end
   class FormatError < Error   ; end
   class MintchipError < Error ; end
-
-
-  def self.currency_code(name)
-    CURRENCY_CODES[name.to_sym] or raise InvalidCurrency
-  end
-
-  class Hosted
-    RESOURCE_BASE = "https://remote.mintchipchallenge.com/mintchip"
-
-    def initialize(key, password)
-      @p12 = OpenSSL::PKCS12.new(key, password)
-    end
-
-    # GET /info/{responseformat}
-    def info
-      @info ||= Info.new get "/info/json"
-    end
-
-    class Info
-      ATTRIBUTES = %w(id currencyCode balance creditLogCount debitLogCount) +
-        %w(creditLogCountRemaining debitLogCountRemaining maxCreditAllowed maxDebitAllowed version)
-
-      attr_reader *ATTRIBUTES.map(&:underscore).map(&:to_sym)
-
-      def initialize(str)
-        attrs = JSON.parse(str)
-        ATTRIBUTES.each do |attr|
-          instance_variable_set("@#{attr.underscore}", attrs[attr])
-        end
-      end
-    end
-
-    # POST /receipts
-    def load_value(vm)
-      res = post "/receipts", vm, "application/vnd.scg.ecn-message"
-      # body is an empty string on success, which is gross.
-      res == ""
-    end
-
-    # POST /payments/request
-    def create_value1(vrm)
-      post "/payments/request", vrm, "application/vnd.scg.ecn-request"
-    end
-
-    def create_value2(payee_id, currency_name, amount_in_cents)
-      currency_code = Mintchip.currency_code(currency_name)
-      post "/payments/#{payee_id}/#{currency_code}/#{amount_in_cents}"
-    end
-
-    # GET /payments/lastdebit
-    def last_debit
-      get "/payments/lastdebit"
-    end
-
-    # GET /payments/{startindex}/{stopindex}/{responseformat}
-    def debit_log(start, stop)
-      list = JSON.parse get "/payments/#{start}/#{stop}/json"
-      list.map{|item| TransactionLogEntry.new item}
-    end
-
-    # GET /receipts/{startindex}/{stopindex}/{responseformat}
-    def credit_log(start, stop)
-      list = JSON.parse get "/receipts/#{start}/#{stop}/json"
-      list.map{|item| TransactionLogEntry.new item}
-    end
-
-    class TransactionLogEntry
-      ATTRIBUTES = %w(amount challenge index logType payerId payeeId transactionTime currencyCode)
-
-      attr_reader *ATTRIBUTES.map(&:underscore).map(&:to_sym)
-
-      def initialize(attrs)
-        ATTRIBUTES.each do |attr|
-          instance_variable_set("@#{attr.underscore}", attrs[attr])
-        end
-      end
-    end
-
-    private
-
-    def connection
-      uri               = URI.parse RESOURCE_BASE
-      https             = Net::HTTP.new(uri.host, uri.port)
-      https.use_ssl     = true
-      https.cert        = @p12.certificate
-      https.key         = @p12.key
-      https.ca_file     = File.expand_path("../../mintchip.pem", __FILE__)
-      https.verify_mode = OpenSSL::SSL::VERIFY_PEER
-
-      https
-    end
-
-    def get(path)
-      uri = URI.parse(RESOURCE_BASE + path)
-      req = Net::HTTP::Get.new(uri.path)
-      handle_response connection.start { |cx| cx.request(req) }
-    end
-
-    def post(path, data = {}, content_type = nil)
-      uri = URI.parse(RESOURCE_BASE + path)
-      req = Net::HTTP::Post.new(uri.path)
-
-      Hash === data ? req.set_form_data(data) : req.body = data
-      req.content_type = content_type if content_type
-
-      handle_response connection.start { |cx| cx.request(req) }
-    end
-
-    def handle_response(resp)
-      case resp.code.to_i
-      when 200 ; resp.body
-      when 452 ; raise Mintchip::SystemError, resp.msg
-      when 453 ; raise Mintchip::CryptoError, resp.msg
-      when 454 ; raise Mintchip::FormatError, resp.msg
-      when 455 ; raise Mintchip::MintchipError, resp.msg
-      else     ; raise Mintchip::Error, resp.msg
-      end
-    end
-
-  end
-
 end
 

data/lib/mintchip/hosted.rb

@@ -0,0 +1,100 @@
+require 'net/http'
+require 'net/https'
+require 'openssl'
+require 'uri'
+
+require 'active_support/all'
+require 'json'
+
+require 'mintchip/hosted/info'
+require 'mintchip/hosted/transaction_log_entry'
+
+module Mintchip
+  class Hosted
+    RESOURCE_BASE = "https://remote.mintchipchallenge.com/mintchip"
+
+    def initialize(key, password)
+      @p12 = OpenSSL::PKCS12.new(key, password)
+    end
+
+    # GET /info/{responseformat}
+    def info
+      @info ||= Info.new get "/info/json"
+    end
+
+    # POST /receipts
+    def load_value(vm)
+      res = post "/receipts", vm, "application/vnd.scg.ecn-message"
+      # body is an empty string on success, which is gross.
+      res == ""
+    end
+
+    # POST /payments/request
+    def create_value1(vrm)
+      post "/payments/request", vrm, "application/vnd.scg.ecn-request"
+    end
+
+    def create_value2(payee_id, currency_name, amount_in_cents)
+      currency_code = Mintchip.currency_code(currency_name)
+      post "/payments/#{payee_id}/#{currency_code}/#{amount_in_cents}"
+    end
+
+    # GET /payments/lastdebit
+    def last_debit
+      get "/payments/lastdebit"
+    end
+
+    # GET /payments/{startindex}/{stopindex}/{responseformat}
+    def debit_log(start, stop)
+      list = JSON.parse get "/payments/#{start}/#{stop}/json"
+      list.map{|item| TransactionLogEntry.new item}
+    end
+
+    # GET /receipts/{startindex}/{stopindex}/{responseformat}
+    def credit_log(start, stop)
+      list = JSON.parse get "/receipts/#{start}/#{stop}/json"
+      list.map{|item| TransactionLogEntry.new item}
+    end
+
+    private
+
+    def connection
+      uri               = URI.parse RESOURCE_BASE
+      https             = Net::HTTP.new(uri.host, uri.port)
+      https.use_ssl     = true
+      https.cert        = @p12.certificate
+      https.key         = @p12.key
+      https.ca_file     = File.expand_path("../../../mintchip.pem", __FILE__)
+      https.verify_mode = OpenSSL::SSL::VERIFY_PEER
+
+      https
+    end
+
+    def get(path)
+      uri = URI.parse(RESOURCE_BASE + path)
+      req = Net::HTTP::Get.new(uri.path)
+      handle_response connection.start { |cx| cx.request(req) }
+    end
+
+    def post(path, data = {}, content_type = nil)
+      uri = URI.parse(RESOURCE_BASE + path)
+      req = Net::HTTP::Post.new(uri.path)
+
+      Hash === data ? req.set_form_data(data) : req.body = data
+      req.content_type = content_type if content_type
+
+      handle_response connection.start { |cx| cx.request(req) }
+    end
+
+    def handle_response(resp)
+      case resp.code.to_i
+      when 200 ; resp.body
+      when 452 ; raise Mintchip::SystemError, resp.msg
+      when 453 ; raise Mintchip::CryptoError, resp.msg
+      when 454 ; raise Mintchip::FormatError, resp.msg
+      when 455 ; raise Mintchip::MintchipError, resp.msg
+      else     ; raise Mintchip::Error, resp.msg
+      end
+    end
+  end
+ end

data/lib/mintchip/hosted/info.rb

@@ -0,0 +1,17 @@
+module Mintchip
+  class Hosted
+    class Info
+      ATTRIBUTES = %w(id currencyCode balance creditLogCount debitLogCount) +
+        %w(creditLogCountRemaining debitLogCountRemaining maxCreditAllowed maxDebitAllowed version)
+
+      attr_reader *ATTRIBUTES.map(&:underscore).map(&:to_sym)
+
+      def initialize(str)
+        attrs = JSON.parse(str)
+        ATTRIBUTES.each do |attr|
+          instance_variable_set("@#{attr.underscore}", attrs[attr])
+        end
+      end
+    end
+  end
+end

data/lib/mintchip/hosted/transaction_log_entry.rb

@@ -0,0 +1,15 @@
+module Mintchip
+  class Hosted
+    class TransactionLogEntry
+      ATTRIBUTES = %w(amount challenge index logType payerId payeeId transactionTime currencyCode)
+
+      attr_reader *ATTRIBUTES.map(&:underscore).map(&:to_sym)
+
+      def initialize(attrs)
+        ATTRIBUTES.each do |attr|
+          instance_variable_set("@#{attr.underscore}", attrs[attr])
+        end
+      end
+    end
+  end
+end

data/lib/mintchip/mintchip_message.rb

@@ -0,0 +1,46 @@
+module Mintchip
+  class MintchipMessage
+
+    def initialize(value, response_url, annotation, *)
+      @value = value
+      @response_url = response_url
+      @annotation = annotation
+    end
+
+    def to_base64
+      Base64.strict_encode64(message.to_der)
+    end
+
+    protected
+
+    def packet
+      raise NotImplementedError
+    end
+
+    def message
+      message_version = OpenSSL::ASN1::Enumerated.new(1, 0, :EXPLICIT)
+      annotation = OpenSSL::ASN1::IA5String.new(annotation, 1, :EXPLICIT)
+      message = OpenSSL::ASN1::Sequence.new([message_version, @annotation, packet], 0, :EXPLICIT, :APPLICATION)
+    end
+
+    def to_binary_coded_decimal(n)
+      str = n.to_s
+      bin = ""
+      str.each_char do |c|
+        bin << c.to_i.to_s(2).rjust(4,'0')
+      end
+      bin
+    end
+
+    def to_padded_ascii_binary_coded_decimal(value, length_in_bits, pad_character = '0')
+      res = to_binary_coded_decimal(value).to_s
+      res = res.rjust(length_in_bits, pad_character)
+      res = [res].pack("B*")
+    end
+
+    def to_octet_string(value, tag = -1, tagging = :EXPLICIT)
+      ret = tag == -1 ? OpenSSL::ASN1::OctetString.new(value) : OpenSSL::ASN1::OctetString.new(value, tag, tagging)
+    end
+
+  end
+end

data/lib/mintchip/value_request_message.rb

@@ -0,0 +1,55 @@
+module Mintchip
+  class ValueRequestMessage < MintchipMessage
+
+    def initialize(value, response_url, annotation, info)
+      super
+      @info = info
+    end
+
+    def packet
+      OpenSSL::ASN1::ASN1Data.new([sequence], 2, :CONTEXT_SPECIFIC)
+    end
+
+    private
+
+    def sequence
+      OpenSSL::ASN1::Sequence.new(sequence_data, 1, :EXPLICIT)
+    end
+
+    def sequence_data
+      [payee_id, currency_code, transfer_value, include_cert,
+        response_url, random_challenge]
+    end
+
+    def payee_id
+      to_octet_string(to_padded_ascii_binary_coded_decimal(@info.id, 64))
+    end
+
+    def currency_code
+      to_octet_string(@info.currency_code.chr)
+    end
+
+    def include_cert
+      OpenSSL::ASN1::Boolean.new(true)
+    end
+
+    def transfer_value
+      to_octet_string(to_padded_ascii_binary_coded_decimal(@value, 24))
+    end
+
+    def response_url
+      OpenSSL::ASN1::IA5String(@response_url)
+    end
+
+    def random_challenge
+      to_octet_string(random_bytes(4), 0, :IMPLICIT)
+    end
+
+    def random_bytes(n)
+      Random.new().bytes(n)
+    end
+
+  end
+end
+
+

data/lib/mintchip/version.rb

@@ -1,3 +1,3 @@
 module Mintchip
-  VERSION = "0.0.2"
+  VERSION = "0.0.3"
 end

data/mintchip.gemspec

@@ -14,4 +14,10 @@ Gem::Specification.new do |gem|
   gem.name          = "mintchip"
   gem.require_paths = ["lib"]
   gem.version       = Mintchip::VERSION
+
+  gem.add_dependency 'active_support'
+  gem.add_dependency 'json'
+
+  gem.add_development_dependency 'minitest'
+  gem.add_development_dependency 'mocha'
 end

data/test/mintchip/hosted_test.rb

@@ -0,0 +1,22 @@
+class Mintchip::HostedTest < MiniTest::Unit::TestCase
+
+  # Testing web APIs is a pain in the ass. TODO!
+  def test_info
+    assert_equal 3, hosted.info
+  end
+
+  def setup
+    OpenSSL::PKCS12.expects(:new).with("omg", "wtf").returns(p12)
+  end
+
+  private
+
+  def p12
+    @p12 ||= stub(key: "key", certificate: "certificate")
+  end
+
+  def hosted
+    @hosted ||= Mintchip::Hosted.new("omg", "wtf")
+  end
+
+end

data/test/mintchip/value_request_message_test.rb

@@ -0,0 +1,18 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class ValueRequestMessageTest < MiniTest::Unit::TestCase
+
+  def test_pretty_much_everything
+    msg = Mintchip::ValueRequestMessage.new(1000, "http://example.com", "", info)
+    msg.expects(:random_bytes).with(4).returns(">@\xE6\x90")
+    expected = "YDwwOqADCgEBojOhMTAvBAgQAAAAAAATJAQBAQQDABAAAQH/FhJodHRwOi8vZXhhbXBsZS5jb22ABD5A5pA="
+    assert_equal expected, msg.to_base64
+  end
+
+  private
+
+  def info
+    stub(id: "1000000000001324", currency_code: 1)
+  end
+
+end

data/test/test_helper.rb

@@ -0,0 +1,7 @@
+$LOAD_PATH.unshift File.expand_path('../../lib', __FILE__)
+
+require 'mintchip'
+
+require 'minitest/autorun'
+require 'mocha'
+

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: mintchip
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3
   prerelease: 
 platform: ruby
 authors:
@@ -9,8 +9,52 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-04-11 00:00:00.000000000 Z
-dependencies: []
+date: 2012-04-17 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: active_support
+  requirement: &70097927569880 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70097927569880
+- !ruby/object:Gem::Dependency
+  name: json
+  requirement: &70097927618500 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70097927618500
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: &70097927617540 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70097927617540
+- !ruby/object:Gem::Dependency
+  name: mocha
+  requirement: &70097927616860 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70097927616860
 description: ! 'Pre-Alpha: API for RCM MintChip'
 email:
 - burke@burkelibbey.org
@@ -24,9 +68,17 @@ files:
 - README.md
 - Rakefile
 - lib/mintchip.rb
+- lib/mintchip/hosted.rb
+- lib/mintchip/hosted/info.rb
+- lib/mintchip/hosted/transaction_log_entry.rb
+- lib/mintchip/mintchip_message.rb
+- lib/mintchip/value_request_message.rb
 - lib/mintchip/version.rb
 - mintchip.gemspec
 - mintchip.pem
+- test/mintchip/hosted_test.rb
+- test/mintchip/value_request_message_test.rb
+- test/test_helper.rb
 homepage: ''
 licenses: []
 post_install_message: 
@@ -51,4 +103,7 @@ rubygems_version: 1.8.11
 signing_key: 
 specification_version: 3
 summary: ! 'Pre-Alpha: API for RCM MintChip.'
-test_files: []
+test_files:
+- test/mintchip/hosted_test.rb
+- test/mintchip/value_request_message_test.rb
+- test/test_helper.rb