webmoney 0.0.4.2

data/ext/wmsigner/stdafx.cpp

@@ -0,0 +1,8 @@
+// stdafx.cpp : source file that includes just the standard includes
+// wmsigner.pch will be the pre-compiled header
+// stdafx.obj will contain the pre-compiled type information
+
+#include "stdafx.h"
+
+// TODO: reference any additional headers you need in STDAFX.H
+// and not in this file

data/ext/wmsigner/stdafx.h

@@ -0,0 +1,33 @@
+// stdafx.h : include file for standard system include files,
+// or project specific include files that are used frequently, but
+// are changed infrequently
+//
+
+// REMOVE COMMENT FOR DEBUG MODE 
+//#ifndef _DEBUG
+//#define _DEBUG
+//#endif
+
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include <errno.h>
+#ifdef _WIN32
+#pragma once
+#include <iostream>
+#include <tchar.h>
+#include <windows.h>
+#include <io.h>
+#include <memory.h>
+#pragma warning(disable : 4996)
+#endif
+// TODO: reference additional headers your program requires here
+#ifndef TRUE
+#define TRUE	1
+#endif
+#ifndef FALSE
+#define FALSE	0
+#endif
+

data/ext/wmsigner/wmsigner.cpp

@@ -0,0 +1,119 @@
+// Include the Ruby headers and goodies
+#include <stdlib.h>
+#include <ctype.h>
+#include "ruby.h"
+#include "signer.h"
+#include "base64.h"
+#include "cmdbase.h"
+
+#define ASCII_SIZE 512
+#define BUF_64_SIZE 220
+
+// Defining a space for information and references about the module to be stored internally
+VALUE cSigner;
+
+typedef VALUE (ruby_method)(...);
+
+// Prototype for the initialization method - Ruby calls this, not you
+//extern "C" void Init_Wmutils();
+
+// Prototype for our method 'test1' - methods are prefixed by 'method_' here
+// typedef VALUE method_test1(VALUE self);
+// typedef VALUE initialize(VALUE self, const char *szWMID, const char *szPwd, const char *szKeyData);
+
+//Signer *pSign;
+
+void signer_free(Signer *p)
+{
+if (p)
+  delete p;
+}
+
+bool IsWmid(const char* sz)
+{
+  int len = strlen(sz);
+  if (len != 12) return false;
+  for(int i = 0; i < len; i++)
+  {
+    if (!isdigit(sz[i]))
+    return false;
+  }
+  return true;
+}
+
+extern "C" VALUE signer_new(VALUE self, VALUE szWMID, VALUE szPwd, VALUE szKeyData64)
+{
+    Signer *pSign;
+
+    if(NIL_P(szWMID))	rb_raise(rb_eArgError, "nil wmid");    
+
+    // check WMID
+    if (! IsWmid(RSTRING(szWMID)->ptr)) rb_raise(rb_eArgError, "Incorrect WMID");
+
+    if(NIL_P(szPwd)) rb_raise(rb_eArgError, "nil password");
+
+    if(NIL_P(szKeyData64)) rb_raise(rb_eArgError, "nil key");
+
+    // check base64 data
+    if ( RSTRING(szKeyData64)->len != 220 ) rb_raise(rb_eArgError, "Illegal size for base64 keydata");
+    
+    char KeyBuffer[ASCII_SIZE];
+    int bytes = code64( ENCODE, KeyBuffer, ASCII_SIZE, RSTRING(szKeyData64)->ptr, BUF_64_SIZE );
+
+    // check encoded key
+    if ( bytes != 164) rb_raise(rb_eArgError, "Illegal size for keydata");
+
+    pSign = new Signer(RSTRING(szWMID)->ptr, RSTRING(szPwd)->ptr, "");
+    VALUE tdata = Data_Wrap_Struct(self, 0, signer_free, pSign);
+
+    pSign->isIgnoreKeyFile = TRUE;
+    pSign->Key64Flag = TRUE;
+        
+    if (pSign) pSign->SetKeyFromCL( TRUE, KeyBuffer );
+
+    return tdata;
+}
+
+extern "C" VALUE signer_init(VALUE self)
+{
+    return self;
+}
+
+extern "C" VALUE signer_sign(VALUE self, VALUE szIn)
+{
+    VALUE ret;
+    ret = rb_str_new2("");
+
+    Signer *pSign;
+
+    Data_Get_Struct(self, Signer, pSign);    
+    
+    if(NIL_P(szIn)) rb_raise(rb_eArgError, "nil for sign");
+
+    if (pSign)
+    {   
+      szptr szSign;
+			if (pSign->Sign(RSTRING(szIn)->ptr, szSign))
+			{
+		 	    ret = rb_str_new2((char *)(const char *)szSign);
+			}
+    }
+
+    int err_no = pSign->ErrorCode();
+    if (err_no){
+			char err[20];
+			sprintf(err, "Signer error: %d", err_no);
+			rb_raise(rb_eStandardError, err);
+    }
+
+   return ret;
+}
+
+// The initialization method for this module
+extern "C" void Init_wmsigner() 
+{
+    cSigner = rb_define_class("Signer", rb_cObject);
+    rb_define_singleton_method(cSigner, "new", (ruby_method*) &signer_new, 3);
+    rb_define_method(cSigner, "initialize", (ruby_method*) &signer_init, 0);
+    rb_define_method(cSigner, "sign", (ruby_method*) &signer_sign, 1);
+}

data/lib/WebMoneyCA.crt

@@ -0,0 +1,90 @@
+WebMoney Transfer Root Authority
+================================
+SHA1 Fingerprint: 76:7C:A8:69:09:10:F0:69:32:33:66:A9:C4:5D:78:6B:D1:37:17:16
+PEM Data:
+-----BEGIN CERTIFICATE-----
+MIIEGTCCAwGgAwIBAgIQNHU6UsCDcLJD7Qw+0yqyRjANBgkqhkiG9w0BAQUFADBv
+MRowGAYDVQQKExFXZWJNb25leSBUcmFuc2ZlcjEmMCQGA1UECxMdV2ViTW9uZXkg
+Q2VydGlmaWNhdGlvbiBDZW50ZXIxKTAnBgNVBAMTIFdlYk1vbmV5IFRyYW5zZmVy
+IFJvb3QgQXV0aG9yaXR5MB4XDTAxMDQwNDEzNDcwOVoXDTEwMDYwNzE5NDcxOFow
+bzEaMBgGA1UEChMRV2ViTW9uZXkgVHJhbnNmZXIxJjAkBgNVBAsTHVdlYk1vbmV5
+IENlcnRpZmljYXRpb24gQ2VudGVyMSkwJwYDVQQDEyBXZWJNb25leSBUcmFuc2Zl
+ciBSb290IEF1dGhvcml0eTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEB
+AO9V0RYrJYPCOR7odiyICWNuoZj0tN9Z1mY10s+QIYGsMZCNG0meQymt5jTuhD/E
+GNAHVVR9st3C92pqy2UAvQyAxMmzg5SJbuo/39YSAqx0vEtehl4QfHWHSiFStbbt
+ZslHdl1jYKLwm6B88XI3OpiAoMAccntSazvim1k18lZ2bsTJeiH4s8BLP5T0Yw+R
+belHaJe1DiRWChoKqoVqsDp5mH7v0cEpD78KltHo57zUuH+rzTcTeCKkO4/9CWiF
+qY2FzC09wekFJ8LZ0HMlcANdLYSvmz3Ux3BvFqy8Jyt8dBhq8MRUkzZC8Cg5/lfs
+ZSMHHsr1PnsIuM0OGbb1GJMCAwEAAaOBsDCBrTALBgNVHQ8EBAMCAcYwDwYDVR0T
+AQH/BAUwAwEB/zAdBgNVHQ4EFgQUy51+UX4IIMT1cJShzlLHBU0/M/MwXAYDVR0f
+BFUwUzBRoE+gTYZLaHR0cDovL3d3dy53bWNlcnQuY29tL0NlcnRFbnJvbGwvV2Vi
+TW9uZXklMjBUcmFuc2ZlciUyMFJvb3QlMjBBdXRob3JpdHkuY3JsMBAGCSsGAQQB
+gjcVAQQDAgECMA0GCSqGSIb3DQEBBQUAA4IBAQBqGyv5FVpV4MK0VYXPFqUhsyVc
+SDqM+hu4U0OA0cIKHOXRV6BcbDzsNi1+6HVA2vr9PIcIVTRlGXcU95JcQe3tjbXQ
+NNMpKcgL0YMW0ifMA2qu5y6nJTIu7rKCESUtsMzQUnccaXmYn0DChYuvPObb5suf
+RVlsHL9Gc90eRiR8lofaDqIM82vETsQEIj1M1ifUgD5LxZuwQ8fdESZ/GHkxCosa
+9YG7WZKTMEgPSXpLmd+y24NklMi9cb+0dJce84OgMUfFAxYO71lkc0dJ5B7TJsqS
+Ymwnj0x4w32Av3TiEJOQMghAJVsdPJiEzUiHMVDsAbyXQ03gZIyexFpl4QDy
+-----END CERTIFICATE-----
+Certificate Ingredients:
+    Data:
+        Version: 3 (0x2)
+        Serial Number:
+            34:75:3a:52:c0:83:70:b2:43:ed:0c:3e:d3:2a:b2:46
+        Signature Algorithm: sha1WithRSAEncryption
+        Issuer: O=WebMoney Transfer, OU=WebMoney Certification Center, CN=WebMoney Transfer Root Authority
+        Validity
+            Not Before: Apr  4 13:47:09 2001 GMT
+            Not After : Jun  7 19:47:18 2010 GMT
+        Subject: O=WebMoney Transfer, OU=WebMoney Certification Center, CN=WebMoney Transfer Root Authority
+        Subject Public Key Info:
+            Public Key Algorithm: rsaEncryption
+            RSA Public Key: (2048 bit)
+                Modulus (2048 bit):
+                    00:ef:55:d1:16:2b:25:83:c2:39:1e:e8:76:2c:88:
+                    09:63:6e:a1:98:f4:b4:df:59:d6:66:35:d2:cf:90:
+                    21:81:ac:31:90:8d:1b:49:9e:43:29:ad:e6:34:ee:
+                    84:3f:c4:18:d0:07:55:54:7d:b2:dd:c2:f7:6a:6a:
+                    cb:65:00:bd:0c:80:c4:c9:b3:83:94:89:6e:ea:3f:
+                    df:d6:12:02:ac:74:bc:4b:5e:86:5e:10:7c:75:87:
+                    4a:21:52:b5:b6:ed:66:c9:47:76:5d:63:60:a2:f0:
+                    9b:a0:7c:f1:72:37:3a:98:80:a0:c0:1c:72:7b:52:
+                    6b:3b:e2:9b:59:35:f2:56:76:6e:c4:c9:7a:21:f8:
+                    b3:c0:4b:3f:94:f4:63:0f:91:6d:e9:47:68:97:b5:
+                    0e:24:56:0a:1a:0a:aa:85:6a:b0:3a:79:98:7e:ef:
+                    d1:c1:29:0f:bf:0a:96:d1:e8:e7:bc:d4:b8:7f:ab:
+                    cd:37:13:78:22:a4:3b:8f:fd:09:68:85:a9:8d:85:
+                    cc:2d:3d:c1:e9:05:27:c2:d9:d0:73:25:70:03:5d:
+                    2d:84:af:9b:3d:d4:c7:70:6f:16:ac:bc:27:2b:7c:
+                    74:18:6a:f0:c4:54:93:36:42:f0:28:39:fe:57:ec:
+                    65:23:07:1e:ca:f5:3e:7b:08:b8:cd:0e:19:b6:f5:
+                    18:93
+                Exponent: 65537 (0x10001)
+        X509v3 extensions:
+            X509v3 Key Usage: 
+                Digital Signature, Non Repudiation, Certificate Sign, CRL Sign
+            X509v3 Basic Constraints: critical
+                CA:TRUE
+            X509v3 Subject Key Identifier: 
+                CB:9D:7E:51:7E:08:20:C4:F5:70:94:A1:CE:52:C7:05:4D:3F:33:F3
+            X509v3 CRL Distribution Points: 
+                URI:http://www.wmcert.com/CertEnroll/WebMoney%20Transfer%20Root%20Authority.crl
+
+            1.3.6.1.4.1.311.21.1: 
+                ...
+    Signature Algorithm: sha1WithRSAEncryption
+        6a:1b:2b:f9:15:5a:55:e0:c2:b4:55:85:cf:16:a5:21:b3:25:
+        5c:48:3a:8c:fa:1b:b8:53:43:80:d1:c2:0a:1c:e5:d1:57:a0:
+        5c:6c:3c:ec:36:2d:7e:e8:75:40:da:fa:fd:3c:87:08:55:34:
+        65:19:77:14:f7:92:5c:41:ed:ed:8d:b5:d0:34:d3:29:29:c8:
+        0b:d1:83:16:d2:27:cc:03:6a:ae:e7:2e:a7:25:32:2e:ee:b2:
+        82:11:25:2d:b0:cc:d0:52:77:1c:69:79:98:9f:40:c2:85:8b:
+        af:3c:e6:db:e6:cb:9f:45:59:6c:1c:bf:46:73:dd:1e:46:24:
+        7c:96:87:da:0e:a2:0c:f3:6b:c4:4e:c4:04:22:3d:4c:d6:27:
+        d4:80:3e:4b:c5:9b:b0:43:c7:dd:11:26:7f:18:79:31:0a:8b:
+        1a:f5:81:bb:59:92:93:30:48:0f:49:7a:4b:99:df:b2:db:83:
+        64:94:c8:bd:71:bf:b4:74:97:1e:f3:83:a0:31:47:c5:03:16:
+        0e:ef:59:64:73:47:49:e4:1e:d3:26:ca:92:62:6c:27:8f:4c:
+        78:c3:7d:80:bf:74:e2:10:93:90:32:08:40:25:5b:1d:3c:98:
+        84:cd:48:87:31:50:ec:01:bc:97:43:4d:e0:64:8c:9e:c4:5a:
+        65:e1:00:f2

data/lib/messenger.rb

@@ -0,0 +1,37 @@
+require 'iconv'
+require 'thread'
+
+class Webmoney
+
+  class Messenger
+    
+    def initialize(owner)
+      @webmoney = owner
+      @queue = Queue.new
+      @thread = Thread.new(@queue) do |q|
+        loop do
+          msg = q.pop
+          unless msg.nil?
+            begin
+              result = @webmoney.request(:send_message, msg)
+              @queue.push(msg) unless result.kind_of?(Hash)
+            rescue ResultError
+              puts "ResultError: #{@webmoney.error} #{@webmoney.errormsg}"
+              # Silent drop message
+            rescue ResponseError
+              puts "ResponseError: #{@webmoney.error}"
+              # Requeue message
+              @queue.push(msg)
+            end
+          end
+        end
+      end
+    end
+    
+    def push(msg)
+      @queue.push(msg)
+    end
+    
+  end
+  
+end

data/lib/passport.rb

@@ -0,0 +1,44 @@
+require 'hpricot'
+
+# Class for store attestat information
+class Webmoney
+  class Passport < Wmid
+
+    # doc - Hpricot::Doc or xml-string
+    def initialize(doc)
+      doc = Hpricot.XML(doc) unless doc.kind_of?(Hpricot::Doc)
+      root = doc.at('/response')
+      if root && root['retval'] && root['retval'].to_i == 0
+        super(doc.at('/response/certinfo')['wmid'])
+        tid = doc.at('/response/certinfo/attestat/row')['tid'].to_i
+        recalled = doc.at('/response/certinfo/attestat/row')['recalled'].to_i
+        locked = doc.at('/response/certinfo/userinfo/value/row')['locked'].to_i
+        @attestat = ( recalled + locked > 0) ? ALIAS : tid
+        @created_at = Time.xmlschema(doc.at('/response/certinfo/attestat/row')['datecrt'])
+
+        # TODO more attestat fields...
+
+        # Make all instance variables readable
+        instance_variables.each do |n| 
+          class << self; self; end.instance_eval {
+            attr_reader n.sub(/^@/, '')
+          }
+        end
+      end
+    end
+
+    # Attestate types
+    ALIAS       = 100
+    FORMAL      = 110
+    START       = 120
+    PERSONAL    = 130
+    PAYER       = 135
+    CAPITALLER  = 136
+    DEVELOPER   = 140
+    REGISTRATOR = 150
+    GARANT      = 170
+    SERVICE     = 190
+    SERVICE2    = 200
+    OPERATOR    = 300
+  end
+end

data/lib/webmoney.rb

@@ -0,0 +1,237 @@
+require File.dirname(__FILE__) +'/wmsigner'
+require 'time'
+require 'net/http'
+require 'net/https'
+require 'rubygems'
+require 'iconv'
+require 'builder'
+require 'hpricot'
+
+class Object
+  def blank?
+    respond_to?(:empty?) ? empty? : !self
+  end
+end
+
+# Main class for Webmoney lib. Instance contain info
+# for Webmoney interfaces requests (wmid, key, etc). 
+# Implement base requests to Webmoney.
+class Webmoney
+
+  # Error classes
+  class WebmoneyError < StandardError; end
+  class RequestError < WebmoneyError;  end
+  class ResultError < WebmoneyError;  end
+  class IncorrectWmidError < WebmoneyError; end
+  class CaCertificateError < WebmoneyError; end
+  
+  require File.dirname(__FILE__) + '/../lib/wmid'
+  require File.dirname(__FILE__) + '/../lib/passport'
+  require File.dirname(__FILE__) + '/../lib/messenger'
+  
+  attr_reader :wmid, :error, :errormsg, :last_request, :messenger
+  
+  # Required options:
+  # :wmid (WMID)
+  # :password (on Classic key or Light X509 certtificate & key)
+  # :key (Base64 string for Classic key) 
+  # OR TODO!
+  # :key (OpenSSL::PKey::RSA or OpenSSL::PKey::DSA object) AND
+  # :cert OpenSSL::X509::Certificate object
+  # Optional:
+  # :ca_cert (path of a CA certification file in PEM format)
+  def initialize(opt = {})
+    @wmid = Wmid.new(opt[:wmid])
+    
+    # classic or light
+    case opt[:key]
+      when String
+        @signer = Signer.new(@wmid, opt[:password], opt[:key])
+      when OpenSSL::PKey::RSA, OpenSSL::PKey::DSA
+        @key = opt[:key]
+        @cert = opt[:cert]
+        @password = opt[:password]
+    end
+    
+    # ca_cert or default
+    @ca_cert = 
+      if opt[:ca_cert].nil?
+         File.dirname(__FILE__) + '/../lib/WebMoneyCA.crt'
+      else
+        opt[:ca_cert]
+      end
+
+    w3s = 'https://w3s.wmtransfer.com/asp/'
+    
+    @interfaces = {
+      'create_invoice'  => URI.parse( w3s + 'XMLInvoice.asp' ), # x1
+      'create_transaction'  => URI.parse( w3s + 'XMLTrans.asp' ), # x2
+      'operation_history'  => URI.parse( w3s + 'XMLOperations.asp' ), # x3
+      'outgoing_invoices'  => URI.parse( w3s + 'XMLOutInvoices.asp' ), # x4
+      'finish_protect'  => URI.parse( w3s + 'XMLFinishProtect.asp' ), # x5
+      'send_message'  => URI.parse( w3s + 'XMLSendMsg.asp'), # x6
+      'check_sign'  => URI.parse( w3s + 'XMLClassicAuth.asp'), # x7
+      'find_wm'  => URI.parse( w3s + 'XMLFindWMPurse.asp'), # x8
+      'balance'  => URI.parse( w3s + 'XMLPurses.asp'), # x9
+      'incoming_invoices' => URI.parse( w3s + 'XMLInInvoices.asp'), # x10
+      'get_passport' => URI.parse( 'https://passport.webmoney.ru/asp/XMLGetWMPassport.asp'), # x11
+      'reject_protection' => URI.parse( w3s + 'XMLRejectProtect.asp'), # x13
+      'transaction_moneyback' => URI.parse( w3s + 'XMLTransMoneyback.asp'), # 14
+      'i_trust'  => URI.parse( w3s + 'XMLTrustList.asp'), # x15
+      'trust_me'  => URI.parse( w3s + 'XMLTrustList2.asp'), # x15
+      'trust_save'  => URI.parse( w3s + 'XMLTrustSave2.asp'), # x15
+      'create_purse'  => URI.parse( w3s + 'XMLCreatePurse.asp'), # x16
+      'bussines_level'  => URI.parse( 'https://stats.wmtransfer.com/levels/XMLWMIDLevel.aspx')
+    }
+    # Iconv.new(to, from)
+    @ic_in = Iconv.new('UTF-8', 'CP1251')
+    @ic_out = Iconv.new('CP1251', 'UTF-8')
+  end
+  
+  def classic?
+    ! @signer.nil?
+  end
+  
+  # Send message through Queue and Thread
+  # Params - :wmid, :subj, :text
+  def send_message(params)
+    @messenger = Messenger.new(self) if @messenger.nil?
+    @messenger.push(params)
+  end
+  
+  # ================================================
+  # Main interface function
+  # ================================================
+  def request(iface, opt ={})
+    reqn = reqn()
+    raise ArgumentError unless opt.kind_of?(Hash)
+    opt[:wmid] = @wmid if opt[:wmid].nil?
+    x = Builder::XmlMarkup.new(:indent => 1)
+    x.instruct!(:xml, :version=>"1.0", :encoding=>"windows-1251")
+    unless [:get_passport, :bussines_level].include?(iface)
+      x.tag!('w3s.request') do
+        x.wmid @wmid
+        case iface
+          when :check_sign then
+            plan_out = @ic_out.iconv(opt[:plan])
+            x.testsign do 
+              x.wmid opt[:wmid]
+              x.plan { x.cdata! plan_out } 
+              x.sign opt[:sign]
+            end
+            plan = @wmid + opt[:wmid] + plan_out + opt[:sign]
+          when :send_message
+            x.reqn reqn
+            msgsubj = @ic_out.iconv(opt[:subj])
+            msgtext = @ic_out.iconv(opt[:text])
+            x.message do
+              x.receiverwmid opt[:wmid]
+              x.msgsubj { x.cdata! msgsubj }
+              x.msgtext { x.cdata! msgtext }
+            end
+            plan = opt[:wmid] + reqn + msgtext + msgsubj
+        end
+        x.sign sign(plan) if classic?
+      end
+    else
+      case iface
+        when :bussines_level
+          x.tag!('WMIDLevel.request') do
+            x.signerwmid @wmid
+            x.wmid opt[:wmid]
+          end
+        when :get_passport
+          x.request do
+            x.wmid @wmid
+            x.passportwmid opt[:wmid]
+            x.params { x.dict 0; x.info 1; x.mode 0 }
+            x.sign sign(@wmid + opt[:wmid]) if classic?
+          end
+      end
+    end
+    
+    # Request do!
+    res = https_request(iface, x.target!)
+    
+    # Parse response
+    parse_retval(res)
+    doc = Hpricot.XML(res)
+    case iface
+      when :check_sign
+        return doc.at('//testsign/res').inner_html == 'yes' ? true : false
+      when :get_passport
+        return Passport.new(doc)
+      when :bussines_level
+        return doc.at('//level').inner_html.to_i
+      when :send_message
+        time = doc.at('//message/datecrt').inner_html
+        m = time.match(/(\d{4})(\d{2})(\d{2}) (\d{2}):(\d{2}):(\d{2})/)
+        time = Time.mktime(*m[1..6])
+        return {:id => doc.at('//message')['id'], :date => time}
+    end
+  end
+  
+  protected
+
+  # Signing string by instance wmid's
+  # Return signed string
+  def sign(str)
+    @signer.sign(str) unless str.blank?
+  end
+    
+  # Make HTTPS request, return result body if 200 OK
+  def https_request(iface, xml)
+    url = case iface
+      when Symbol
+        @interfaces[iface.to_s]
+      when String
+        URI.parse(iface)
+    end
+    http = Net::HTTP.new(url.host, url.port)
+    http.verify_mode = OpenSSL::SSL::VERIFY_PEER
+    if File.file? @ca_cert
+      http.ca_file = @ca_cert
+    else
+      raise CaCertificateError
+    end
+    http.use_ssl = true
+    @last_request = xml
+    result = http.post( url.path, xml, "Content-Type" => "text/xml" )
+    case result
+      when Net::HTTPSuccess
+        # replace root tag for Hpricot
+        res = result.body.gsub(/(w3s\.response|WMIDLevel\.response)/,'w3s_response')
+        return @ic_in.iconv(res)
+      else
+        @error = result.code
+        @errormsg = result.body if result.class.body_permitted?()
+        raise RequestError
+    end
+  end
+
+  def parse_retval(response_xml)
+    doc = Hpricot.XML(response_xml)
+    retval_element = doc.at('//retval')
+    # Workaround for passport interface
+    unless retval_element.nil?
+      retval = retval_element.inner_html.to_i
+      retdesc = doc.at('//retdesc').inner_html unless doc.at('//retdesc').nil?
+    else
+      retval = doc.at('//response')['retval'].to_i
+      retdesc = doc.at('//response')['retdesc']
+    end
+    unless retval == 0
+        @error = retval
+        @errormsg = retdesc
+        raise ResultError
+    end
+  end
+
+  # Create unique Request Number based on time
+  # Return 16 digits string
+  def reqn
+    t = Time.now
+    t.strftime('%Y%m%d%H%M%S') + t.to_f.to_s.match(/\.(\d\d)/)[1]
+  end
+    
+end