.net平台手机管理软件开发(10)—— 短信部分 VB.NET解码PDU

(十) 短信部分——VB.NET 解码PDU
早在2004 1 月份我就开始初步的研究PDU 的编码解码原理,对于PDU 也有比较深刻的认识。随后按照3GPP 协议写了一个PDU Decoder ,后来写成PDU Decoder 文章发表在CodeProject 上面,有几个好心的外国网友给我指出了一些BUG ,现在成了一个比较完善的Decoder 。具体的源码在 http://blog.csdn.net/hesicong/archive/2004/09/24/115356.aspx 。本文讲解编码器的构成以及我所使用的解码方法及技巧。
解码器的构成
NameSpace SMS
              Decoder
MustInheritClass   SMSBase
Class                   EMS_RECEIVED
Class                   EMS_SUBMIT
Class                   SMS_RECEIVED
Class                   SMS_STATUS_REPORT
Class                   SMS_SUBMIT
Class                   PDUDecoder
SMSBase 部分
SMSBase 类是必须继承类,它包含了PDU 的基本结构以及一些相关辅助函数,是最基本的类,其他的类都是从SMSBase 继承的。通过SMSBase Shared 函数GetSMSType 可以得到PDU 的类型,从而确定使用的Class
SMSBase 包含了所有短信类型所共有的基本信息部分以及一个指示短信类型的枚举SMSType ,继承的类扩展其特有的基本信息部分。
        Public SCAddressLength As Byte 'Service Center Address length
        Public SCAddressType As Byte   'Service Center Type[See GSM 03.40]

        Public SCAddressValue As String 'Service Center nuber

        Public FirstOctet As Byte     'See GSM 03.40

        Public TP_PID As Byte
        Public TP_DCS As Byte
        Public TP_UDL As Byte
        Public TP_UD As String
        Public Text As String
        Public Type As SMSType
        Public UserData As String

        Public Enum SMSType
          SMS_RECEIVED = 0
          SMS_STATUS_REPORT = 2
          SMS_SUBMIT = 1
          EMS_RECEIVED = 64 'It is "Reserved" on my phone??
          EMS_SUBMIT = 65
  End Enum

SMSBase 中定义了一个必须重写的过程GetOrignalData ,其参数为PDUCode ,目的是为了得到PDU 的基本信息。不同的短信类型具有不同的解码过程,所以作为一个必须重写的函数。
Public MustOverride Sub GetOrignalData(ByVal PDUCode As String)

SMSBase 中还有一系列的辅助函数,具体实现方法见源代码:
处理PDU 代码的:
处理PDU 代码我运用了自称为“按需裁减”的技巧,就是把需要的数据提取出来解码,然后从原PDUCode 中删除这一部分,在传递给下一个函数处理。这样就不用考略具体的偏移量,简化了操作,增强了适应性。为了能够减少返回处理过的PDUCode 麻烦,我使用了ByRef ,执行过程以后PDUCode 就自动被裁减了。
'Get a byte from PDU string
Shared Function GetByte(ByRef PDUCode As String) As Byte
'Get a string of certain length
Shared Function GetString(ByRef PDUCode As String, ByVal Length As Integer) As String
'Get date from SCTS format
Shared Function GetDate(ByRef SCTS As String) As Date
      'Swap two bit
      Shared Function Swap(ByRef TwoBitStr As String) As String
      'Get phone address
      Shared Function GetAddress(ByRef Address As String) As String
      Shared Function GetSMSType(ByVal PDUCode As String) As SMSBase.SMSType
TP-UD 解码部分:
    TP-UD 的解码的任务主要集中在Unicode 的解码和7BitCode 的解码。其中Unicode 的解码很方便,只需要将两个字节的PDUCode 通过Val 函数转换成为数字,在通过ChrW 函数即可得到。
    7BitCode 就显得比较难,下面以Test 四个字符简单介绍其基本原理,具体的编码方式请参考相关资料。
        Byte1     11010100     0xD4
        Byte2     11110010     0xF2
        Byte3     10011100     0x9C
        Byte4     00001110     0x0E
        注:各字符二进制代码:
        T 1010100   e 1100101   s 1110011   t 1110100
    从这个例子可以看出一个Byte 包含了一个字符的ASCII 码的二进制部分及后续字符的二进制部分的低位。这样8 个字符可以压缩成为7 Byte SMS 140Byte TP-UD 长度就可以容纳160 个英文字母。
通过观察可以看出,只要我们从后到前把所有的二进制代码拼接到一块,就能够方便的处理,上面例子通过拼接后得到:
00001110100111001111001011010100
我们可以直接通过从后往前的按7 个一组的原则进行截取在处理就可以得到解码后的代码。为了编程的方便,我设计了一个简单易懂的解码过程,比起通过做乘除法来进行运算的简单,但最终效率不及它。但我想在普通场合应用也绰绰有余了。
1、 Decode7Bit 得到一个PDU TP-UD 部分
2、 InvertHexString 反转十六进制代码:例如123456= 563412
3、 Binary 字符串得到反转后的十六进制代码的二进制表示。注意这里依然使用字符串来表示二进制,为了便于“拼接”和“切割”
4、 根据charCount 所提供的字符数(来自TP_UDL )按7 个一组从字符串位往前截取,并用Chr 函数转换成ASCII 码。
以下是一些函数的声明部分,具体函数请参见Blog 内的PDUDecoder
      'Deoce a unicode string
      Shared Function DecodeUnicode(ByVal strUnicode As String) As String
      'Decode 7bit to English
Shared Function InvertHexString(ByVal HexString As String) As String
Shared Function ByteToBinary(ByVal Dec As Byte) As String
Shared Function BinaryToInt(ByVal Binary As String) As Integer
Shared Function Decode7Bit(ByVal str7BitCode As String, ByVal charCount As Integer) As String

SMS_SUBMIT SMS_RECEIVED SMS_STATUS_REPORT
由于SMS_RECEIVED SMS_STATUS_REPORT SMS_SUBMIT 比较相似,所以我重点讲讲SMS_SUBMIT
当用SMSBase GetSMSType 确定一个PDUCode SMS_SUBMIT 时,就可以声明一个SMS_SUBMIT 类的实例,通过传递此PDUCode 作为构造函数的参数。构造函数立即调用GetOrignalData 函数解码。
参考协议知道SMS_SUBMIT SMSBase 多出以下部分:
Public TP_MR As Byte
Public DesAddressLength As Byte
Public DesAddressType As Byte
Public DesAddressValue As String
Public TP_VP As Byte
参考协议我们可以很方便的得到GetOrignalData 函数的实现:
  Public Overrides Sub GetOrignalData(ByVal PDUCode As String)
    SCAddressLength = GetByte(PDUCode)
    SCAddressType = GetByte(PDUCode)
    SCAddressValue = GetAddress((GetString(PDUCode, (SCAddressLength - 1) * 2)))
    FirstOctet = GetByte(PDUCode)

    TP_MR = GetByte(PDUCode)

    DesAddressLength = GetByte(PDUCode)
    DesAddressType = GetByte(PDUCode)
    DesAddressLength += DesAddressLength Mod 2
    DesAddressValue = GetAddress((GetString(PDUCode, DesAddressLength)))

    TP_PID = GetByte(PDUCode)
    TP_DCS = GetByte(PDUCode)
    TP_VP = GetByte(PDUCode)
    TP_UDL = GetByte(PDUCode)
    TP_UD = GetString(PDUCode, TP_UDL * 2)
End Sub
这就完成了整个解码过程,通过SMSBase 的巧妙设计,此解码过程显得简单方便。

EMS_SUBMIT EMS_RECEIVED
对于EMS (增强型短信),其基本结构和SMS 类似,主要的区别就是Information Element(IE) 。所以EMS_SUBMIT 继承了SMS_SUBMIT EMS_RECEIVED 继承了SMS_RECEIVED
参考3GPP 协议EMS 部分我们可以做出以下的结构和定义
  Public Structure InfoElem     'See document "How to create EMS"

    Public Identifier As Byte
    Public Length As Byte
    Public Data As String
  End Structure
Public TP_UDHL As Byte
为了得到IE 我写了一个函数:
  Shared Function GetIE(ByVal IECode As String) As InfoElem()
    Dim tmp As String = IECode, t As Integer = 0
    Dim result() As InfoElem
    Do Until IECode = ""
        ReDim Preserve result(t)
        With result(t)
          .Identifier = GetByte(IECode)
          .Length = GetByte(IECode)
          .Data = GetString(IECode, .Length * 2)
        End With
        t += 1
    Loop

    Return result
End Function
然后参考协议可以写出GetOrignalData 函数。具体就不再赘述。

PDUDecoder
这个类的由一个结构,一个重要的解码函数,组成。
结构定义了需要取得的基本信息,可以视需要修改。我这里提供一个范例
Public Structure BaseInfo
Public SourceNumber As String
Public DestinationNumber As String
Public ReceivedDate As Date
Public Text As String
Public Type As SMS.Decoder.SMSBase.SMSType
Public EMSTotolPiece As Integer
Public EMSCurrentPiece As Integer
Public StatusFromReport As SMS_STATUS_REPORT.EnumStatus
Public DestinationReceivedDate
End Structure
解码函数的声明如下:
Public Shared Function Decode(ByVal PDUCode As String) As BaseInfo
内部主要处理步骤如下(源代码请参考PDUDecoder
1.       根据SMSBase GetSMSType 函数得到短信类型SMSType
2.       根据SMSType 生成对应的类的实例
3.       解码PDU ,得到基本结构
4.       通过基本结构得到BaseInfo 结构里面需要的数据
5.       通过decode7bit 或者decodeUnicode 函数得到TP_UD 数据

到此为止,这就是整个PDU Decoder 的详细介绍,具体使用可以参见Siemens Support Tool 里面相关部分,在此不再赘述。

转载于:https://www.cnblogs.com/aaa1028/archive/2008/09/26/1299420.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值