pdu_sms 0.1.0

data/lib/pdu_sms/protocol_identifier.rb

@@ -0,0 +1,55 @@
+module PduSms
+  class ProtocolIdentifier
+
+    def initialize(num)
+      if (0..255).include?(num)
+        @pid = num
+      else
+        raise ArgumentError, 'The "num is incorrect'
+      end
+    end
+
+    def ProtocolIdentifier.cut_off_pdu(pdu, part=:all, type=:ms)
+      if type == :ms
+        part_pdu = DestinationAddress.cut_off_pdu(pdu, :tail)
+      elsif type == :sc
+        part_pdu = OriginatingAddress.cut_off_pdu(pdu, :tail)
+      else
+        raise ArgumentError, 'Format "PDU" not valid'
+      end
+      raise ArgumentError, 'Too short packet pdu' if part_pdu.length < 2
+      current = part_pdu[0..1]
+      tail = part_pdu[2..-1]
+      case part
+        when :current then current
+        when :tail then tail
+        else [current,tail]
+      end
+    end
+
+    def ProtocolIdentifier.encode_ms(pid=PROTOCOL_IDENTIFIER)
+      new(pid).freeze
+    end
+
+    def ProtocolIdentifier.decode_ms(pdu)
+      new(ProtocolIdentifier.cut_off_pdu(pdu, :current, :ms).to_i(2)).freeze
+    end
+
+    def ProtocolIdentifier.encode_sc(pid=PROTOCOL_IDENTIFIER)
+      new(pid).freeze
+    end
+
+    def ProtocolIdentifier.decode_sc(pdu)
+      new(ProtocolIdentifier.cut_off_pdu(pdu, :current, :sc).to_i(2)).freeze
+    end
+
+    def get_hex
+      '%02x' % [@pid]
+    end
+
+    def get_pid
+      @pid
+    end
+
+  end
+end

data/lib/pdu_sms/service_center_address.rb

@@ -0,0 +1,74 @@
+module PduSms
+
+  class ServiceCenterAddress < Phone
+
+    def initialize(type, data=false, number_play_identifier=false, type_number=false)
+      if not data
+        @phone_number = ''
+      elsif type == :encode_ms
+        _set_phone_number data, number_play_identifier, type_number
+      elsif type == :decode_ms
+        _set_pdu_hex ServiceCenterAddress.cut_off_pdu(data, part=:current, :ms)
+      elsif type == :encode_sc
+        _set_phone_number data, number_play_identifier, type_number
+      elsif type == :decode_sc
+        _set_pdu_hex ServiceCenterAddress.cut_off_pdu(data, part=:current, :sc)
+      end
+    end
+
+    def ServiceCenterAddress.encode_ms(str_phone_number=false, number_play_identifier=false, type_number=false)
+      new(:encode_ms, str_phone_number, number_play_identifier, type_number).freeze
+    end
+
+    def ServiceCenterAddress.decode_ms(str_pdu)
+      new(:decode_ms, str_pdu).freeze
+    end
+
+    def ServiceCenterAddress.encode_sc(str_phone_number=false, number_play_identifier=false, type_number=false)
+      new(:encode_sc, str_phone_number, number_play_identifier, type_number).freeze
+    end
+
+    def ServiceCenterAddress.decode_sc(str_pdu)
+      new(:decode_sc, str_pdu).freeze
+    end
+
+    def ServiceCenterAddress.cut_off_pdu(pdu, part=:all, type=:sc) # tail current
+      raise ArgumentError, 'The "pdu" is incorrect' if pdu.length < 3
+      sca_length = pdu[0..1].to_i
+      if sca_length > 0
+        current = pdu[0..(sca_length * 2 + 1)]
+        tail = pdu[(sca_length * 2 + 2)..-1]
+      else
+        current = '00'
+        tail = pdu[2..-1]
+      end
+      case part
+        when :current then current
+        when :tail then tail
+        else [current,tail]
+      end
+    end
+
+    def get_hex
+      return '%02x' % 0x00 unless _check_phone?
+      '%s%s' % [_address_length_hex, _get_hex_type_and_phone]
+    end
+
+    private
+
+    def _set_pdu_hex(str_pdu)
+      if str_pdu == '00'
+        @phone_number = ''
+      else
+        _set_hex_type_and_phone(str_pdu[2..-1])
+      end
+      self
+    end
+
+    def _address_length_hex
+      '%02x' % (_get_hex_type_and_phone.size / 2).to_s.to_i(16)
+    end
+
+  end
+end
+

data/lib/pdu_sms/service_center_time_stamp.rb

@@ -0,0 +1,76 @@
+require 'date'
+
+module PduSms
+
+  class ServiceCenterTimeStamp
+
+    def initialize(type, data)
+      if type == :encode_sc
+        @scts = _absolute_timestamp data
+      elsif type == :decode_sc
+        @scts = data
+      else
+        raise ArgumentError, 'The "type" is incorrect'
+      end
+    end
+
+    def ServiceCenterTimeStamp.encode_sc(times)
+      new(:encode_sc, times).freeze
+    end
+
+    def ServiceCenterTimeStamp.decode_sc(pdu_str)
+      scts = ServiceCenterTimeStamp.cut_off_pdu(pdu_str, part=:current, :sс)
+      new(:decode_sc, scts).freeze
+    end
+
+    def ServiceCenterTimeStamp.cut_off_pdu(pdu, part=:all, type=:sс) # tail current
+      part_pdu = DataCodingScheme.cut_off_pdu(pdu, :tail, :sc)
+      raise ArgumentError, 'The "pdu" is incorrect' if part_pdu.length < 14
+      current = part_pdu[0..13]
+      tail = part_pdu[14..-1]
+      case part
+        when :current then current
+        when :tail then tail
+        else [current,tail]
+      end
+    end
+
+    def get_hex
+      @scts
+    end
+
+    def get_time
+      _absolute_pdu @scts
+    end
+
+    private
+
+    def _absolute_timestamp(timestamp)
+      time = Time.at(timestamp).to_datetime
+      date_time = time.strftime('%y%m%d%H%M%S')
+      if time.strftime('%z').to_i >= 0
+        date_time += ('%02x' % (4 * time.strftime('%z')[0..2].to_i + time.strftime('%z')[3..4].to_i / 15).to_s.to_i(16))
+      else
+        tz = '%08b' % ((4 * time.strftime('%z')[0..2].to_i.abs + time.strftime('%z')[3..4].to_i / 15).to_s.to_i(16))
+        tz[0] = ?1
+        date_time += '%02x' % tz.to_i(2)
+      end
+      @scts = encode_bcd(date_time)
+    end
+
+    def _absolute_pdu(vp)
+      ss = decode_bcd(vp)
+      year, month, day, hours, minutes, seconds, zone_quarter = Time.now.year.to_s[0..1] + ss[0..1], ss[2..3], ss[4..5], ss[6..7], ss[8..9], ss[10..11], ss[12..13]
+      tz = '%08b' % zone_quarter
+      if tz[0] == '1'
+        tz[0] = ?0
+        zone = '-'
+      else
+        zone = '+'
+      end
+      zone += '%02i:%02i' % [(tz.to_i(2) / 4), ((tz.to_i(2) % 4) * 15)]
+      Time.new(year, month, day, hours, minutes, seconds, zone).to_i
+    end
+
+  end
+end

data/lib/pdu_sms/user_data.rb

@@ -0,0 +1,276 @@
+module PduSms
+  class UserData
+
+    def initialize(message, coding, ied1: false, ied2: false, ied3: false, udhl: false, iei: false, iedl: false)
+      @coding = _check_coding coding
+      @message = _check_message message, coding, ied1
+      @ied1 = _check_ied1 ied1, coding
+      @ied2 = _check_ied2 ied2
+      @ied3 = _check_ied3 ied3
+      @udhl = udhl ? udhl : _check_udhl(coding, ied1)
+      @iei = iei ? iei : _check_iei(coding, ied1)
+      @iedl = iedl ? iedl : _check_iedl(coding, ied1)
+    end
+
+    def UserData.encode_ms(message, coding=:auto)
+      message_array = [message]
+      coding = is_7bit?(message) ? ALPHABET_7BIT : ALPHABET_16BIT if coding == :auto
+      if coding == ALPHABET_7BIT
+        if message.length > 160
+          message_array = message.scan(/.{1,152}/)
+          ied1 = rand(65536)
+        end
+      elsif coding == ALPHABET_8BIT
+        if message.length > 140
+          message_array = message.scan(/.{1,133}/)
+          ied1 = rand(65536)
+        end
+      elsif coding == ALPHABET_16BIT
+        if message.length > 70
+          message_array = message.scan(/.{1,67}/)
+          ied1 = rand(256)
+        end
+      else
+        raise ArgumentError, 'The "coding" is incorrect'
+      end
+      message_array.collect.each_with_index do |mess, current_message|
+        if message_array.length > 1
+          new(mess, coding, ied1:ied1, ied2:message_array.length, ied3:current_message+1).freeze
+        else
+          new(mess, coding).freeze
+        end
+      end
+    end
+
+    def UserData.decode_ms(pdu_str)
+      header, message = UserData.cut_off_pdu(pdu_str, :all, :ms)
+      dcs = DataCodingScheme.decode_ms(pdu_str)
+      if dcs.alphabet_7bit?
+        coding = dcs.get_alphabet.to_i(2)
+        message = decode_7bit(message)
+      elsif dcs.alphabet_8bit?
+        coding = dcs.get_alphabet.to_i(2)
+        message = decode_8bit(message)
+      elsif dcs.alphabet_16bit?
+        coding = dcs.get_alphabet.to_i(2)
+        message = decode_ucs2(message)
+      else
+        raise ArgumentError, 'The "pdu_str" is incorrect'
+      end
+      if header.empty?
+        new(message, coding).freeze
+      else
+        if header[4..5].to_i(16) == 4
+          new(message, coding, udhl: header[0..1].to_i(16), iei: header[2..3].to_i(16), iedl: header[4..5].to_i(16), ied1: header[6..9].to_i(16), ied2: header[10..11].to_i(16), ied3: header[12..13].to_i(16)).freeze
+        elsif header[4..5].to_i(16) == 3
+          new(message, coding, udhl: header[0..1].to_i(16), iei: header[2..3].to_i(16), iedl: header[4..5].to_i(16), ied1: header[6..7].to_i(16), ied2: header[8..9].to_i(16), ied3: header[10..11].to_i(16)).freeze
+        end
+      end
+    end
+
+    def UserData.encode_sc(message, coding=:auto)
+      UserData.encode_ms(message, coding)
+    end
+
+    def UserData.decode_sc(pdu_str)
+      header, message = UserData.cut_off_pdu(pdu_str, :all, :sc)
+      dcs = DataCodingScheme.decode_sc(pdu_str)
+      if dcs.alphabet_7bit?
+        coding = dcs.get_alphabet.to_i(2)
+        message = decode_7bit(message)
+      elsif dcs.alphabet_8bit?
+        coding = dcs.get_alphabet.to_i(2)
+        message = decode_8bit(message)
+      elsif dcs.alphabet_16bit?
+        coding = dcs.get_alphabet.to_i(2)
+        message = decode_ucs2(message)
+      else
+        raise ArgumentError, 'The "pdu_str" is incorrect'
+      end
+      if header.empty?
+        new(message, coding).freeze
+      else
+        if header[4..5].to_i(16) == 4
+          new(message, coding, udhl: header[0..1].to_i(16), iei: header[2..3].to_i(16), iedl: header[4..5].to_i(16), ied1: header[6..9].to_i(16), ied2: header[10..11].to_i(16), ied3: header[12..13].to_i(16)).freeze
+        elsif header[4..5].to_i(16) == 3
+          new(message, coding, udhl: header[0..1].to_i(16), iei: header[2..3].to_i(16), iedl: header[4..5].to_i(16), ied1: header[6..7].to_i(16), ied2: header[8..9].to_i(16), ied3: header[10..11].to_i(16)).freeze
+        end
+      end
+    end
+
+    def UserData.cut_off_pdu(pdu, part=:all, type=:ms) # tail current
+      part_pdu = UserDataLength.cut_off_pdu(pdu, :tail, type)
+      pdu_type = PDUType.decode(pdu)
+      raise ArgumentError, 'The "pdu_str" is incorrect' if part_pdu.length < 2
+      if pdu_type.user_data_header_included?
+        current = part_pdu[0..(part_pdu[0..1].to_i(16) * 2 + 1)]
+        tail = part_pdu[(part_pdu[0..1].to_i(16) * 2 + 2)..-1]
+      else
+        current = ''
+        tail = part_pdu[0..-1]
+      end
+      case part
+        when :current then current
+        when :tail then tail
+        else [current,tail]
+      end
+    end
+
+    def get_message
+      @message
+    end
+
+    def get_coding
+      @coding
+    end
+
+    def is_udh?
+      @ied1 ? true : false
+    end
+
+    def get_udh
+      if is_udh?
+        USER_DATA_HEADER_INCLUDED_1
+      else
+        USER_DATA_HEADER_INCLUDED_0
+      end
+    end
+
+    def get_ied1
+      return '' unless @ied1
+      case @coding
+        when ALPHABET_7BIT then '%04x' % @ied1
+        when ALPHABET_8BIT then '%04x' % @ied1
+        when ALPHABET_16BIT then '%02x' % @ied1
+        else raise 'unknown encoding'
+      end
+    end
+
+    def get_ied2
+      return '' unless @ied2
+      '%02x' % @ied2
+    end
+
+    def get_ied3
+      return '' unless @ied3
+      '%02x' % @ied3
+    end
+
+    def get_udhl
+      return '' unless @udhl
+      '%02x' % @udhl
+    end
+
+    def get_iei
+      return '' unless @iei
+      '%02x' % @iei
+    end
+
+    def get_iedl
+      return '' unless @iedl
+      '%02x' % @iedl
+    end
+
+    def get_hex
+      message = case @coding
+        when ALPHABET_7BIT
+          encode_7bit(@message)
+        when ALPHABET_8BIT
+          encode_8bit(@message)
+        when ALPHABET_16BIT
+          encode_ucs2(@message)
+      end
+      '%s%s%s%s%s%s%s' % [get_udhl, get_iei, get_iedl, get_ied1, get_ied2, get_ied3, message]
+    end
+
+    private
+
+    def _check_message(message, coding, ied1=false)
+      raise ArgumentError, 'The "coding" is incorrect' unless message.class == String and message.encoding.to_s == 'UTF-8'
+      case coding
+        when ALPHABET_7BIT
+          raise ArgumentError, 'The message is too long' if (ied1 and message.length > 152) or message.length > 160
+        when ALPHABET_8BIT
+          raise ArgumentError, 'The message is too long' if (ied1 and message.length > 133) or message.length > 140
+        when ALPHABET_16BIT
+          raise ArgumentError, 'The message is too long' if (ied1 and message.length > 67) or message.length > 70
+        else
+          raise ArgumentError, 'Unknown encoding'
+      end
+      message
+    end
+
+    def _check_coding(coding)
+      raise ArgumentError, 'Unknown encoding' unless (ALPHABET_7BIT..ALPHABET_16BIT).include?(coding)
+      coding
+    end
+
+    def _check_ied1(ied1, coding)
+      return false unless ied1
+      case coding
+        when ALPHABET_7BIT
+          raise ArgumentError, 'The message is too long'  unless (0..65535).include?(ied1)
+        when ALPHABET_8BIT
+          raise ArgumentError, 'The message is too long'  unless (0..65535).include?(ied1)
+        when ALPHABET_16BIT
+          raise ArgumentError, 'The message is too long'  unless (0..255).include?(ied1)
+        else
+          false
+      end
+      ied1
+    end
+
+    def _check_ied2(ied2)
+      raise ArgumentError, 'The "coding" is incorrect' unless ied2 == false or (0..255).include?(ied2)
+      ied2
+    end
+
+    def _check_ied3(ied3)
+      raise ArgumentError, 'The "coding" is incorrect' unless ied3 == false or (0..255).include?(ied3)
+      ied3
+    end
+
+    def _check_udhl(coding, ied1)
+      return false unless ied1
+      case coding
+        when ALPHABET_7BIT
+          0x06
+        when ALPHABET_8BIT
+          0x06
+        when ALPHABET_16BIT
+          0x05
+        else
+          false
+      end
+    end
+
+    def _check_iei(coding, ied1)
+      return false unless ied1
+      case coding
+        when ALPHABET_7BIT
+          0x08
+        when ALPHABET_8BIT
+          0x08
+        when ALPHABET_16BIT
+          0x00
+        else
+          false
+      end
+    end
+
+    def _check_iedl(coding, ied1)
+      return false unless ied1
+      case coding
+        when ALPHABET_7BIT
+          0x04
+        when ALPHABET_8BIT
+          0x04
+        when ALPHABET_16BIT
+          0x03
+        else
+          false
+      end
+    end
+
+  end
+end