Using VB.NET to Decode PDU string
2005-08-03 23:13
666 查看
我发表在CodeProject上的文章 |
Download source files - 4.33 Kb Download demo project - 20.7 Kb Online PDU Decoder IntroductionWish to develop SMS or EMS application? What do you read from your mobile? PDU code. PDU is a format which you send to a phone to send a SMS or an EMS. You can find more in GSM 03.40.What is a PDU code and how can I decode it?Let us take a simple look at PDU code. Here I created a SMS: "Hello, my pretty world!", in my Siemens M55 mobile, and send it to 1861. I use HyperTerminal to communicate with my phone using AT Command set.First, I set my character set to Unicode: AT+CSCS="UCS2" Then I set my preferred message storage to MT: AT+CPMS="MT" At last, I read all my SMS out: AT+CMGL=4 I find the SMS I just created in PDU format: 0891683108200805F01151048181160000FF16C8329BFD66B5F320B8BC4CA7E741F7B79C4D0E01 Now, I decode it manually: 08: Length of Service Center Number 91: Indicate there is a plus at the beginning of Service Center number 683108200805F: Service Center number: 8613800280500 Note when the length of number is an odd number, add F. 11: Indicate this SMS will be sent. 51: TP-MR Message Reference, not common used. 04: Length of destination number. Here 1861. 81: No plus here. 8161: Destination number 1861. 00: TP-PID. See GSM 03.40 00: TP-DCS. TP-UD is coded by 7bit charactor method. See GSM 03.38 FF: TP-VP. Valid Period. Here is infinity. 16: Hex value equals to 22. This indicates there are 22 charactors in TP-UD C8329BFD66B5F320B8BC4CA7E741F7B79C4D0E01: TP-UD, decode it using 7bit charactor method. Ha-ha, now you may know more about PDU code. Let us start our program. What is the structure of my PDU Decoder?I created a must inherit classSMS, it provides basic structure a SMS must have. For example: something relating to service center, first octet, TP_PID, and so on. In this class I provide a must override sub GetOrignalData, this help me to do further work on the orignal data from PDU code. Here are also a few of shared functions: GetByte() GetString() GetDate() Swap() GetAddress() GetSMSType() DecodeUnicode90() Decode7Bit() There shared functions will be used frequently. After SMSclass, I created SMS_RECEIVED, SMS_SUBMIT, EMS_RECEIVED, EMS_SUBMIT, SMS_STATUS_REPORTclasses that inherit from SMSclass. How it works?I wanted it like, once you create an instance of one class with a PDU code, it decodes it immediately. So, I wrote some code in everySub New. Take SMS_RECEIVED, for example: Sub New(ByVal PDUCode As String) Type = SMS.SMSType.SMS_RECEIVED GetOrignalData(PDUCode) End Sub The Sub GetOrignalDatagets original data from PDU code. This decodes a received SMS's PDU code. Public Overrides Sub GetOrignalData(ByVal PDUCode As String) SCAddressLength = GetByte(PDUCode) SCAddressType = GetByte(PDUCode) SCAddressValue = GetAddress((GetString(PDUCode, (SCAddressLength - 1) * 2))) FirstOctet = GetByte(PDUCode) SrcAddressLength = GetByte(PDUCode) SrcAddressType = GetByte(PDUCode) SrcAddressLength += SrcAddressLength Mod 2 SrcAddressValue = GetAddress((GetString(PDUCode, SrcAddressLength))) TP_PID = GetByte(PDUCode) TP_DCS = GetByte(PDUCode) TP_SCTS = GetDate(GetString(PDUCode, 14)) TP_UDL = GetByte(PDUCode) TP_UD = GetString(PDUCode, TP_UDL * 2) End Sub It is so easy to write some code like this after you read GSM 03.40. Shared function here helps me get what I want, a byte or a string or even a date. Note that when you get something from PDU code, it will be got rid of from the PDU code. This seemed like a good way after I failed to control the position of what PDU code I should get, because every time, the shared functions started from the beginning of PDU code. In EMS, I write a function to get Information Element from PDU code and a structure to store it. Public Structure InfoElem Public Identifier As Byte Public Length As Byte Public Data As String End Structure 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 Maybe, my class is not the best, but it works well :). How can I use this class?If you know what the type of PDU code is, you simply create an instance of a certain type in SMS or EMS. But when you don't know the type, you use shared functionGetSMSTypeto get the type. Then according to the type, create a certain instance of SMSclass, it is decoded automatically. Still don't know? Sorry for my poor English, run my program and see my code, you will know it better. Are there some bugs?Sorry, I don't find bugs when I decode PDU code from Siemens M55 mobile and Nokia 8xxx mobile, I think there will be no bugs. If you find some, please contact me. Thanks!Some useful documents and sitesGSM 03.40ETSI (this site provides GSM documents). Contact me and make friends with meMy email: hesicong@mail.sc.cninfo.net; hesicong@126.com. My QQ (only in China): 38288890. My MSN: hesicong@mail.sc.cninfo.net. My homepage. My CSDN blog. In the end, thanks for using these classes! |
相关文章推荐
- How to set IE proxy using VB.NET
- csharp:Learn how to post JSON string to generic Handler using jQuery in ASP.Net C#.
- LINQ 首部曲 : LINQ To Object Part 1 - Using VB.NET 2008
- csharp:Learn how to post JSON string to generic Handler using jQuery in ASP.Net C
- csharp:Learn how to post JSON string to generic Handler using jQuery in ASP.Net
- LINQ首部曲: LINQ To Object Part 2 - Using VB.NET
- using vb.net export a datatable to Excel and save as file
- Using VB.NET to Encode SMS and EMS
- [VB.NET]byte互转char、string
- 短信中VB.NET编码PDU(二)
- 短信中VB.NET编码PDU(二)
- C#.net ToString()
- MSDN: Using HTTP Modules and Handlers to Create Pluggable ASP.NET Components
- Words and Text: Using String Variables to Organize Words
- Kettle5.2 couldn't convert string [...] to a date using format [yyyy/MM/dd HH:mm:ss.SSS]
- 使用.net开发手机管理软件 (十) 短信部分——VB.NET解码PDU
- vb.net中使用GetPrivateProfileString访问INI文件,解决中文路径问题
- How to get random string using C++ - 用 C++ 如何获取随机字符串
- VBConversions VB.Net to C# Converter
- VB Net To C Sharp Converter v2.16