da_funk 0.4.4

data/lib/iso8583/fields.rb

@@ -0,0 +1,171 @@
+module ISO8583
+
+  # This file contains a number of preinstantiated Field definitions. You
+  # will probably need to create own fields in your implementation, please
+  # see Field and Codec for further discussion on how to do this.
+  # The fields currently available are those necessary to implement the 
+  # Berlin Groups Authorization Spec.
+  #
+  # The following fields are available:
+  #
+  # [+LL+]           special form to de/encode variable length indicators, two bytes ASCII numerals
+  # [+LLL+]          special form to de/encode variable length indicators, two bytes ASCII numerals
+  # [+LL_BCD+]       special form to de/encode variable length indicators, two BCD digits
+  # [+LLVAR_N+]      two byte variable length ASCII numeral, payload ASCII numerals
+  # [+LLLVAR_N+]     three byte variable length ASCII numeral, payload ASCII numerals
+  # [+LLVAR_Z+]      two byte variable length ASCII numeral, payload Track2 data 
+  # [+LLVAR_AN+]    two byte variable length ASCII numeral, payload ASCII
+  # [+LLVAR_ANS+]    two byte variable length ASCII numeral, payload ASCII+special
+  # [+LLLVAR_AN+]   three byte variable length ASCII numeral, payload ASCII
+  # [+LLLVAR_ANS+]   three byte variable length ASCII numeral, payload ASCII+special
+  # [+LLVAR_B+]      Two byte variable length binary payload
+  # [+LLLVAR_B+]     Three byte variable length binary payload
+  # [+A+]            fixed length letters, represented in ASCII
+  # [+N+]            fixed lengh numerals, repesented in ASCII, padding right justified using zeros
+  # [+AN+]          fixed lengh ASCII [A-Za-z0-9], padding left justified using spaces.
+  # [+ANP+]          fixed lengh ASCII [A-Za-z0-9] and space, padding left, spaces
+  # [+ANS+]          fixed length ASCII  [\x20-\x7E], padding left, spaces
+  # [+B+]            binary data, padding left using nulls (0x00)
+  # [+MMDDhhmmss+]   Date, formatted as described in ASCII numerals
+  # [+YYMMDDhhmmss+] Date, formatted as named in ASCII numerals
+  # [+YYMM+]         Expiration Date, formatted as named in ASCII numerals
+  # [+Hhmmss+]       Date, formatted in ASCII hhmmss
+
+
+  # Special form to de/encode variable length indicators, two bytes ASCII numerals 
+  LL         = Field.new
+  LL.name    = "LL"
+  LL.length  = 2
+  LL.codec   = ASCII_Number
+  LL.padding = lambda {|value|
+    sprintf("%02d", value)
+  }
+  # Special form to de/encode variable length indicators, three bytes ASCII numerals
+  LLL         = Field.new
+  LLL.name    = "LLL"
+  LLL.length  = 3
+  LLL.codec   = ASCII_Number
+  LLL.padding = lambda {|value|
+    sprintf("%03d", value)
+  }
+
+  LL_BCD        = BCDField.new
+  LL_BCD.length = 2
+  LL_BCD.codec  = Packed_Number
+
+  # Two byte variable length ASCII numeral, payload ASCII numerals
+  LLVAR_N        = Field.new
+  LLVAR_N.length = LL
+  LLVAR_N.codec  = ASCII_Number
+
+  # Three byte variable length ASCII numeral, payload ASCII numerals
+  LLLVAR_N        = Field.new
+  LLLVAR_N.length = LLL
+  LLLVAR_N.codec  = ASCII_Number
+
+  # Two byte variable length ASCII numeral, payload Track2 data
+  LLVAR_Z         = Field.new
+  LLVAR_Z.length  = LL
+  LLVAR_Z.codec   = Track2
+
+  # Two byte variable length ASCII numeral, payload ASCII, fixed length, zeropadded (right)
+  LLVAR_AN        = Field.new
+  LLVAR_AN.length = LL
+  LLVAR_AN.codec  = AN_Codec
+
+  # Two byte variable length ASCII numeral, payload ASCII+special
+  LLVAR_ANS        = Field.new
+  LLVAR_ANS.length = LL
+  LLVAR_ANS.codec  = ANS_Codec
+
+  # Three byte variable length ASCII numeral, payload ASCII, fixed length, zeropadded (right)
+  LLLVAR_AN        = Field.new
+  LLLVAR_AN.length = LLL
+  LLLVAR_AN.codec  = AN_Codec
+
+  # Three byte variable length ASCII numeral, payload ASCII+special
+  LLLVAR_ANS        = Field.new
+  LLLVAR_ANS.length = LLL
+  LLLVAR_ANS.codec  = ANS_Codec
+
+  # Two byte variable length binary payload
+  LLVAR_B        = Field.new
+  LLVAR_B.length = LL
+  LLVAR_B.codec  = Null_Codec
+
+
+  # Three byte variable length binary payload
+  LLLVAR_B        = Field.new
+  LLLVAR_B.length = LLL
+  LLLVAR_B.codec  = Null_Codec
+
+  # Fixed lengh numerals, repesented in ASCII, padding right justified using zeros
+  N = Field.new
+  N.codec = ASCII_Number
+  N.padding = lambda {|val, len|
+    sprintf("%0#{len}d", val)
+  }
+
+  N_BCD = BCDField.new
+  N_BCD.codec = Packed_Number
+
+  PADDING_LEFT_JUSTIFIED_SPACES = lambda {|val, len|
+    sprintf "%-#{len}s", val
+  }
+
+  # Fixed length ASCII letters [A-Za-z]
+  A = Field.new
+  A.codec = A_Codec
+
+  # Fixed lengh ASCII [A-Za-z0-9], padding left justified using spaces.
+  AN = Field.new
+  AN.codec = AN_Codec
+  AN.padding = PADDING_LEFT_JUSTIFIED_SPACES
+
+  # Fixed lengh ASCII [A-Za-z0-9] and space, padding left, spaces
+  ANP = Field.new
+  ANP.codec = ANP_Codec
+  ANP.padding = PADDING_LEFT_JUSTIFIED_SPACES
+
+  # Fixed length ASCII  [\x20-\x7E], padding left, spaces
+  ANS = Field.new
+  ANS.codec = ANS_Codec
+  ANS.padding = PADDING_LEFT_JUSTIFIED_SPACES
+
+  # Binary data, padding left using nulls (0x00)
+  B = Field.new
+  B.codec = Null_Codec
+  B.padding = lambda {|val, len|
+    while val.length < len
+      val = val + "\000"
+    end
+    val
+  }
+
+  # Date, formatted as described in ASCII numerals
+  MMDDhhmmss        = Field.new
+  MMDDhhmmss.codec  = MMDDhhmmssCodec
+  MMDDhhmmss.length = 10
+
+  #Date, formatted as described in ASCII numerals
+  YYMMDDhhmmss        = Field.new
+  YYMMDDhhmmss.codec  = YYMMDDhhmmssCodec
+  YYMMDDhhmmss.length = 12
+
+  #Date, formatted as described in ASCII numerals
+  YYMM        = Field.new
+  YYMM.codec  = YYMMCodec
+  YYMM.length = 4
+  
+  Hhmmss        = Field.new
+  Hhmmss.codec  = HhmmssCodec
+  Hhmmss.length = 6
+
+  MMDD        = Field.new
+  MMDD.codec  = MMDDCodec
+  MMDD.length = 4
+
+  YYMMDD        = Field.new
+  YYMMDD.codec  = YYMMDDCodec
+  YYMMDD.length = 6
+end

data/lib/iso8583/message.rb

@@ -0,0 +1,455 @@
+
+module ISO8583
+
+  # The class `Message` defines functionality to describe classes
+  # representing different type of messages, or message families.
+  # A message family consists of a number of possible message types that
+  # are allowed, and a way of naming and encoding the bitmaps allowed in
+  # the messages.
+  #
+  # To create your own message, start by subclassing Message:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #    end
+  #
+  # the subtyped message should be told how the MTI is encoded:
+  #
+  #    class MyMessage < Message
+  #       mti_format N, :length => 4
+  #       (...)
+  #    end
+  #
+  # `N` above is an instance of Field which encodes numbers into their
+  # ASCII representations in  a fixed length field. The option `length=>4`
+  # indicates the length of the fixed field.
+  #
+  # Next, the allowed message types are specified:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #       mti 1100, "Authorization Request Acquirer Gateway"
+  #       mti 1110, "Authorization Request Response Issuer Gateway"
+  #       (...)
+  #    end
+  #
+  # This basically defines to message types, 1100 and 1110 which may
+  # be accessed later either via their name or value:
+  #
+  #    mes = MyMessage.new 1100
+  #
+  # or
+  #    mes = MyMessage.new "Authorization Request Acquirer Gateway"
+  #
+  # or
+  #    mes = MyMessage.new
+  #    mes.mti = 1110 # or Auth. Req. Acq. Gateway ...
+  #
+  # Finally the allowed bitmaps, their names and the encoding rules are
+  # specified:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #       bmp  2, "Primary Account Number (PAN)",               LLVAR_N,   :max    => 19
+  #       bmp  3,  "Processing Code",                           N,         :length =>  6
+  #       bmp  4,  "Amount (Transaction)",                      N,         :length => 12
+  #       bmp  6,  "Amount, Cardholder Billing" ,               N,         :length => 12
+  #       (...)
+  #    end
+  #
+  # The example above defines four bitmaps (2,3,4 and 6), and provides
+  # their bitmap number and description. The PAN field is variable length
+  # encoded (LL length indicator, ASCII, contents numeric, ASCII) and the
+  # maximum length of the field is limited to 19 using options.
+  #
+  # The other fields are fixed length numeric ASCII fields (the length of the fields is
+  # indicated by the `:length` options.)
+  #
+  # This message may be used as follows in order to interpret a received message.:
+  #
+  #    mes = MyMessage.parse inputData
+  #    puts mes[2] # prints the PAN from the message.
+  #
+  # Constructing own messages works as follows:
+  #
+  #     mes = MyMessage.new 1100 
+  #     mes[2]= 474747474747
+  #     # Alternatively
+  #     mes["Primary Account Number (PAN)"]= 4747474747
+  #     mes[3] = 1234 # padding is added by the Field en/decoder
+  #     mes["Amount (Transaction)"] = 100
+  #     mes[6] = 200
+  #
+  # the convenience method bmp_alias may be used in defining the class in
+  # order to provide direct access to fields using methods:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #       bmp  2, "Primary Account Number (PAN)",               LLVAR_N,   :max    => 19
+  #       (...)
+  #       bmp_alias 2, :pan
+  #    end
+  #
+  # this allows accessing fields in the following manner:
+  #
+  #     mes = MyMessage.new 1100
+  #     mes.pan = 474747474747
+  #     puts mes.pan
+  #     # Identical functionality to:
+  #     mes[2]= 474747474747
+  #     # or:
+  #     mes["Primary Account Number (PAN)"]= 4747474747
+  #
+  # Most of the work in implementing a new set of message type lays in
+  # figuring out the correct fields to use defining the Message class via
+  # bmp.
+  #    
+  class Message
+
+    # The value of the MTI (Message Type Indicator) of this message.
+    attr_reader :mti, :size_endianness
+
+    # Instantiate a new instance of this type of Message
+    # optionally specifying an mti. 
+    def initialize(mti = nil, size_endianness = :little, format = :ascii)
+      # values is an internal field used to collect all the
+      # bmp number | bmp name | field en/decoders | values
+      # which are set in this message.
+      @values = {}
+      @size_endianness = size_endianness
+      @format = :ascii
+      self.mti = mti if mti
+    end
+
+    def build
+      message = self.to_b
+      message_size = self.size(message)
+
+      if size_endianness == :little
+        binary_size = [message_size].pack("s")
+      elsif size_endianness == :big
+        binary_size = [message_size].pack("s>")
+      else
+        raise ISO8583Exception.new "size endianness no recognized"
+      end
+
+      binary_size + message
+    end
+
+    def size(message)
+      case format
+      when :ascii
+        message.size
+      when :bcd
+        (message.size / 2)
+      else
+        raise ISO8583Exception.new "format no recognized"
+      end
+    end
+
+    # Set the mti of the Message using either the actual value
+    # or the name of the message type that was defined using
+    # Message.mti
+    #
+    # === Example
+    #    class MyMessage < Message
+    #      (...)
+    #      mti 1100, "Authorization Request Acquirer Gateway"
+    #    end
+    #
+    #    mes = MyMessage.new
+    #    mes.mti = 1100 # or mes.mti = "Authorization Request Acquirer Gateway"
+    def mti=(value)
+      num, name = _get_mti_definition(value)
+      @mti = num
+    end
+
+    # Set a field in this message, `key` is either the
+    # bmp number or it's name.
+    # ===Example
+    #
+    #    mes = BlaBlaMessage.new
+    #    mes[2]=47474747                          # bmp 2 is generally the PAN
+    #    mes["Primary Account Number"]=47474747   # if thats what you called the field in Message.bmp.
+    def []=(key, value)
+      bmp_def              = _get_definition key
+      bmp_def.value        = value
+      @values[bmp_def.bmp] = bmp_def 
+    end
+
+    # Retrieve the decoded value of the contents of a bitmap
+    # described either by the bitmap number or name.
+    #
+    # ===Example
+    #
+    #    mes = BlaBlaMessage.parse someMessageBytes
+    #    mes[2] # bmp 2 is generally the PAN
+    #    mes["Primary Account Number"] # if thats what you called the field in Message.bmp.
+    def [](key)
+      bmp_def = _get_definition key
+      bmp     = @values[bmp_def.bmp]
+      bmp ? bmp.value : nil
+    end
+
+    # Retrieve the byte representation of the bitmap.
+    def to_b
+      raise ISO8583Exception.new "no MTI set!" unless mti
+      mti_enc = self.class._mti_format.encode(mti)
+      mti_enc << _body.join
+
+      # length = mti_enc.length.to_s(16).rjust(4, '0')
+
+      length_dec = [mti_enc.length]
+      length_hex = length_dec.pack("s>")
+      mti_enc = length_hex + mti_enc
+
+      return mti_enc
+    end
+
+    # Returns a nicely formatted representation of this
+    # message.
+    def to_s
+      _mti_name = _get_mti_definition(mti)[1]
+      str = "MTI:#{mti} (#{_mti_name})\n\n"
+      _max = @values.values.max {|a,b|
+        a.name.length <=> b.name.length
+      }
+      _max_name = _max.name.length
+
+      @values.keys.sort.each{|bmp_num|
+        _bmp = @values[bmp_num]
+        str += ("%03d %#{_max_name}s : %s\n" % [bmp_num, _bmp.name, _bmp.value])
+      }
+      str
+    end
+
+
+    # METHODS starting with an underscore are meant for
+    # internal use only ...
+
+    # Returns an array of two byte arrays:
+    # [bitmap_bytes, message_bytes]
+    def _body
+      bitmap  = Bitmap.new
+      message = ""
+      @values.keys.sort.each do |bmp_num|
+        bitmap.set(bmp_num)
+        enc_value = @values[bmp_num].encode
+        message << enc_value
+      end
+      [ bitmap.to_s.to_i(2).to_s(16).upcase, message ]
+    end
+
+    def _get_definition(key) #:nodoc:
+      b = self.class._definitions[key]
+      unless b
+        raise ISO8583Exception.new "no definition for field: #{key}"
+      end
+      b.dup
+    end
+
+    # return [mti_num, mti_value] for key being either
+    # mti_num or mti_value
+    def _get_mti_definition(key)
+      num_hash,name_hash = self.class._mti_definitions
+      if num_hash[key]
+        [key, num_hash[key]]
+      elsif name_hash[key]
+        [name_hash[key], key]
+      else
+        raise ISO8583Exception.new("MTI: #{key} not allowed!")
+      end
+    end
+
+    class << self
+
+      # Defines how the message type indicator is encoded into bytes. 
+      # ===Params:
+      # * field    : the decoder/encoder for the MTI
+      # * opts     : the options to pass to this field
+      #
+      # === Example
+      #     class MyMessage < Message
+      #       mti_format N, :length =>4
+      #       (...)
+      #     end
+      #
+      # encodes the mti of this message using the `N` field (fixed
+      # length, plain ASCII) and sets the fixed lengh to 4 bytes.
+      #
+      # See also: mti
+      def mti_format(field, opts)
+        f = field.dup
+        _handle_opts(f, opts)
+        @mti_format = f
+      end
+
+      # Defines the message types allowed for this type of message and
+      # gives them names
+      # 
+      # === Example
+      #    class MyMessage < Message
+      #      (...)
+      #      mti 1100, "Authorization Request Acquirer Gateway"
+      #    end
+      #
+      #    mes = MyMessage.new
+      #    mes.mti = 1100 # or mes.mti = "Authorization Request Acquirer Gateway"
+      #
+      # See Also: mti_format
+      def mti(value, name)
+        @mtis_v ||= {}
+        @mtis_n ||= {}
+        @mtis_v[value] = name
+        @mtis_n[name]  = value
+      end
+
+      # Define a bitmap in the message
+      # ===Params:
+      # * bmp   : bitmap number
+      # * name  : human readable form
+      # * field : field for encoding/decoding
+      # * opts  : options to pass to the field, e.g. length for fxed len fields.
+      #
+      # ===Example
+      #
+      #    class MyMessage < Message
+      #      bmp 2, "PAN", LLVAR_N, :max =>19
+      #      (...)
+      #    end
+      #
+      # creates a class MyMessage that allows for a bitmap 2 which 
+      # is named "PAN" and encoded by an LLVAR_N Field. The maximum 
+      # length of the value is 19. This class may be used as follows:
+      #
+      #    mes = MyMessage.new
+      #    mes[2] = 474747474747 # or mes["PAN"] = 4747474747
+      #
+      def bmp(bmp, name, field, opts = nil)
+        @defs ||= {}
+
+        field = field.dup
+        field.name = name
+        field.bmp  = bmp
+        _handle_opts(field, opts) if opts
+
+        bmp_def = ISO8583::BMP.new bmp, name, field
+
+        @defs[bmp]  = bmp_def
+        @defs[name] = bmp_def
+      end
+
+      # Create an alias to access bitmaps directly using a method.
+      # Example:
+      #     class MyMessage < Message
+      #         (...)
+      #         bmp 2, "PAN", LLVAR_N
+      #         (...)
+      #         bmp_alias 2, :pan
+      #     end #class
+      #
+      # would allow you to access the PAN like this:
+      #
+      #    mes.pan = 1234
+      #    puts mes.pan
+      #
+      # instead of:
+      #
+      #    mes[2] = 1234
+      #
+      def bmp_alias(bmp, aliaz)
+        define_method (aliaz) {
+          bmp_ = @values[bmp]
+          bmp_ ? bmp_.value : nil
+        }
+
+        define_method ("#{aliaz}=") {|value|
+          self[bmp] = value
+          # bmp_def = _get_definition(bmp)
+          # bmp_def.value= value
+          # @values[bmp] = bmp_def
+        }
+      end
+
+      # Parse the bytes `str` returning a message of the defined type.
+      def parse(str)
+        message = self.new
+        message.mti, rest = _mti_format.parse(str)
+
+        bmp,rest = Bitmap.parse(rest)
+        bmp.each {|bit|
+          if bit > 1 && bit <= 128
+            bmp_def      = _definitions[bit]
+            value, rest  = bmp_def.field.parse(rest)
+            message[bit] = value
+          end
+        }
+        message
+      end
+
+      # access the mti definitions applicable to the Message
+      #
+      # returns a pair of hashes containing:
+      #
+      # mti_value => mti_name
+      #
+      # mti_name => mti_value
+      #
+      def _mti_definitions
+        [@mtis_v, @mtis_n]
+      end
+
+      # Access the field definitions of this class, this is a
+      # hash containing [bmp_number, BMP] and [bitmap_name, BMP]
+      # pairs.
+      #
+      def _definitions
+        @defs
+      end
+
+      # Returns the field definition to format the mti.
+      def _mti_format
+        @mti_format
+      end
+
+
+
+      # METHODS starting with an underscore are meant for
+      # internal use only ...
+
+      # Modifies the field definitions of the fields passed
+      # in through the `bmp` and `mti_format` class methods.
+      #
+      def _handle_opts(field, opts)
+        opts.each {|key, value|
+          key = (key.to_s+"=").to_sym
+          if field.respond_to?(key)
+            field.send(key, value)
+          else
+            warn "unknown option #{key} for #{field.name}"
+          end
+        }
+      end
+    end
+  end
+
+  # Internal class used to tie together name, bitmap number, field en/decoder
+  # and the value of the corresponding field
+  class BMP
+    attr_accessor :bmp
+    attr_accessor :name
+    attr_accessor :field
+    attr_accessor :value
+
+    def initialize(bmp, name, field)
+      @bmp   = bmp
+      @name  = name
+      @field = field
+    end
+
+    def encode
+      field.encode(value)
+    end
+  end
+end
+

data/lib/iso8583/util.rb

@@ -0,0 +1,91 @@
+
+module ISO8583
+
+  # general utilities
+  #
+  # Convert a String of bytes to their hex representation
+  # E.g.:
+  #
+  #    b2hex "\x12\x34\xab" => "1234AB"
+  #
+  def b2hex(byte_string)
+    r = byte_string.unpack("H*")[0]
+    r.length > 1 ? r : "  "
+  end
+
+  #
+  # Convert a String containing hex data to
+  # a String containing the corresponding bytes:
+  # 
+  #   hex2b "abcd12" => "\xa\cd\12"
+  #
+  def hex2b(hex_string)
+    string = hex_string.gsub(/\s+/, "")
+    raise ISO8583Exception.new("Invalid Hex chars: #{hex_string}") unless string =~ /^[A-Fa-f0-9]*$/
+    raise ISO8583Exception.new("Uneven number of Hex chars #{hex_string}") unless ( (string.length % 2) == 0)
+    [string].pack("H*")
+  end
+
+  def _conv(str, mapping)
+    _str = ""
+    str.each_byte{|byte|
+      _str << mapping[byte]
+    }
+    _str
+  end
+
+  #
+  # Convert a String of ASCII chars to EBCDIC
+  #
+  def ascii2ebcdic(ascii)
+    _conv(ascii, US_ASCII2IBM037)
+  end
+
+  #
+  # Convert an EBCDIC String to ASCII
+  #
+  def ebcdic2ascii(ebcdic)
+    _conv(ebcdic, IBM0372US_ASCII)
+  end
+
+  # The charsets supported by iconv aren't guranteed. At the very least MACs don't support ebcdic,
+  # so providing rudimentary mappings here.
+  US_ASCII2IBM037 = [
+    0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f, 0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
+    0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26, 0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f,
+    0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d, 0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61,
+    0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f,
+    0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6,
+    0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, 0xe8, 0xe9, 0xba, 0xe0, 0xbb, 0xb0, 0x6d,
+    0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,
+    0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7, 0xa8, 0xa9, 0xc0, 0x4f, 0xd0, 0xa1, 0x07,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+  ]
+
+  IBM0372US_ASCII = [
+    0x00, 0x01, 0x02, 0x03, 0x3f, 0x09, 0x3f, 0x7f, 0x3f, 0x3f, 0x3f, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
+    0x10, 0x11, 0x12, 0x13, 0x3f, 0x0a, 0x08, 0x3f, 0x18, 0x19, 0x3f, 0x3f, 0x1c, 0x1d, 0x1e, 0x1f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x0a, 0x17, 0x1b, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x05, 0x06, 0x07,
+    0x3f, 0x3f, 0x16, 0x3f, 0x3f, 0x3f, 0x3f, 0x04, 0x3f, 0x3f, 0x3f, 0x3f, 0x14, 0x15, 0x3f, 0x1a,
+    0x20, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x2e, 0x3c, 0x28, 0x2b, 0x7c,
+    0x26, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x3f,
+    0x2d, 0x2f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x2c, 0x25, 0x5f, 0x3e, 0x3f,
+    0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x60, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22,
+    0x3f, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70, 0x71, 0x72, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x3f, 0x7e, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x5e, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x5b, 0x5d, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x7b, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x7d, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50, 0x51, 0x52, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x5c, 0x3f, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+    0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+  ]
+
+end