ruby_fints 0.0.2

data/lib/fints/helper.rb

@@ -0,0 +1,17 @@
+module FinTS
+  class Helper
+    def self.fints_escape(content)
+      content.gsub('?', '??').gsub('+', '?+').gsub(':', '?:').gsub("'", "?'")
+    end
+
+    def self.fints_unescape(content)
+      content.gsub('??', '?').gsub("?'", "'").gsub('?+', '+').gsub('?:', ':')
+    end
+    
+    def self.mt940_to_array(data)
+      processed_data = data.gsub('@@', '\r\n').gsub('-0000', '+0000')
+      mt940 = Cmxl.parse(processed_data, encoding: 'ISO-8859-1')
+      mt940.flat_map(&:transactions)
+    end
+  end
+end

data/lib/fints/https_connection.rb

@@ -0,0 +1,20 @@
+module FinTS
+  class HTTPSConnection
+    def initialize(url)
+      @url = url
+    end
+
+    def send_msg(msg)
+      message_string = msg.to_s.encode('iso-8859-1')
+      FinTS::Client.logger.debug("<< #{message_string}")
+      data = Base64.encode64(message_string)
+      response = HTTParty.post(@url, body: data, headers: {'Content-Type' => 'text/plain', })
+      if response.code < 200 || response.code > 299
+        raise ConnectionError, "Bad status code #{response.code}"
+      end
+      res = Base64.decode64(response.body).force_encoding('iso-8859-1').encode('utf-8')
+      FinTS::Client.logger.debug(">> #{res}")
+      res
+    end
+  end
+end

data/lib/fints/message.rb

@@ -0,0 +1,67 @@
+module FinTS
+  class Message
+    attr_accessor :msg_no
+    attr_accessor :dialog_id
+    attr_accessor :encrypted_segments
+
+    def initialize(blz, username, pin, system_id, dialog_id, msg_no, encrypted_segments, tan_mechs=nil)
+      @blz = blz
+      @username = username
+      @pin = pin
+      @system_id = system_id
+      @dialog_id = dialog_id
+      @msg_no = msg_no
+      @segments = []
+      @encrypted_segments = []
+
+      if tan_mechs && !tan_mechs.include?('999')
+        @profile_version = 2
+        @security_function = tan_mechs[0]
+      else
+        @profile_version = 1
+        @security_function = '999'
+      end
+
+      sig_head = build_signature_head
+      enc_head = build_encryption_head
+      @segments << enc_head
+
+      @enc_envelop = Segment::HNVSD.new(999, '')
+      @segments << @enc_envelop
+
+      append_enc_segment(sig_head)
+      encrypted_segments.each do |segment|
+        append_enc_segment(segment)
+      end
+
+      cur_count = encrypted_segments.length + 3
+
+      sig_end = Segment::HNSHA.new(cur_count, @secref, @pin)
+      append_enc_segment(sig_end)
+      @segments << Segment::HNHBS.new(cur_count + 1, msg_no)
+    end
+
+    def append_enc_segment(seg)
+      @encrypted_segments << seg
+      @enc_envelop.set_data(@enc_envelop.encoded_data + seg.to_s)
+    end
+
+    def build_signature_head
+      @secref = Kernel.rand(1000000..9999999)
+      Segment::HNSHK.new(2, @secref, @blz, @username, @system_id, @profile_version, @security_function)
+    end
+
+    def build_encryption_head
+      Segment::HNVSK.new(998, @blz, @username, @system_id, @profile_version)
+    end
+
+    def build_header
+      length = @segments.map(&:to_s).inject(0) { |sum, segment| sum + segment.length }
+      Segment::HNHBK.new(length, @dialog_id, @msg_no)
+    end
+
+    def to_s
+      build_header.to_s + @segments.map(&:to_s).join('')
+    end
+  end
+end

data/lib/fints/mt535_miniparser.rb

@@ -0,0 +1,107 @@
+module FinTS
+  class MT535Miniparser
+    RE_IDENTIFICATION = /^:35B:ISIN\s(.*)\|(.*)\|(.*)$/
+    RE_MARKETPRICE = /^:90B::MRKT\/\/ACTU\/([A-Z]{3})(\d*),{1}(\d*)$/
+    RE_PRICEDATE = /^:98A::PRIC\/\/(\d*)$/
+    RE_PIECES = /^:93B::AGGR\/\/UNIT\/(\d*),(\d*)$/
+    RE_TOTALVALUE = /^:19A::HOLD\/\/([A-Z]{3})(\d*),{1}(\d*)$/
+
+    def parse(lines)
+      retval = []
+      # First: Collapse multiline clauses into one clause
+      clauses = collapse_multilines(lines)
+      # Second: Scan sequence of clauses for financial instrument
+      # sections
+      finsegs = grab_financial_instrument_segments(clauses)
+      # Third: Extract financial instrument data
+      finsegs.each do |finseg|
+        isin = name = market_price = price_symbol = price_date = pieces = total_value = nil
+        finseg.each do |clause|
+          # identification of instrument
+          # e.g. ':35B:ISIN LU0635178014|/DE/ETF127|COMS.-MSCI EM.M.T.U.ETF I'
+          m = RE_IDENTIFICATION.match(clause)
+          if m
+            isin = m[1]
+            name = m[3]
+          end
+          # current market price
+          # e.g. ':90B::MRKT//ACTU/EUR38,82'
+          m = RE_MARKETPRICE.match(clause)
+          if m
+            price_symbol = m[1]
+            market_price = (m[2] + '.' + m[3]).to_f
+          end
+          # date of market price
+          # e.g. ':98A::PRIC//20170428'
+          m = RE_PRICEDATE.match(clause)
+          if m
+            price_date = Time.strptime(m[1], '%Y%m%d').date()
+          end
+          # number of pieces
+          # e.g. ':93B::AGGR//UNIT/16,8211'
+          m = RE_PIECES.match(clause)
+          if m
+            pieces = (m[1] + '.' + m[2]).to_s
+          end
+          # total value of holding
+          # e.g. ':19A::HOLD//EUR970,17'
+          m = RE_TOTALVALUE.match(clause)
+          if m
+            total_value = (m[2] + '.' + m[3]).to_f
+          end
+        end
+        # processed all clauses
+        retval << {
+          ISIN: isin,
+          name: name,
+          market_value: market_price,
+          value_symbol: price_symbol,
+          valuation_date: price_date,
+          pieces: pieces,
+          total_value: total_value
+        }
+      end
+          
+      retval
+    end
+
+    def collapse_multilines(lines)
+      clauses = []
+      prevline = ''
+      lines.each do |line|
+        if line.start_with?(':')
+          clauses << prevline if prevline != ''
+          prevline = line
+        elsif line.startswith("-")
+          # last line
+          clauses << prevline
+          clauses << line
+        else
+          prevline += "|#{line}"
+        end
+      end
+      clauses
+    end
+
+    def grab_financial_instrument_segments(clauses)
+      retval = []
+      stack = []
+      within_financial_instrument = false
+      clauses.each do |clause|
+        if clause.start_with?(':16R:FIN')
+          # start of financial instrument
+          within_financial_instrument = true
+        elsif clause.startswith(':16S:FIN')
+          # end of financial instrument - move stack over to
+          # return value
+          retval << stack
+          stack = []
+          within_financial_instrument = false
+        elsif within_financial_instrument
+          stack << clause
+        end
+      end
+      retval
+    end
+  end
+end

data/lib/fints/pin_tan_client.rb

@@ -0,0 +1,22 @@
+module FinTS
+  class PinTanClient < Client
+    def initialize(blz, username, pin, server)
+      @blz = blz
+      @username = username
+      @pin = pin
+      @connection = HTTPSConnection.new(server)
+      @system_id = 0
+      super()
+    end
+
+    protected
+
+    def new_dialog
+      Dialog.new(@blz, @username, @pin, @system_id, @connection)
+    end
+
+    def new_message(dialog, segments)
+      Message.new(@blz, @username, @pin, dialog.system_id, dialog.dialog_id, dialog.msg_no, segments, dialog.tan_mechs)
+    end
+  end
+end

data/lib/fints/response.rb

@@ -0,0 +1,160 @@
+module FinTS
+  class Response
+    RE_SEGMENTS = /'(?=[A-Z]{4,}:\d|')/
+    RE_UNWRAP = /HNVSD:\d+:\d+\+@\d+@(.+)''/
+    RE_SYSTEMID = /HISYN:\d+:\d+:\d+\+(.+)/
+    RE_TANMECH = /\d{3}/
+
+    def initialize(data)
+      @response = unwrap(data)
+      @segments = data.split(RE_SEGMENTS)
+    end
+
+    def split_for_data_groups(seg)
+      seg.split(/\+(?<!\?\+)/)
+    end
+
+    def split_for_data_elements(deg)
+      deg.split(/:(?<!\?:)/)
+    end
+
+    def get_summary_by_segment(name)
+      if !['HIRMS', 'HIRMG'].include?(name)
+        raise ArgumentError, 'Unsupported segment for message summary'
+      end
+
+      seg = find_segment(name)
+      return {} if seg.nil?
+      res = {}
+      parts = split_for_data_groups(seg).drop(1)
+      parts.each do |de|
+        de = split_for_data_elements(de)
+        res[de[0]] = de[2]
+      end
+      res
+    end
+
+    def successful?
+      summary = get_summary_by_segment('HIRMG')
+      summary.each do |code, msg|
+        if code[0] == '9'
+          return false
+        end
+      end
+      return true
+    end
+
+    def get_dialog_id
+      seg = self.find_segment('HNHBK')
+      unless seg
+        raise ArgumentError, 'Invalid response, no HNHBK segment'
+      end
+      get_segment_index(4, seg)
+    end
+
+    def get_system_id
+      seg = find_segment('HISYN')
+      match = RE_SYSTEMID.match(seg)
+      raise ArgumentError, 'Could not find system_id' if match.nil?
+      match[1]
+    end
+
+    def get_bank_name
+      seg = find_segment('HIBPA')
+      return nil if seg.nil?
+      parts = split_for_data_groups(seg)
+      return nil if parts.length <= 3
+      parts[3]
+    end
+
+    def get_hkkaz_max_version
+      get_segment_max_version('HIKAZS')
+    end
+
+    def get_hksal_max_version
+      get_segment_max_version('HISALS')
+    end
+
+    def get_segment_index(idx, seg)
+      seg = split_for_data_groups(seg)
+      return seg[idx - 1] if seg.length > idx - 1
+      nil
+    end
+
+    def get_segment_max_version(name)
+      ret = 3
+      segs = find_segments(name)
+      segs.each do |s|
+        parts = split_for_data_groups(s)
+        segheader = split_for_data_elements(parts[0])
+        current_version = segheader[2].to_i
+        if current_version > ret
+          ret = current_version
+        end
+      end
+      ret
+    end
+
+    def get_supported_tan_mechanisms
+      segs = self.find_segments('HIRMS')
+      segs.each do |s|
+        seg = split_for_data_groups(s).drop(1)
+        seg.each do |segment_data_group|
+          id, msg = segment_data_group.split('::', 2)
+          if id == '3920'
+            match = RE_TANMECH.match(msg)
+            return [match[0]] if match
+          end
+        end
+      end
+      return false
+    end
+    
+    def unwrap(data)
+      match = RE_UNWRAP.match(data)
+      match ? match[1] : data
+    end
+
+    def find_segment(name)
+      find_segments(name, one: true)
+    end
+
+    def find_segments(name, one: false)
+      found = one ? nil : []
+      @segments.each do |segment|
+        spl = segment.split(':', 2)
+        if spl[0] == name
+          return segment if one
+          found << segment
+        end
+      end
+      found
+    end
+    
+    def find_segment_for_reference(name, ref)
+      segs = find_segments(name)
+      segs.each do |seg|
+        segsplit = split_for_data_elements(split_for_data_groups(seg)[0])
+        return seg if segsplit[3] == ref.segmentno.to_s
+      end
+      nil
+    end
+
+    def get_touchdowns(msg)
+      touchdown = {}
+      msg.encrypted_segments.each do |msgseg|
+        seg = find_segment_for_reference('HIRMS', msgseg)
+        next unless seg
+        parts = split_for_data_groups(seg).drop(1)
+        parts.each do |p|
+          psplit = split_for_data_elements(p)
+          next if psplit[0] != '3040'
+          td = psplit[3]
+          next if td.nil?
+          touchdown[msgseg.class] = Helper.fints_unescape(td)
+        end
+      end
+      touchdown
+    end
+  end
+end

data/lib/fints/segment/base_segment.rb

@@ -0,0 +1,30 @@
+class BaseSegment
+  attr_accessor :segmentno
+
+  def initialize(segmentno, data)
+    @segmentno = segmentno
+    @data = data
+  end
+
+  def to_s
+    res = [type, @segmentno, version].join(':')
+    @data.each do |d|
+      res += "+#{d}"
+    end
+    res + "'"
+  end
+
+  protected
+
+  def type
+    raise NotImplementedError
+  end
+  
+  def version
+    raise NotImplementedError
+  end
+
+  def country_code
+    280
+  end
+end

data/lib/fints/segment/hkend.rb

@@ -0,0 +1,22 @@
+module FinTS
+  module Segment
+    # HKEND (Dialogende)
+    # Section C.4.1.2
+    class HKEND < BaseSegment
+      def initialize(segno, dialog_id)
+        data = [dialog_id]
+        super(segno, data)
+      end
+
+      protected
+
+      def type
+        'HKEND'
+      end
+      
+      def version
+        1
+      end
+    end
+  end
+end