comunika_gsm 0.1.6 → 0.1.7

data/lib/comunika_gsm/js/pdu.min.js

@@ -1 +1 @@
-function binToInt(t){for(var e=0,r=parseInt(t.length)-1,n=0;n<t.length;n++)"1"==t.charAt(n)&&(e+=Math.pow(2,r)),r--;return e}function intToBin(t,e){for(var r=2,n=parseInt(t),s=n.toString(r),a=s.length;e>a;a++)s="0"+s;return s}function HexToNum(t){var e=MakeNum(t.substring(0,1)),r=0;return t.length>1&&(r=MakeNum(t.substring(1,2))),"X"==r?"00":16*e+1*r}function MakeNum(t){if(t>="0"&&"9">=t)return t;switch(t.toUpperCase()){case"A":return 10;case"B":return 11;case"C":return 12;case"D":return 13;case"E":return 14;case"F":return 15;default:return 16}return 16}function intToHex(t){var e="0123456789ABCDEF";for(h="",t=parseInt(t),j=0;j<=3;j++)h+=e.charAt(t>>8*j+4&15)+e.charAt(t>>8*j&15);return h.substring(0,2)}function ToHex(t){var e="0123456789ABCDEF",r="";return r=e.charAt(15&t),t>>=4,r=e.charAt(15&t)+r}function getSevenBit(t){for(var e=0;e<sevenbitdefault.length;e++)if(sevenbitdefault[e]==t)return e;return 0}function getEightBit(t){return t}function get16Bit(t){return t}function phoneNumberMap(t){if(t>="0"&&"9">=t)return t;switch(t.toUpperCase()){case"*":return"A";case"#":return"B";case"A":return"C";case"B":return"D";case"C":return"E";default:return"F"}return"F"}function phoneNumberUnMap(t){if(t>="0"&&"9">=t)return t;switch(t){case 10:return"*";case 11:return"#";case 12:return"A";case 13:return"B";case 14:return"C";default:return"F"}return"F"}function semiOctetToString(t){for(var e="",r=0;r<t.length;r+=2){var n=t.substring(r,r+2);e=e+phoneNumberMap(n.charAt(1))+phoneNumberMap(n.charAt(0))}return e}function getUserMessage(t,e){var r="";octetArray=new Array,restArray=new Array,septetsArray=new Array;var n=1,s=0,a=0,i="",u="<table border=1 ><tr><td align=center width=75><b>Hex</b></td>",o="<tr><td align=center width=75> <b>&nbsp;&nbsp;&nbsp;Octets&nbsp;&nbsp;&nbsp;</b></td>",g="<table border=1 ><tr><td align=center width=75><b>septets</b></td>",b="<tr><td align=center width=75><b>Character</b></td>";calculation="";for(var c=0;c<t.length;c+=2){var l=t.substring(c,c+2);r+=intToBin(HexToNum(l),8),c%14==0&&0!=c&&(u+="<td align=center width=75>+++++++</td>"),u=u+"<td align=center width=75>"+l+"</td>"}u+="<td align=center width=75>+++++++</td>";for(var c=0;c<r.length;c+=8)octetArray[s]=r.substring(c,c+8),restArray[s]=octetArray[s].substring(0,n%8),septetsArray[s]=octetArray[s].substring(n%8,8),c%56==0&&0!=c&&(o+="<td align=center width=75>&nbsp;</td>"),o=o+"<td align=center width=75><span style='background-color: #FFFF00'>"+restArray[s]+"</span>"+septetsArray[s]+"</td>",n++,s++,8==n&&(n=1);o+="<td align=center width=75>&nbsp;</td>";for(var c=0;c<restArray.length;c++)c%7==0?(0!=c&&(i+=sevenbitdefault[binToInt(restArray[c-1])],g=g+"<td align=center width=75><span style='background-color: #FFFF00'>&nbsp;"+restArray[c-1]+"</span>&nbsp;</td>",b=b+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(restArray[c-1])]+"&nbsp;</td>",a++),i+=sevenbitdefault[binToInt(septetsArray[c])],g=g+"<td align=center width=75>&nbsp;"+septetsArray[c]+"&nbsp;</td>",b=b+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(septetsArray[c])]+"&nbsp;</td>",a++):(i+=sevenbitdefault[binToInt(septetsArray[c]+restArray[c-1])],g=g+"<td align=center width=75>&nbsp;"+septetsArray[c]+"<span style='background-color: #FFFF00'>"+restArray[c-1]+"&nbsp;</span></td>",b=b+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(septetsArray[c]+restArray[c-1])]+"&nbsp;</td>",a++);return a!=e?(i+=sevenbitdefault[binToInt(restArray[c-1])],g=g+"<td align=center width=75><span style='background-color: #FFFF00'>&nbsp;"+restArray[c-1]+"</span>&nbsp;</td>",b=b+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(restArray[c-1])]+"&nbsp;</td>"):(g+="<td align=center width=75>+++++++</td>",b+="<td align=center width=75>&nbsp;</td>"),calculation="Conversion of 8-bit octets to 7-bit default alphabet<br><br>"+u+"</tr>"+o+"</tr></table>"+g+"</tr>"+b+"</tr></table>",i}function getUserMessage16(t,e){var r="";calculation="Not implemented";for(var n=0;n<t.length;n+=4){var s=t.substring(n,n+2),a=t.substring(n+2,n+4);r+=""+String.fromCharCode(256*HexToNum(s)+HexToNum(a))}return r}function getUserMessage8(t,e){var r="";calculation="Not implemented";for(var n=0;n<t.length;n+=2){var s=t.substring(n,n+2);r+=""+String.fromCharCode(HexToNum(s))}return r}function getPDUMetaInfo(t){var e=t,r=0,n="";if("AT"==e.substr(0,2))for(var s=0;s<e.length;s++)if(10==e.charCodeAt(s)){e=e.substr(s+1);break}for(var a="",s=0;s<e.length;s++)16!=MakeNum(e.substr(s,1))&&(a+=e.substr(s,1));e=a;var i=HexToNum(e.substring(0,2)),u=e.substring(2,2+2*i),o=u.substring(0,2),g=u.substring(2,2+2*i);0!=i&&(g=semiOctetToString(g),("F"==g.substr(g.length-1,1)||"f"==g.substr(g.length-1,1))&&(g=g.substring(0,g.length-1)),91==o&&(g="+"+g));var b=2*i+2;r=b;var c=e.substr(r,2);r+=2,32==(32&HexToNum(c))&&(n+="Type::::Receipt requested\n");var l=0;if(64==(64&HexToNum(c))&&(l=1,n+="Type::::Data Header\n"),1==(3&HexToNum(c))||3==(3&HexToNum(c))){3==(3&HexToNum(c))&&(n="Type::::Unknown Message\nTreat as Deliver\n");var d=HexToNum(e.substr(r,2));r+=2;var h=HexToNum(e.substr(r,2));h%2!=0&&(h+=1),r+=2;var p=e.substr(r,2);r+=2;var v=semiOctetToString(e.substring(r,r+h));("F"==v.substr(v.length-1,1)||"f"==v.substr(v.length-1,1))&&(v=v.substring(0,v.length-1)),91==p&&(v="+"+v),r+=h;var T=e.substr(r,2);r+=2;var f=e.substr(r,2),m=tpDCSMeaning(f);r+=2;var A;switch(24&HexToNum(c)){case 0:A="Not Present";break;case 16:A="Rel "+cValid(HexToNum(e.substr(r,2))),r+=2;break;case 8:A="Enhanced - Not Decoded",r+=14;break;case 24:A="Absolute - Not Decoded",r+=14}var y=HexToNum(e.substr(r,2));r+=2;var S=DCS_Bits(f),x="Undefined format";7==S?x=getUserMessage(e.substr(r,e.length-r),y):8==S?x=getUserMessage8(e.substr(r,e.length-r),y):16==S&&(x=getUserMessage16(e.substr(r,e.length-r),y)),x=x.substr(0,y),16==S&&(y/=2),0==n.length&&(n="Type::::Message:\n"),n+="SMSC::::"+g+"\nReceipient::::"+v+"\nValidity::::"+A+"\nTP_PID::::"+T+"\nTP_DCS::::"+f+"\nTP_DCS-popis::::"+m+"Message::::"+x+"\nLength::::"+y}else if(0==(3&HexToNum(c))){n="Type: Receive Message::::";var h=HexToNum(e.substr(r,2));r+=2;var p=e.substr(r,2);r+=2;var v;"D0"==p?(_sl=h,h%2!=0&&(h+=1),v=getUserMessage(e.substring(r,r+h),parseInt(_sl/2*8/7))):(h%2!=0&&(h+=1),v=semiOctetToString(e.substring(r,r+h)),("F"==v.substr(v.length-1,1)||"f"==v.substr(v.length-1,1))&&(v=v.substring(0,v.length-1)),91==p&&(v="+"+v)),r+=h;var T=e.substr(r,2);r+=2;var f=e.substr(r,2),m=tpDCSMeaning(f);r+=2;var M=semiOctetToString(e.substr(r,14)),w=M.substring(0,2),H=M.substring(2,4),N=M.substring(4,6),k=M.substring(6,8),C=M.substring(8,10),F=M.substring(10,12);M=N+"/"+H+"/"+w+" "+k+":"+C+":"+F+" GMT ?",r+=14;var y=HexToNum(e.substr(r,2));r+=2;var S=DCS_Bits(f),x="Undefined format";7==S?x=getUserMessage(e.substr(r,e.length-r),y):8==S?x=getUserMessage8(e.substr(r,e.length-r),y):16==S&&(x=getUserMessage16(e.substr(r,e.length-r),y)),x=x.substr(0,y),x=x.replace(/\n/g,""),x=x.replace("::::",""),16==S&&(y/=2),n+="SMSC::::"+g+"\nSender::::"+v+"\nTimeStamp::::"+M+"\nTP_PID::::"+T+"\nTP_DCS::::"+f+"\nTP_DCS-popis::::"+m+"Message::::"+x+"\nLength::::"+y}else{n="Type::::Status Report\n";var d=HexToNum(e.substr(r,2));r+=2;var h=HexToNum(e.substr(r,2));h%2!=0&&(h+=1),r+=2;var p=e.substr(r,2);r+=2;var v=semiOctetToString(e.substring(r,r+h));("F"==v.substr(v.length-1,1)||"f"==v.substr(v.length-1,1))&&(v=v.substring(0,v.length-1)),91==p&&(v="+"+v),r+=h;var M=semiOctetToString(e.substr(r,14)),w=M.substring(0,2),H=M.substring(2,4),N=M.substring(4,6),k=M.substring(6,8),C=M.substring(8,10),F=M.substring(10,12),I=M.substring(12,14);M=N+"/"+H+"/"+w+" "+k+":"+C+":"+F+" GMT +"+I/4,r+=14;var D=semiOctetToString(e.substr(r,14)),B=D.substring(0,2),U=D.substring(2,4),E=D.substring(4,6),O=D.substring(6,8),P=D.substring(8,10),_=D.substring(10,12),j=M.substring(12,14);D=E+"/"+U+"/"+B+" "+O+":"+P+":"+_+" GMT +"+j/4,r+=14;var R=e.substr(r,2);n+="SMSC::::"+g+"\nSender::::"+v+"\nMessageRef::::"+d+"\nTimeStamp::::"+M+"\nTimeStamp2::::"+D+"\nStatus Byte::::"+R}return n}function change(t){var e=t.value.length;e>maxkeys&&(t.value=t.value.substring(0,maxkeys),alerted=!0,e=maxkeys),window.status="Characters left : "+(maxkeys-e)}function DCS_Bits(t){var e=7,r=HexToNum(t);switch(192&r){case 0:switch(12&r){case 4:e=8;break;case 8:e=16}break;case 192:switch(48&r){case 32:e=16;break;case 48:4&r||(e=8)}}return e}function tpDCSMeaning(t){var e=t,r=HexToNum(t);switch(192&r){case 0:if(e=32&r?"Compressed Text\n":"Uncompressed Text\n",16&r)switch(e+="MClass::",3&r){case 0:e+="0\n";break;case 1:e+="1\n";break;case 2:e+="2\n";break;case 3:e+="3\n"}else e+="MClass::No class\n";switch(e+="Alphabet::::",12&r){case 0:e+="Default\n";break;case 4:e+="8bit\n";break;case 8:e+="UCS2(16)bit\n";break;case 12:e+="Reserved\n"}break;case 64:case 128:e="Reserved coding group\n";break;case 192:switch(48&r){case 0:e="Message waiting group\n",e+="Discard\n";break;case 16:e="Message waiting group\n",e+="Store Message. Default Alphabet\n";break;case 32:e="Message waiting group\n",e+="Store Message. UCS2 Alphabet\n";break;case 48:e="Data coding message class\n",e+=4&r?"Default Alphabet\n":"8 bit Alphabet\n"}}return e}function checkFlag(t){t.checked?(document.pduToStringForm.valid.disabled=!1,document.pduToStringForm.valid.value="170",document.getElementById("validy").innerHTML=cValid("170")):(document.pduToStringForm.valid.disabled=!0,document.pduToStringForm.valid.value="",document.getElementById("validy").innerHTML="")}function Validity(t){return isNaN(parseInt(t))?(t=0,document.pduToStringForm.valid.value=t):(t=parseInt(t),0>t&&(t=0,document.pduToStringForm.valid.value=t),t>255&&(t=255,document.pduToStringForm.valid.value=t)),cValid(t)}function cValid(t){var e,r="";t=parseInt(t),143>=t?e=5*(t+1):167>=t?(e=(t-143)/2+12,e*=60):196>=t?(e=t-166,e*=1440):(e=t-192,e*=10080);var n,s,a,i;return n=e%60,s=e/60,a=s/24,i=a/7,s%=24,a%=7,0!=parseInt(i)&&(r+=parseInt(i)+"w "),0!=parseInt(a)&&(r+=parseInt(a)+"d "),0!=parseInt(s)&&(r+=parseInt(s)+"h "),0!=n&&(r+=n+"m "),r}function binToInt(t){for(var e=0,r=parseInt(t.length)-1,n=0;n<t.length;n++)"1"==t.charAt(n)&&(e+=Math.pow(2,r)),r--;return e}function intToBin(t,e){for(var r=2,n=parseInt(t),s=n.toString(r),a=s.length;e>a;a++)s="0"+s;return s}function HexToNum(t){var e=MakeNum(t.substring(0,1)),r=0;return t.length>1&&(r=MakeNum(t.substring(1,2))),"X"==r?"00":16*e+1*r}function MakeNum(t){if(t>="0"&&"9">=t)return t;switch(t.toUpperCase()){case"A":return 10;case"B":return 11;case"C":return 12;case"D":return 13;case"E":return 14;case"F":return 15;default:return 16}return 16}function intToHex(t){var e="0123456789ABCDEF";for(h="",t=parseInt(t),j=0;j<=3;j++)h+=e.charAt(t>>8*j+4&15)+e.charAt(t>>8*j&15);return h.substring(0,2)}function ToHex(t){var e="0123456789ABCDEF",r="";return r=e.charAt(15&t),t>>=4,r=e.charAt(15&t)+r}function stringToPDU(t,e,r,n,s,a,i,u){var o=n,g="",b="",c="",l=0,d=0,h="",p="";0!=r&&(h="81","+"==r.substr(0,1)?(h="91",r=r.substr(1)):"0"!=r.substr(0,1)&&(h="91"),r.length%2!=0&&(r+="F"),p=semiOctetToString(r),l=(h+""+p).length/2,d=l),10>l&&(l="0"+l);var v;v=i?u?"3100":"2100":u?"1100":"0100";var T="81";"+"==e.substr(0,1)?(T="91",e=e.substr(1)):"0"!=e.substr(0,1)&&(T="91");var f=intToHex(e.length);e.length%2!=0&&(e+="F");var m=semiOctetToString(e),A="00",y=0;switch(-1!=s&&(y=16|s),o){case 7:break;case 8:y=4|y;break;case 16:y=8|y}var S=intToHex(y),x="";u&&(x=intToHex(a));var M;if(7==o){M=intToHex(t.length);for(var w=0;w<=t.length;w++){if(w==t.length){""!=b&&(c=c+""+intToHex(binToInt(b)));break}var H,N=intToBin(getSevenBit(t.charAt(w)),7);0!=w&&w%8!=0?(g=N.substring(7-w%8),H=g+b,c=c+""+intToHex(binToInt(H)),b=N.substring(0,7-w%8)):b=N.substring(0,7-w%8)}}else if(8==o){M=intToHex(t.length);for(var k=0,w=0;w<t.length;w++)k=getEightBit(t.charCodeAt(w)),c=c+""+ToHex(k)}else if(16==o){M=intToHex(2*t.length);for(var C=0,w=0;w<t.length;w++)C=get16Bit(t.charCodeAt(w)),c=c+""+ToHex((65280&C)>>8)+ToHex(255&C)}var F=l+h+p+v+f+T+m+A+S+x+M,I=F+c,D=I.length/2-d-1;return D+"\n"+I}sevenbitdefault=new Array("@","£","$","¥","è","é","ù","ì","ò","Ç","\n","Ø","ø","\r","Å","å","Δ","_","Φ","Γ","Λ","Ω","Π","Ψ","Σ","Θ","Ξ","€","Æ","æ","ß","É"," ","!",'"',"#","¤","%","&","'","(",")","*","+",",","-",".","/","0","1","2","3","4","5","6","7","8","9",":",";","<","=",">","?","¡","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","Ä","Ö","Ñ","Ü","§","¿","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","ä","ö","ñ","ü","à","á");var calculation="",maxkeys=160,alerted=!1;sevenbitdefault=new Array("@","£","$","¥","è","é","ù","ì","ò","Ç","\n","Ø","ø","\r","Å","å","Δ","_","Φ","Γ","Λ","Ω","Π","Ψ","Σ","Θ","Ξ","€","Æ","æ","ß","É"," ","!",'"',"#","¤","%","&","'","(",")","*","+",",","-",".","/","0","1","2","3","4","5","6","7","8","9",":",";","<","=",">","?","¡","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","Ä","Ö","Ñ","Ü","§","¿","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","ä","ö","ñ","ü","à");var calculation="",maxkeys=160,alerted=!1;
+function binToInt(t){for(var e=0,r=parseInt(t.length)-1,s=0;s<t.length;s++)"1"==t.charAt(s)&&(e+=Math.pow(2,r)),r--;return e}function intToBin(t,e){for(var r=2,s=parseInt(t),n=s.toString(r),a=n.length;e>a;a++)n="0"+n;return n}function HexToNum(t){var e=MakeNum(t.substring(0,1)),r=0;return t.length>1&&(r=MakeNum(t.substring(1,2))),"X"==r?"00":16*e+1*r}function MakeNum(t){if(t>="0"&&"9">=t)return t;switch(t.toUpperCase()){case"A":return 10;case"B":return 11;case"C":return 12;case"D":return 13;case"E":return 14;case"F":return 15;default:return 16}return 16}function intToHex(t){var e="0123456789ABCDEF";for(h="",t=parseInt(t),j=0;j<=3;j++)h+=e.charAt(t>>8*j+4&15)+e.charAt(t>>8*j&15);return h.substring(0,2)}function ToHex(t){var e="0123456789ABCDEF",r="";return r=e.charAt(15&t),t>>=4,r=e.charAt(15&t)+r}function getSevenBit(t){for(var e=0;e<sevenbitdefault.length;e++)if(sevenbitdefault[e]==t)return e;return 0}function getEightBit(t){return t}function get16Bit(t){return t}function phoneNumberMap(t){if(t>="0"&&"9">=t)return t;switch(t.toUpperCase()){case"*":return"A";case"#":return"B";case"A":return"C";case"B":return"D";case"C":return"E";default:return"F"}return"F"}function phoneNumberUnMap(t){if(t>="0"&&"9">=t)return t;switch(t){case 10:return"*";case 11:return"#";case 12:return"A";case 13:return"B";case 14:return"C";default:return"F"}return"F"}function semiOctetToString(t){for(var e="",r=0;r<t.length;r+=2){var s=t.substring(r,r+2);e=e+phoneNumberMap(s.charAt(1))+phoneNumberMap(s.charAt(0))}return e}function getUserMessage(t,e){var r="";octetArray=new Array,restArray=new Array,septetsArray=new Array;var s=1,n=0,a=0,i="",u="<table border=1 ><tr><td align=center width=75><b>Hex</b></td>",b="<tr><td align=center width=75> <b>&nbsp;&nbsp;&nbsp;Octets&nbsp;&nbsp;&nbsp;</b></td>",g="<table border=1 ><tr><td align=center width=75><b>septets</b></td>",c="<tr><td align=center width=75><b>Character</b></td>";calculation="";for(var o=0;o<t.length;o+=2){var l=t.substring(o,o+2);r+=intToBin(HexToNum(l),8),o%14==0&&0!=o&&(u+="<td align=center width=75>+++++++</td>"),u=u+"<td align=center width=75>"+l+"</td>"}u+="<td align=center width=75>+++++++</td>";for(var o=0;o<r.length;o+=8)octetArray[n]=r.substring(o,o+8),restArray[n]=octetArray[n].substring(0,s%8),septetsArray[n]=octetArray[n].substring(s%8,8),o%56==0&&0!=o&&(b+="<td align=center width=75>&nbsp;</td>"),b=b+"<td align=center width=75><span style='background-color: #FFFF00'>"+restArray[n]+"</span>"+septetsArray[n]+"</td>",s++,n++,8==s&&(s=1);b+="<td align=center width=75>&nbsp;</td>";for(var o=0;o<restArray.length;o++)o%7==0?(0!=o&&(i+=sevenbitdefault[binToInt(restArray[o-1])],g=g+"<td align=center width=75><span style='background-color: #FFFF00'>&nbsp;"+restArray[o-1]+"</span>&nbsp;</td>",c=c+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(restArray[o-1])]+"&nbsp;</td>",a++),i+=sevenbitdefault[binToInt(septetsArray[o])],g=g+"<td align=center width=75>&nbsp;"+septetsArray[o]+"&nbsp;</td>",c=c+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(septetsArray[o])]+"&nbsp;</td>",a++):(i+=sevenbitdefault[binToInt(septetsArray[o]+restArray[o-1])],g=g+"<td align=center width=75>&nbsp;"+septetsArray[o]+"<span style='background-color: #FFFF00'>"+restArray[o-1]+"&nbsp;</span></td>",c=c+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(septetsArray[o]+restArray[o-1])]+"&nbsp;</td>",a++);return a!=e?(i+=sevenbitdefault[binToInt(restArray[o-1])],g=g+"<td align=center width=75><span style='background-color: #FFFF00'>&nbsp;"+restArray[o-1]+"</span>&nbsp;</td>",c=c+"<td align=center width=75>&nbsp;"+sevenbitdefault[binToInt(restArray[o-1])]+"&nbsp;</td>"):(g+="<td align=center width=75>+++++++</td>",c+="<td align=center width=75>&nbsp;</td>"),calculation="Conversion of 8-bit octets to 7-bit default alphabet<br><br>"+u+"</tr>"+b+"</tr></table>"+g+"</tr>"+c+"</tr></table>",i}function getUserMessage16(t,e){var r="";calculation="Not implemented";for(var s=0;s<t.length;s+=4){var n=t.substring(s,s+2),a=t.substring(s+2,s+4);r+=""+String.fromCharCode(256*HexToNum(n)+HexToNum(a))}return r}function getUserMessage8(t,e){var r="";calculation="Not implemented";for(var s=0;s<t.length;s+=2){var n=t.substring(s,s+2);r+=""+String.fromCharCode(HexToNum(n))}return r}function getPDUMetaInfo(t){var e=t,r=0,s="";if("AT"==e.substr(0,2))for(var n=0;n<e.length;n++)if(10==e.charCodeAt(n)){e=e.substr(n+1);break}for(var a="",n=0;n<e.length;n++)16!=MakeNum(e.substr(n,1))&&(a+=e.substr(n,1));e=a;var i=HexToNum(e.substring(0,2)),u=e.substring(2,2+2*i),b=u.substring(0,2),g=u.substring(2,2+2*i);0!=i&&(g=semiOctetToString(g),("F"==g.substr(g.length-1,1)||"f"==g.substr(g.length-1,1))&&(g=g.substring(0,g.length-1)),91==b&&(g="+"+g));var c=2*i+2;r=c;var o=e.substr(r,2);r+=2,32==(32&HexToNum(o))&&(s+="Receipt requested");var l=0;if(64==(64&HexToNum(o))&&(l=1,s+="Data Header"),1==(3&HexToNum(o))||3==(3&HexToNum(o))){3==(3&HexToNum(o))&&(s="Unknown Message");var d=HexToNum(e.substr(r,2));r+=2;var p=HexToNum(e.substr(r,2));p%2!=0&&(p+=1),r+=2;var h=e.substr(r,2);r+=2;var v=semiOctetToString(e.substring(r,r+p));("F"==v.substr(v.length-1,1)||"f"==v.substr(v.length-1,1))&&(v=v.substring(0,v.length-1)),91==h&&(v="+"+v),r+=p;var f=e.substr(r,2);r+=2;var m=e.substr(r,2),T=tpDCSMeaning(m);r+=2;var A;switch(24&HexToNum(o)){case 0:A="Not Present";break;case 16:A="Rel "+cValid(HexToNum(e.substr(r,2))),r+=2;break;case 8:A="Enhanced - Not Decoded",r+=14;break;case 24:A="Absolute - Not Decoded",r+=14}var y=HexToNum(e.substr(r,2));r+=2;var N=DCS_Bits(m),w="Undefined format";7==N?w=getUserMessage(e.substr(r,e.length-r),y):8==N?w=getUserMessage8(e.substr(r,e.length-r),y):16==N&&(w=getUserMessage16(e.substr(r,e.length-r),y)),w=w.substr(0,y),16==N&&(y/=2),s=JSON.stringify({mtype:s,smsc:g,number:v,validity:A,tp_pid:f,tp_dcs:m,tp_dcs_popis:T,message:w,mlength:y})}else if(0==(3&HexToNum(o))){var p=HexToNum(e.substr(r,2));r+=2;var h=e.substr(r,2);r+=2;var v;"D0"==h?(_sl=p,p%2!=0&&(p+=1),v=getUserMessage(e.substring(r,r+p),parseInt(_sl/2*8/7))):(p%2!=0&&(p+=1),v=semiOctetToString(e.substring(r,r+p)),("F"==v.substr(v.length-1,1)||"f"==v.substr(v.length-1,1))&&(v=v.substring(0,v.length-1)),91==h&&(v="+"+v)),r+=p;var f=e.substr(r,2);r+=2;var m=e.substr(r,2),T=tpDCSMeaning(m);r+=2;var x=semiOctetToString(e.substr(r,14)),H=x.substring(0,2),M=x.substring(2,4),k=x.substring(4,6),S=x.substring(6,8),F=x.substring(8,10),C=x.substring(10,12);x=k+"/"+M+"/"+H+" "+S+":"+F+":"+C+" GMT ?",r+=14;var y=HexToNum(e.substr(r,2));r+=2;var N=DCS_Bits(m),w="Undefined format";7==N?w=getUserMessage(e.substr(r,e.length-r),y):8==N?w=getUserMessage8(e.substr(r,e.length-r),y):16==N&&(w=getUserMessage16(e.substr(r,e.length-r),y)),w=w.substr(0,y),16==N&&(y/=2),s=JSON.stringify({mtype:s||"Receive message",smsc:g,number:v,validity:A,tp_pid:f,tp_dcs:m,tp_dcs_popis:T,message:w,mlength:y,receipt_at:x})}else{s="Status Report";var d=HexToNum(e.substr(r,2));r+=2;var p=HexToNum(e.substr(r,2));p%2!=0&&(p+=1),r+=2;var h=e.substr(r,2);r+=2;var v=semiOctetToString(e.substring(r,r+p));("F"==v.substr(v.length-1,1)||"f"==v.substr(v.length-1,1))&&(v=v.substring(0,v.length-1)),91==h&&(v="+"+v),r+=p;var x=semiOctetToString(e.substr(r,14)),H=x.substring(0,2),M=x.substring(2,4),k=x.substring(4,6),S=x.substring(6,8),F=x.substring(8,10),C=x.substring(10,12),I=x.substring(12,14);x=k+"/"+M+"/"+H+" "+S+":"+F+":"+C+" GMT +"+I/4,r+=14;var D=semiOctetToString(e.substr(r,14)),U=D.substring(0,2),_=D.substring(2,4),B=D.substring(4,6),O=D.substring(6,8),E=D.substring(8,10),R=D.substring(10,12),j=x.substring(12,14);D=B+"/"+_+"/"+U+" "+O+":"+E+":"+R+" GMT +"+j/4,r+=14;var J=e.substr(r,2);s=JSON.stringify({mtype:s,smsc:g,number:v,sms_id:d,validity:A,tp_pid:f,tp_dcs:m,tp_dcs_popis:T,message:w,mlength:y,sent_at:x,receipt_at:D,status:J})}return s}function stringToPDU(t,e,r,s,n,a,i,u){var b=s,g="",c="",o="",l=0,d=0,p="",h="";0!=r&&(p="81","+"==r.substr(0,1)?(p="91",r=r.substr(1)):"0"!=r.substr(0,1)&&(p="91"),r.length%2!=0&&(r+="F"),h=semiOctetToString(r),l=(p+""+h).length/2,d=l),10>l&&(l="0"+l);var v;v=i?u?"3100":"2100":u?"1100":"0100";var f="81";"+"==e.substr(0,1)?(f="91",e=e.substr(1)):"0"!=e.substr(0,1)&&(f="91");var m=intToHex(e.length);e.length%2!=0&&(e+="F");var T=semiOctetToString(e),A="00",y=0;switch(-1!=n&&(y=16|n),b){case 7:break;case 8:y=4|y;break;case 16:y=8|y}var N=intToHex(y),w="";u&&(w=intToHex(a));var x;if(7==b){x=intToHex(t.length);for(var H=0;H<=t.length;H++){if(H==t.length){""!=c&&(o=o+""+intToHex(binToInt(c)));break}var M,k=intToBin(getSevenBit(t.charAt(H)),7);0!=H&&H%8!=0?(g=k.substring(7-H%8),M=g+c,o=o+""+intToHex(binToInt(M)),c=k.substring(0,7-H%8)):c=k.substring(0,7-H%8)}}else if(8==b){x=intToHex(t.length);for(var S=0,H=0;H<t.length;H++)S=getEightBit(t.charCodeAt(H)),o=o+""+ToHex(S)}else if(16==b){x=intToHex(2*t.length);for(var F=0,H=0;H<t.length;H++)F=get16Bit(t.charCodeAt(H)),o=o+""+ToHex((65280&F)>>8)+ToHex(255&F)}var C=l+p+h+v+m+f+T+A+N+w+x,I=C+o,D=I.length/2-d-1;return JSON.stringify({size:D,pdu:I})}function DCS_Bits(t){var e=7,r=HexToNum(t);switch(192&r){case 0:switch(12&r){case 4:e=8;break;case 8:e=16}break;case 192:switch(48&r){case 32:e=16;break;case 48:4&r||(e=8)}}return e}function tpDCSMeaning(t){var e=t,r=HexToNum(t);switch(192&r){case 0:if(e=32&r?"Compressed Text\n":"Uncompressed Text\n",16&r)switch(e+="class:",3&r){case 0:e+="0\n";break;case 1:e+="1\n";break;case 2:e+="2\n";break;case 3:e+="3\n"}else e+="class: No class\n";switch(e+="Alphabet:",12&r){case 0:e+="Default\n";break;case 4:e+="8bit\n";break;case 8:e+="UCS2(16)bit\n";break;case 12:e+="Reserved\n"}break;case 64:case 128:e="Reserved coding group\n";break;case 192:switch(48&r){case 0:e="Message waiting group\n",e+="Discard\n";break;case 16:e="Message waiting group\n",e+="Store Message. Default Alphabet\n";break;case 32:e="Message waiting group\n",e+="Store Message. UCS2 Alphabet\n";break;case 48:e="Data coding message class\n",e+=4&r?"Default Alphabet\n":"8 bit Alphabet\n"}}return e}function Validity(t){return isNaN(parseInt(t))?t=0:(t=parseInt(t),0>t&&(t=0),t>255&&(t=255)),cValid(t)}function cValid(t){var e,r="";t=parseInt(t),143>=t?e=5*(t+1):167>=t?(e=(t-143)/2+12,e*=60):196>=t?(e=t-166,e*=1440):(e=t-192,e*=10080);var s,n,a,i;return s=e%60,n=e/60,a=n/24,i=a/7,n%=24,a%=7,0!=parseInt(i)&&(r+=parseInt(i)+"w "),0!=parseInt(a)&&(r+=parseInt(a)+"d "),0!=parseInt(n)&&(r+=parseInt(n)+"h "),0!=s&&(r+=s+"m "),r}sevenbitdefault=new Array("@","£","$","¥","è","é","ù","ì","ò","Ç","\n","Ø","ø","\r","Å","å","Δ","_","Φ","Γ","Λ","Ω","Π","Ψ","Σ","Θ","Ξ","€","Æ","æ","ß","É"," ","!",'"',"#","¤","%","&","'","(",")","*","+",",","-",".","/","0","1","2","3","4","5","6","7","8","9",":",";","<","=",">","?","¡","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","Ä","Ö","Ñ","Ü","§","¿","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","ä","ö","ñ","ü","à");var calculation="",maxkeys=160,alerted=!1;

data/lib/comunika_gsm/js/pdu2.js

@@ -0,0 +1,809 @@
+/* Script written by Swen-Peter Ekkebus, edited by Ing. Milan Chudik.
+ *
+ * Further fixes and functionality by Andrew Alexander:
+ * Fix message length issues, handle +xx  & 0xx phone codes, added bit length options,
+ * display 8 & 16 bit messages, reformat interface, deal with embedded spaces in hex,
+ * allow leading AT command in input, implemented some support for alpanumeric senders...
+ *
+ * ekkebus[at]cs.utwente.nl
+ * Feel free to use it, please don't forget to link to the source ;)
+ *
+ *
+ * www.rednaxela.net - Feel free to use this code as you wish.
+ * Version 1.5 r9aja
+ *
+ * Official BPS develop tool
+ *
+ * (c) BPS & co, 2003
+ */
+//Array with "The 7 bit defaultalphabet"
+sevenbitdefault = new Array('@', '£', '$', '¥', 'è', 'é', 'ù', 'ì', 'ò', 'Ç', '\n', 'Ø', 'ø', '\r', 'Å', 'å', '\u0394', '_', '\u03a6', '\u0393', '\u039b', '\u03a9', '\u03a0', '\u03a8', '\u03a3', '\u0398', '\u039e', '€', 'Æ', 'æ', 'ß', 'É', ' ', '!', '"', '#', '¤', '%', '&', '\'', '(', ')', '*', '+', ',', '-', '.', '/', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';', '<', '=', '>', '?', '¡', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'Ä', 'Ö', 'Ñ', 'Ü', '§', '¿', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', 'ä', 'ö', 'ñ', 'ü', 'à');
+// Variable that stores the information to show the user the calculation of the translation
+var calculation = "";
+var maxkeys = 160;
+var alerted = false;
+// function te convert a bit string into a integer
+function binToInt(x) //sp
+  {
+    var total = 0;
+    var power = parseInt(x.length) - 1;
+    for (var i = 0; i < x.length; i++) {
+      if (x.charAt(i) == '1') {
+        total = total + Math.pow(2, power);
+      }
+      power--;
+    }
+    return total;
+  }
+  // function to convert a integer into a bit String
+function intToBin(x, size) //sp
+  {
+    var base = 2;
+    var num = parseInt(x);
+    var bin = num.toString(base);
+    for (var i = bin.length; i < size; i++) {
+      bin = "0" + bin;
+    }
+    return bin;
+  }
+  // function to convert a Hexnumber into a 10base number
+function HexToNum(numberS) {
+    var tens = MakeNum(numberS.substring(0, 1));
+    var ones = 0;
+    if (numberS.length > 1) // means two characters entered
+      ones = MakeNum(numberS.substring(1, 2));
+    if (ones == 'X') {
+      return "00";
+    }
+    return (tens * 16) + (ones * 1);
+  }
+  // helper function for HexToNum
+function MakeNum(str) {
+    if ((str >= '0') && (str <= '9'))
+      return str;
+    switch (str.toUpperCase()) {
+      case "A":
+        return 10;
+      case "B":
+        return 11;
+      case "C":
+        return 12;
+      case "D":
+        return 13;
+      case "E":
+        return 14;
+      case "F":
+        return 15;
+      default:
+        return 16;
+    }
+    return 16;
+  }
+  //function to convert integer to Hex
+function intToHex(i) //sp
+  {
+    var sHex = "0123456789ABCDEF";
+    h = "";
+    i = parseInt(i);
+    for (j = 0; j <= 3; j++) {
+      h += sHex.charAt((i >> (j * 8 + 4)) & 0x0F) +
+        sHex.charAt((i >> (j * 8)) & 0x0F);
+    }
+    return h.substring(0, 2);
+  }
+
+function ToHex(i) {
+  var sHex = "0123456789ABCDEF";
+  var Out = "";
+  Out = sHex.charAt(i & 0xf);
+  i >>= 4;
+  Out = sHex.charAt(i & 0xf) + Out;
+  return Out;
+}
+
+function getSevenBit(character) //sp
+  {
+    for (var i = 0; i < sevenbitdefault.length; i++) {
+      if (sevenbitdefault[i] == character) {
+        return i;
+      }
+    }
+    return 0;
+  }
+
+function getEightBit(character) {
+  return character;
+}
+
+function get16Bit(character) {
+  return character;
+}
+
+function phoneNumberMap(character) {
+  //	return character;
+  if ((character >= '0') && (character <= '9')) {
+    return character;
+  }
+  switch (character.toUpperCase()) {
+    case '*':
+      return 'A';
+    case '#':
+      return 'B';
+    case 'A':
+      return 'C';
+    case 'B':
+      return 'D';
+    case 'C':
+      return 'E';
+      //		case '+':
+      //			return '+'; // An exception to fit with current processing ...
+    default:
+      return 'F';
+  }
+  return 'F';
+}
+
+function phoneNumberUnMap(chararacter) {
+    if ((chararacter >= '0') && (chararacter <= '9')) {
+      return chararacter;
+    }
+    switch (chararacter) {
+      case 10:
+        return '*';
+      case 11:
+        return '#';
+      case 12:
+        return 'A';
+      case 13:
+        return 'B';
+      case 14:
+        return 'C';
+      default:
+        return 'F';
+    }
+    return 'F';
+  }
+  // function to convert semioctets to a string
+function semiOctetToString(inp) //sp
+  {
+    var out = "";
+    for (var i = 0; i < inp.length; i = i + 2) {
+      var temp = inp.substring(i, i + 2);
+      out = out + phoneNumberMap(temp.charAt(1)) + phoneNumberMap(temp.charAt(0));
+    }
+    return out;
+  }
+  //Main function to translate the input to a "human readable" string
+function getUserMessage(input, truelength) // Add truelength AJA
+  {
+    var byteString = "";
+    octetArray = new Array();
+    restArray = new Array();
+    septetsArray = new Array();
+    var s = 1;
+    var count = 0;
+    var matchcount = 0; // AJA
+    var smsMessage = "";
+    var calculation1 = "<table border=1 ><tr><td align=center width=75><b>Hex</b></td>";
+    var calculation2 = "<tr><td align=center width=75> <b>&nbsp;&nbsp;&nbsp;Octets&nbsp;&nbsp;&nbsp;</b></td>";
+    var calculation3 = "<table border=1 ><tr><td align=center width=75><b>septets</b></td>";
+    var calculation4 = "<tr><td align=center width=75><b>Character</b></td>";
+    calculation = "";
+    //Cut the input string into pieces of2 (just get the hex octets)
+    for (var i = 0; i < input.length; i = i + 2) {
+      var hex = input.substring(i, i + 2);
+      byteString = byteString + intToBin(HexToNum(hex), 8);
+      if ((i % 14 == 0 && i != 0)) {
+        calculation1 = calculation1 + "<td align=center width=75>+++++++</td>";
+      }
+      calculation1 = calculation1 + "<td align=center width=75>" + hex + "</td>";
+    }
+    calculation1 = calculation1 + "<td align=center width=75>+++++++</td>";
+    // make two array's these are nessesery to
+    for (var i = 0; i < byteString.length; i = i + 8) {
+      octetArray[count] = byteString.substring(i, i + 8);
+      restArray[count] = octetArray[count].substring(0, (s % 8));
+      septetsArray[count] = octetArray[count].substring((s % 8), 8);
+      if ((i % 56 == 0 && i != 0)) {
+        calculation2 = calculation2 + "<td align=center width=75>&nbsp;</td>";
+      }
+      calculation2 = calculation2 + "<td align=center width=75><span style='background-color: #FFFF00'>" + restArray[count] + "</span>" + septetsArray[count] + "</td>";
+      s++;
+      count++;
+      if (s == 8) {
+        s = 1;
+      }
+    }
+    calculation2 = calculation2 + "<td align=center width=75>&nbsp;</td>";
+    // put the right parts of the array's together to make the sectets
+    for (var i = 0; i < restArray.length; i++) {
+      if (i % 7 == 0) {
+        if (i != 0) {
+          smsMessage = smsMessage + sevenbitdefault[binToInt(restArray[i - 1])];
+          calculation3 = calculation3 + "<td align=center width=75><span style='background-color: #FFFF00'>&nbsp;" + restArray[i - 1] + "</span>&nbsp;</td>";
+          calculation4 = calculation4 + "<td align=center width=75>&nbsp;" + sevenbitdefault[binToInt(restArray[i - 1])] + "&nbsp;</td>";
+          matchcount++; // AJA
+        }
+        smsMessage = smsMessage + sevenbitdefault[binToInt(septetsArray[i])];
+        calculation3 = calculation3 + "<td align=center width=75>&nbsp;" + septetsArray[i] + "&nbsp;</td>";
+        calculation4 = calculation4 + "<td align=center width=75>&nbsp;" + sevenbitdefault[binToInt(septetsArray[i])] + "&nbsp;</td>";
+        matchcount++; // AJA
+      } else {
+        smsMessage = smsMessage + sevenbitdefault[binToInt(septetsArray[i] + restArray[i - 1])];
+        calculation3 = calculation3 + "<td align=center width=75>&nbsp;" + septetsArray[i] + "<span style='background-color: #FFFF00'>" + restArray[i - 1] + "&nbsp;</span>" + "</td>"
+        calculation4 = calculation4 + "<td align=center width=75>&nbsp;" + sevenbitdefault[binToInt(septetsArray[i] + restArray[i - 1])] + "&nbsp;</td>";
+        matchcount++; // AJA
+      }
+    }
+    if (matchcount != truelength) // Don't forget trailing characters!! AJA
+    {
+      smsMessage = smsMessage + sevenbitdefault[binToInt(restArray[i - 1])];
+      calculation3 = calculation3 + "<td align=center width=75><span style='background-color: #FFFF00'>&nbsp;" + restArray[i - 1] + "</span>&nbsp;</td>";
+      calculation4 = calculation4 + "<td align=center width=75>&nbsp;" + sevenbitdefault[binToInt(restArray[i - 1])] + "&nbsp;</td>";
+    } else // Blank Filler
+    {
+      calculation3 = calculation3 + "<td align=center width=75>+++++++</td>";
+      calculation4 = calculation4 + "<td align=center width=75>&nbsp;</td>";
+    }
+    //Put all the calculation info together
+    calculation = "Conversion of 8-bit octets to 7-bit default alphabet<br><br>" + calculation1 + "</tr>" + calculation2 + "</tr></table>" + calculation3 + "</tr>" + calculation4 + "</tr></table>";
+    return smsMessage;
+  }
+
+function getUserMessage16(input, truelength) {
+  var smsMessage = "";
+  calculation = "Not implemented";
+  // Cut the input string into pieces of 4
+  for (var i = 0; i < input.length; i = i + 4) {
+    var hex1 = input.substring(i, i + 2);
+    var hex2 = input.substring(i + 2, i + 4);
+    smsMessage += "" + String.fromCharCode(HexToNum(hex1) * 256 + HexToNum(hex2));
+  }
+  return smsMessage;
+}
+
+function getUserMessage8(input, truelength) {
+    var smsMessage = "";
+    calculation = "Not implemented";
+    // Cut the input string into pieces of 2 (just get the hex octets)
+    for (var i = 0; i < input.length; i = i + 2) {
+      var hex = input.substring(i, i + 2);
+      smsMessage += "" + String.fromCharCode(HexToNum(hex));
+    }
+    return smsMessage;
+  }
+  // Function to get SMSmeta info information from PDU String
+function getPDUMetaInfo(inp) {
+  var PDUString = inp;
+  var start = 0;
+  var out = "";
+  // Silently Strip leading AT command
+  if (PDUString.substr(0, 2) == "AT") {
+    for (var i = 0; i < PDUString.length; i++) {
+      if (PDUString.charCodeAt(i) == 10) {
+        PDUString = PDUString.substr(i + 1);
+        break;
+      }
+    }
+  }
+  // Silently strip whitespace
+  var NewPDU = "";
+  for (var i = 0; i < PDUString.length; i++) {
+    if (MakeNum(PDUString.substr(i, 1)) != 16) {
+      NewPDU = NewPDU + PDUString.substr(i, 1);
+    }
+  }
+  PDUString = NewPDU;
+  var SMSC_lengthInfo = HexToNum(PDUString.substring(0, 2));
+  var SMSC_info = PDUString.substring(2, 2 + (SMSC_lengthInfo * 2));
+  var SMSC_TypeOfAddress = SMSC_info.substring(0, 2);
+  var SMSC_Number = SMSC_info.substring(2, 2 + (SMSC_lengthInfo * 2));
+  if (SMSC_lengthInfo != 0) {
+    SMSC_Number = semiOctetToString(SMSC_Number);
+    // if the length is odd remove the trailing  F
+    if ((SMSC_Number.substr(SMSC_Number.length - 1, 1) == 'F') || (SMSC_Number.substr(SMSC_Number.length - 1, 1) == 'f')) {
+      SMSC_Number = SMSC_Number.substring(0, SMSC_Number.length - 1);
+    }
+    if (SMSC_TypeOfAddress == 91) {
+      SMSC_Number = "+" + SMSC_Number;
+    }
+  }
+  var start_SMSDeleivery = (SMSC_lengthInfo * 2) + 2;
+  start = start_SMSDeleivery;
+  var firstOctet_SMSDeliver = PDUString.substr(start, 2);
+  start = start + 2;
+  if ((HexToNum(firstOctet_SMSDeliver) & 0x20) == 0x20) {
+    out += "Receipt requested";
+  }
+  var DataHeader = 0;
+  if ((HexToNum(firstOctet_SMSDeliver) & 0x40) == 0x40) {
+    DataHeader = 1;
+    out += "Data Header";
+  }
+  //	bit1	bit0	Message type
+  //	0	0	SMS DELIVER (in the direction SC to MS)
+  //	0	0	SMS DELIVER REPORT (in the direction MS to SC)
+  //	1	0	SMS STATUS REPORT (in the direction SC to MS)
+  //	1	0	SMS COMMAND (in the direction MS to SC)
+  //	0	1	SMS SUBMIT (in the direction MS to SC)
+  //	0	1	SMS SUBMIT REPORT (in the direction SC to MS)
+  //	1	1	Reserved
+  // This needs tidying up!! AJA
+  if ((HexToNum(firstOctet_SMSDeliver) & 0x03) == 1 || (HexToNum(firstOctet_SMSDeliver) & 0x03) == 3) // Transmit Message
+  {
+    if ((HexToNum(firstOctet_SMSDeliver) & 0x03) == 3) {
+      out = "Unknown Message"; //Treat as Deliver
+    }
+    var MessageReference = HexToNum(PDUString.substr(start, 2));
+    start = start + 2;
+    // length in decimals
+    var sender_addressLength = HexToNum(PDUString.substr(start, 2));
+    if (sender_addressLength % 2 != 0) {
+      sender_addressLength += 1;
+    }
+    start = start + 2;
+    var sender_typeOfAddress = PDUString.substr(start, 2);
+    start = start + 2
+    var sender_number = semiOctetToString(PDUString.substring(start, start + sender_addressLength));
+    if ((sender_number.substr(sender_number.length - 1, 1) == 'F') || (sender_number.substr(sender_number.length - 1, 1) == 'f')) {
+      sender_number = sender_number.substring(0, sender_number.length - 1);
+    }
+    if (sender_typeOfAddress == 91) {
+      sender_number = "+" + sender_number;
+    }
+    start += sender_addressLength;
+    var tp_PID = PDUString.substr(start, 2);
+    start += 2;
+    var tp_DCS = PDUString.substr(start, 2);
+    var tp_DCS_desc = tpDCSMeaning(tp_DCS);
+    start += 2;
+    var ValidityPeriod;
+    switch ((HexToNum(firstOctet_SMSDeliver) & 0x18)) {
+      case 0: // Not Present
+        ValidityPeriod = "Not Present";
+        break;
+      case 0x10: // Relative
+        ValidityPeriod = "Rel " + cValid(HexToNum(PDUString.substr(start, 2)));
+        start += 2;
+        break;
+      case 0x08: // Enhanced
+        ValidityPeriod = "Enhanced - Not Decoded";
+        start += 14;
+        break;
+      case 0x18: // Absolute
+        ValidityPeriod = "Absolute - Not Decoded";
+        start += 14;
+        break;
+    }
+    // Commonish...
+    var messageLength = HexToNum(PDUString.substr(start, 2));
+    start += 2;
+    var bitSize = DCS_Bits(tp_DCS);
+    var userData = "Undefined format";
+    if (bitSize == 7) {
+      userData = getUserMessage(PDUString.substr(start, PDUString.length - start), messageLength);
+    } else if (bitSize == 8) {
+      userData = getUserMessage8(PDUString.substr(start, PDUString.length - start), messageLength);
+    } else if (bitSize == 16) {
+      userData = getUserMessage16(PDUString.substr(start, PDUString.length - start), messageLength);
+    }
+    userData = userData.substr(0, messageLength);
+    if (bitSize == 16) {
+      messageLength /= 2;
+    }
+
+    out = JSON.stringify({mtype: out, smsc: SMSC_Number, number: sender_number, validity: ValidityPeriod, tp_pid: tp_PID, tp_dcs: tp_DCS, tp_dcs_popis: tp_DCS_desc, message: userData, mlength: messageLength});
+    //out += "SMSC#" + SMSC_Number + "\nReceipient:" + sender_number + "\nValidity:" + ValidityPeriod + "\nTP_PID:" + tp_PID + "\nTP_DCS:" + tp_DCS + "\nTP_DCS-popis:" + tp_DCS_desc + "\nMessage:" + userData + "\nLength:" + messageLength;
+  } else // Receive Message
+  if ((HexToNum(firstOctet_SMSDeliver) & 0x03) == 0) // Receive Message
+  {
+    //out = "Receive Message\n";
+    // length in decimals
+    var sender_addressLength = HexToNum(PDUString.substr(start, 2));
+    start = start + 2;
+    var sender_typeOfAddress = PDUString.substr(start, 2);
+    start = start + 2
+    var sender_number;
+    if (sender_typeOfAddress == "D0") {
+      _sl = sender_addressLength;
+      if (sender_addressLength % 2 != 0) {
+        sender_addressLength += 1;
+      }
+      sender_number = getUserMessage(PDUString.substring(start, start + sender_addressLength), parseInt(_sl / 2 * 8 / 7));
+    } else {
+      if (sender_addressLength % 2 != 0) {
+        sender_addressLength += 1;
+      }
+      sender_number = semiOctetToString(PDUString.substring(start, start + sender_addressLength));
+      if ((sender_number.substr(sender_number.length - 1, 1) == 'F') || (sender_number.substr(sender_number.length - 1, 1) == 'f')) {
+        sender_number = sender_number.substring(0, sender_number.length - 1);
+      }
+      if (sender_typeOfAddress == 91) {
+        sender_number = "+" + sender_number;
+      }
+    }
+    start += sender_addressLength;
+    var tp_PID = PDUString.substr(start, 2);
+    start += 2;
+    var tp_DCS = PDUString.substr(start, 2);
+    var tp_DCS_desc = tpDCSMeaning(tp_DCS);
+    start += 2;
+    var timeStamp = semiOctetToString(PDUString.substr(start, 14));
+    // get date
+    var year = timeStamp.substring(0, 2);
+    var month = timeStamp.substring(2, 4);
+    var day = timeStamp.substring(4, 6);
+    var hours = timeStamp.substring(6, 8);
+    var minutes = timeStamp.substring(8, 10);
+    var seconds = timeStamp.substring(10, 12);
+    timeStamp = day + "/" + month + "/" + year + " " + hours + ":" + minutes + ":" + seconds + " GMT ?"; //+" + timezone/4;
+    start += 14;
+    // Commonish...
+    var messageLength = HexToNum(PDUString.substr(start, 2));
+    start += 2;
+    var bitSize = DCS_Bits(tp_DCS);
+    var userData = "Undefined format";
+    if (bitSize == 7) {
+      userData = getUserMessage(PDUString.substr(start, PDUString.length - start), messageLength);
+    } else if (bitSize == 8) {
+      userData = getUserMessage8(PDUString.substr(start, PDUString.length - start), messageLength);
+    } else if (bitSize == 16) {
+      userData = getUserMessage16(PDUString.substr(start, PDUString.length - start), messageLength);
+    }
+    userData = userData.substr(0, messageLength);
+    if (bitSize == 16) {
+      messageLength /= 2;
+    }
+    out = JSON.stringify({mtype: out || "Receive message", smsc: SMSC_Number, number: sender_number, validity: ValidityPeriod, tp_pid: tp_PID, tp_dcs: tp_DCS, tp_dcs_popis: tp_DCS_desc, message: userData, mlength: messageLength, receipt_at: timeStamp});
+    //out += "SMSC#" + SMSC_Number + "\nSender:" + sender_number + "\nTimeStamp:" + timeStamp + "\nTP_PID:" + tp_PID + "\nTP_DCS:" + tp_DCS + "\nTP_DCS-popis:" + tp_DCS_desc + "\nMessage:" + userData + "\nLength:" + messageLength;
+  } else {
+    out = "Status Report";
+    var MessageReference = HexToNum(PDUString.substr(start, 2)); // ??? Correct this name
+    start = start + 2;
+    // length in decimals
+    var sender_addressLength = HexToNum(PDUString.substr(start, 2));
+    if (sender_addressLength % 2 != 0) {
+      sender_addressLength += 1;
+    }
+    start = start + 2;
+    var sender_typeOfAddress = PDUString.substr(start, 2);
+    start = start + 2
+    var sender_number = semiOctetToString(PDUString.substring(start, start + sender_addressLength));
+    if ((sender_number.substr(sender_number.length - 1, 1) == 'F') || (sender_number.substr(sender_number.length - 1, 1) == 'f')) {
+      sender_number = sender_number.substring(0, sender_number.length - 1);
+    }
+    if (sender_typeOfAddress == 91) {
+      sender_number = "+" + sender_number;
+    }
+    start += sender_addressLength;
+    var timeStamp = semiOctetToString(PDUString.substr(start, 14));
+    // get date
+    var year = timeStamp.substring(0, 2);
+    var month = timeStamp.substring(2, 4);
+    var day = timeStamp.substring(4, 6);
+    var hours = timeStamp.substring(6, 8);
+    var minutes = timeStamp.substring(8, 10);
+    var seconds = timeStamp.substring(10, 12);
+    var timezone = timeStamp.substring(12, 14);
+    timeStamp = day + "/" + month + "/" + year + " " + hours + ":" + minutes + ":" + seconds + " GMT +" + timezone / 4;
+    start += 14;
+    var timeStamp2 = semiOctetToString(PDUString.substr(start, 14));
+    // get date
+    var year2 = timeStamp2.substring(0, 2);
+    var month2 = timeStamp2.substring(2, 4);
+    var day2 = timeStamp2.substring(4, 6);
+    var hours2 = timeStamp2.substring(6, 8);
+    var minutes2 = timeStamp2.substring(8, 10);
+    var seconds2 = timeStamp2.substring(10, 12);
+    var timezone2 = timeStamp.substring(12, 14);
+    timeStamp2 = day2 + "/" + month2 + "/" + year2 + " " + hours2 + ":" + minutes2 + ":" + seconds2 + " GMT +" + timezone2 / 4;
+    start += 14;
+    var mStatus = PDUString.substr(start, 2);
+    //out += "SMSC#\n" + SMSC_Number + "\nSender:\n" + sender_number + "\nMessage Ref#:\n" + MessageReference + "\nTimeStamp:\n" + timeStamp + "\nTimeStamp2:\n" + timeStamp2 + "\nStatus Byte: " + mStatus;
+    out = JSON.stringify({mtype: out, smsc: SMSC_Number, number: sender_number, sms_id: MessageReference, validity: ValidityPeriod, tp_pid: tp_PID, tp_dcs: tp_DCS, tp_dcs_popis: tp_DCS_desc, message: userData, mlength: messageLength, sent_at: timeStamp, receipt_at: timeStamp2, status: mStatus});
+  }
+  return out;
+}
+
+function stringToPDU(inpString, phoneNumber, smscNumber, size, mclass, valid, receipt, vFlag) // AJA fixed SMSC processing
+  {
+    var bitSize = size;
+    var octetFirst = "";
+    var octetSecond = "";
+    var output = "";
+    //Make header
+    var SMSC_INFO_LENGTH = 0;
+    var SMSC_LENGTH = 0;
+    var SMSC_NUMBER_FORMAT = "";
+    var SMSC = "";
+    if (smscNumber != 0) {
+      SMSC_NUMBER_FORMAT = "81"; // national
+      if (smscNumber.substr(0, 1) == '+') {
+        SMSC_NUMBER_FORMAT = "91"; // international
+        smscNumber = smscNumber.substr(1);
+      } else if (smscNumber.substr(0, 1) != '0') {
+        SMSC_NUMBER_FORMAT = "91"; // international
+      }
+      if (smscNumber.length % 2 != 0) {
+        // add trailing F
+        smscNumber += "F";
+      }
+      SMSC = semiOctetToString(smscNumber);
+      SMSC_INFO_LENGTH = ((SMSC_NUMBER_FORMAT + "" + SMSC).length) / 2;
+      SMSC_LENGTH = SMSC_INFO_LENGTH;
+    }
+    if (SMSC_INFO_LENGTH < 10) {
+      SMSC_INFO_LENGTH = "0" + SMSC_INFO_LENGTH;
+    }
+    var firstOctet; // = "1100";
+    if (receipt) {
+      if (vFlag) {
+        firstOctet = "3100"; // 18 is mask for validity period // 10 indicates relative
+      } else {
+        firstOctet = "2100";
+      }
+    } else {
+      if (vFlag) {
+        firstOctet = "1100";
+      } else {
+        firstOctet = "0100";
+      }
+    }
+    var REIVER_NUMBER_FORMAT = "81"; // national
+    if (phoneNumber.substr(0, 1) == '+') {
+      REIVER_NUMBER_FORMAT = "91"; // international
+      phoneNumber = phoneNumber.substr(1); //,phoneNumber.length-1);
+    } else if (phoneNumber.substr(0, 1) != '0') {
+      REIVER_NUMBER_FORMAT = "91"; // international
+    }
+    var REIVER_NUMBER_LENGTH = intToHex(phoneNumber.length);
+    if (phoneNumber.length % 2 != 0) {
+      // add trailing F
+      phoneNumber += "F";
+    }
+    var REIVER_NUMBER = semiOctetToString(phoneNumber);
+    var PROTO_ID = "00";
+    var DCS = 0;
+    if (mclass != -1) // AJA
+    {
+      DCS = mclass | 0x10;
+    }
+    switch (bitSize) {
+      case 7:
+        break;
+      case 8:
+        DCS = DCS | 4;
+        break;
+      case 16:
+        DCS = DCS | 8;
+        break;
+    }
+    var DATA_ENCODING = intToHex(DCS);
+    //	var DATA_ENCODING = "00"; // Default
+    //	if (bitSize == 8)
+    //	{
+    //		DATA_ENCODING = "04";
+    //	}
+    //	else if (bitSize == 16)
+    //	{
+    //		DATA_ENCODING = "08";
+    //	}
+    var VALID_PERIOD = ""; // AA
+    if (vFlag) {
+      VALID_PERIOD = intToHex(valid); // AA
+    }
+    var userDataSize;
+    if (bitSize == 7) {
+      userDataSize = intToHex(inpString.length);
+      for (var i = 0; i <= inpString.length; i++) {
+        if (i == inpString.length) {
+          if (octetSecond != "") // AJA Fix overshoot
+          {
+            output = output + "" + (intToHex(binToInt(octetSecond)));
+          }
+          break;
+        }
+        var current = intToBin(getSevenBit(inpString.charAt(i)), 7);
+        var currentOctet;
+        if (i != 0 && i % 8 != 0) {
+          octetFirst = current.substring(7 - (i) % 8);
+          currentOctet = octetFirst + octetSecond; //put octet parts together
+          output = output + "" + (intToHex(binToInt(currentOctet)));
+          octetSecond = current.substring(0, 7 - (i) % 8); //set net second octet
+        } else {
+          octetSecond = current.substring(0, 7 - (i) % 8);
+        }
+      }
+    } else if (bitSize == 8) {
+      userDataSize = intToHex(inpString.length);
+      var CurrentByte = 0;
+      for (var i = 0; i < inpString.length; i++) {
+        CurrentByte = getEightBit(inpString.charCodeAt(i));
+        output = output + "" + (ToHex(CurrentByte));
+      }
+    } else if (bitSize == 16) {
+      userDataSize = intToHex(inpString.length * 2);
+      var myChar = 0;
+      for (var i = 0; i < inpString.length; i++) {
+        myChar = get16Bit(inpString.charCodeAt(i));
+        output = output + "" + (ToHex((myChar & 0xff00) >> 8)) + (ToHex(myChar & 0xff));
+      }
+    }
+    var header = SMSC_INFO_LENGTH + SMSC_NUMBER_FORMAT + SMSC + firstOctet + REIVER_NUMBER_LENGTH + REIVER_NUMBER_FORMAT + REIVER_NUMBER + PROTO_ID + DATA_ENCODING + VALID_PERIOD + userDataSize;
+    var PDU = header + output;
+    var AT = (PDU.length / 2 - SMSC_LENGTH - 1); // Add /2 for PDU length AJA - I think the SMSC information should also be excluded
+    //	var bStep=18;
+    //	for(var breakUp=1;breakUp*bStep < PDU.length;breakUp++)
+    //	{
+    //		PDU = PDU.substr(0,breakUp*bStep+breakUp-1) + " " + PDU.substr(breakUp*bStep+breakUp-1);
+    //	}
+    //CMGW
+    return JSON.stringify({size: AT, pdu: PDU});
+  }
+
+function DCS_Bits(tp_DCS) {
+  var AlphabetSize = 7; // Set Default
+  var pomDCS = HexToNum(tp_DCS);
+  switch (pomDCS & 192) {
+    case 0:
+      if (pomDCS & 32) {
+        // tp_DCS_desc="Compressed Text\n";
+      } else {
+        // tp_DCS_desc="Uncompressed Text\n";
+      }
+      switch (pomDCS & 12) {
+        case 4:
+          AlphabetSize = 8;
+          break;
+        case 8:
+          AlphabetSize = 16;
+          break;
+      }
+      break;
+    case 192:
+      switch (pomDCS & 0x30) {
+        case 0x20:
+          AlphabetSize = 16;
+          break;
+        case 0x30:
+          if (pomDCS & 0x4) {;
+          } else {
+            AlphabetSize = 8;
+          }
+          break;
+      }
+      break;
+  }
+  return (AlphabetSize);
+}
+
+function tpDCSMeaning(tp_DCS) {
+  var tp_DCS_desc = tp_DCS;
+  var pomDCS = HexToNum(tp_DCS);
+  switch (pomDCS & 192) {
+    case 0:
+      if (pomDCS & 32) {
+        tp_DCS_desc = "Compressed Text\n";
+      } else {
+        tp_DCS_desc = "Uncompressed Text\n";
+      }
+      if (!(pomDCS & 16)) // AJA
+      {
+        tp_DCS_desc += "class: No class\n";
+      } else {
+        tp_DCS_desc += "class:";
+        switch (pomDCS & 3) {
+          case 0:
+            tp_DCS_desc += "0\n";
+            break;
+          case 1:
+            tp_DCS_desc += "1\n";
+            break;
+          case 2:
+            tp_DCS_desc += "2\n";
+            break;
+          case 3:
+            tp_DCS_desc += "3\n";
+            break;
+        }
+      }
+      tp_DCS_desc += "Alphabet:";
+      switch (pomDCS & 12) {
+        case 0:
+          tp_DCS_desc += "Default\n";
+          break;
+        case 4:
+          tp_DCS_desc += "8bit\n";
+          break;
+        case 8:
+          tp_DCS_desc += "UCS2(16)bit\n";
+          break;
+        case 12:
+          tp_DCS_desc += "Reserved\n";
+          break;
+      }
+      break;
+    case 64:
+    case 128:
+      tp_DCS_desc = "Reserved coding group\n";
+      break;
+    case 192:
+      switch (pomDCS & 0x30) {
+        case 0:
+          tp_DCS_desc = "Message waiting group\n";
+          tp_DCS_desc += "Discard\n";
+          break;
+        case 0x10:
+          tp_DCS_desc = "Message waiting group\n";
+          tp_DCS_desc += "Store Message. Default Alphabet\n";
+          break;
+        case 0x20:
+          tp_DCS_desc = "Message waiting group\n";
+          tp_DCS_desc += "Store Message. UCS2 Alphabet\n";
+          break;
+        case 0x30:
+          tp_DCS_desc = "Data coding message class\n";
+          if (pomDCS & 0x4) {
+            tp_DCS_desc += "Default Alphabet\n";
+          } else {
+            tp_DCS_desc += "8 bit Alphabet\n";
+          }
+          break;
+      }
+      break;
+  }
+  return (tp_DCS_desc);
+}
+
+function Validity(valid) {
+  var byValidityPeriod = 0;
+  if (isNaN(parseInt(valid))) {
+    valid = 0;
+  } else {
+    valid = parseInt(valid);
+    if (valid < 0) {
+      valid = 0;
+    }
+    if (valid > 255) {
+      valid = 255;
+    }
+  }
+  return cValid(valid);
+}
+
+function cValid(valid) {
+  var value, out = "";
+  valid = parseInt(valid);
+  if (valid <= 143) {
+    value = (valid + 1) * 5; // Minutes
+  } else if (valid <= 167) {
+    value = ((valid - 143) / 2 + 12); // Hours
+    value *= 60; // Convert to Minutes
+  } else if (valid <= 196) {
+    value = valid - 166; // days
+    value *= 60 * 24; // Convert to Minutes
+  } else {
+    value = valid - 192; // Weeks
+    value *= 7 * 60 * 24; // Convert to Minutes
+  }
+  var mins, hours, days, weeks;
+  mins = value % 60;
+  hours = value / 60;
+  days = hours / 24;
+  weeks = days / 7;
+  hours %= 24;
+  days %= 7;
+  if (parseInt(weeks) != 0) {
+    out += parseInt(weeks) + "w ";
+  }
+  if (parseInt(days) != 0) {
+    out += parseInt(days) + "d ";
+  }
+  if (parseInt(hours) != 0) {
+    out += parseInt(hours) + "h ";
+  }
+  if (mins != 0) {
+    out += mins + "m ";
+  }
+  return out;
+}