pdu (gsm)

[miky1985]

Please, I need to convert text<->pdu format. I suppose there isn't an au3 library.

I found this library

http://www.scampers.org/steve/sms/libraries.htm

but I don't understand the functions ...

can you help me? Thanks!!

[Xenobiologist]

Hi,

never heard of of pdu before, but this is what I found :

http://www.mikrocontroller.net/topic/149989

http://www.mikrocontroller.net/attachment/91793/Delphi_PDU.zip

http://averagecoder.net/visual-basic-version-of-ascii-to-pdu-and-pdu-to-ascii-converter-functions.htm

[miky1985]

Thanks for your interest!

I see link and there are much good informations! But hi want simply use the functions inside this library

http://www.scampers.org/steve/sms/libraries.htm

But is difficult for me understand the method...I suppose to use dllcall() . I'm interesting in a simple example to use

[enaiman]

I think this will help you:

http://www.dreamfabric.com/sms/

[miky1985]

Thanks. I found this other library...more simple...

http://www.codeproject.com/KB/windows/smspdulib.aspx

can I use it with objcreator ? or dllcall()??

someone can show me an example to use please?

[Luigi]

Try this... Is not a 'pretty' script like Julia Roberts, but... But, the first result is functional.

Please, return a feedback if it work, have a bug, etc... I think we have the same interests in this script.

expandcollapse popup

#include <Array.au3>
$Word = "hellohello"
ConsoleWrite(_Asc2PDU($Word) & @LF)
Func _Asc2PDU($Data)
; Author: Detefon
; Convert a simple text to PDU
Local $a[1], $b[1], $c[1]
$Temp = StringToASCIIArray($Data)
For $x = 0 To UBound($Temp) - 1
  $Temp[$x] = _Dec2Bin($Temp[$x])
  $q = $x - (8 * Int($x/8))
  _ArrayAdd($a,StringMid($Temp[$x],1,7-$q))
  _ArrayAdd($b,StringTrimLeft($Temp[$x],7-$q))
Next
For $x = 0 To UBound($a) - 1
  If $x <> UBound($a) - 1 Then
   $d = $b[$x + 1] & $a[$x]
  Else
   $d = $a[$x]
  EndIf
  If Not ($d == "") Then _ArrayAdd($c,_BinaryToHexString($d))
Next
Return _ArrayToString($c,"",1)
EndFunc
; http://www.dreamfabric.com/sms/hello.html
; http://www.ehow.com/how_7840569_convert-text-pdu.html
Func _Dec2Bin($Data)
; Author: Detefon
Local $a = 1, $bin = ""
While $Data > 0.5
  $a = Mod($Data,2)
  $Data = Int($Data/2)
  $bin = $a & $bin
WEnd
Return $bin
EndFunc
Func _Bin2Dec($Data)
; Author: Detefon
Local $Len = StringSplit($Data,""), $Numero
For $x = $Len[0] To 1 Step - 1
  $Numero += (2 ^ (8-$x)) * $Len[$x]
Next
Return $Numero
EndFunc
Func _BinaryToHexString($BinaryValue)
; http://www.autoitscript.com/forum/topic/70507-converter-dec-hex-bin/page__view__findpost__p__516614
Local $test, $Result = '',$numbytes,$nb
If StringRegExp($BinaryValue,'[0-1]') Then
  If $BinaryValue = '' Then
   SetError(-2)
   Return
  EndIf
  Local $bits = "0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111"
  $bits = stringsplit($bits,'|')
  $test = StringReplace($BinaryValue,'1','')
  $test = StringReplace($test,'0','')
  If $test <> '' Then
   SetError(-1)
   Return
  EndIf
  While 1
   $nb = Mod(StringLen($BinaryValue),4)
   If $nb = 0 Then ExitLoop
   $BinaryValue = '0' & $BinaryValue
  WEnd
  $numbytes = Int(StringLen($BinaryValue)/4)
  Local $bytes[$numbytes],$Deci[$numbytes]
  For $j = 0 To $numbytes - 1
   $bytes[$j] = StringMid($BinaryValue,1+4*$j,4)
   For $k = 0 To 15
    If $bytes[$j] = $bits[$k+1] Then
     $Deci[$j] = $k
     ExitLoop
    EndIf
   Next
  Next
   $Result = ''
   For $l = 0 To $numbytes - 1
    $Result &= Hex($Deci[$l],1)
   Next
   Return $Result
Else
  MsgBox(0,"Error","Wrong input, try again ...")
  Return
EndIf
EndFunc

Edited January 18, 2012 by detefon

[miky1985]

very nice! Only a thing....I change 8 line

from

$Temp = StringToASCIIArray($Word)

to

$Temp = StringToASCIIArray($Data)

so if you use the function is perfect!

DO you interest in gsm pdu format, right? because I see that the pdu string is longer, comprensive of smsc, number, time ecc...

how you resolve it?

thanks !

Edited January 18, 2012 by miky1985

[Luigi]

Yes Mike, recently I became interested in pdu, because I could write a small script that sends sms to my friends and I am studying the ways of sending the message. You're right, the pdu is quite extensive, but one piece at a time ... I am currently doing the reverse, pdu to text.

Best regards.

[miky1985]

the same intesest for the same thing

wonderful! I try to do something in this days...keep in contact!!!!!

[Luigi]

Mike, I find this usefull script about PDU, it have a nice code in Javascript about the topic.

http://rednaxela.net/pdu.php

Edited January 19, 2012 by detefon