mbirth/delphi-pbe
Archived
1
0
Fork 0
Code Releases 1 Activity

Initial Revision

Browse Source
This commit is contained in:
mbirth 2004-12-08 09:33:37 +00:00
commit 03bcfc89a3
7 changed files with 14505 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12452
GIFImage/gifimage.pas Normal file
View File

File diff suppressed because it is too large Load Diff

35
PBE.cfg Normal file
View File

@ -0,0 +1,35 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files\borland\delphi6\Projects\Bpl"
-LN"c:\program files\borland\delphi6\Projects\Bpl"

90
PBE.dof Normal file
View File

@ -0,0 +1,90 @@
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclOffice2k
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=1
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=PhoneBackup Editor
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=PhoneBackup Editor
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

14
PBE.dpr Normal file
View File

@ -0,0 +1,14 @@
program PBE;
uses
Forms,
PBE_U in 'PBE_U.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'PhoneBackup Editor';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

715
PBE_U.dfm Normal file
View File

@ -0,0 +1,715 @@
object Form1: TForm1
Left = 198
Top = 109
Width = 818
Height = 656
BorderIcons = [biSystemMenu, biMinimize]
Caption =
'PhoneBackup Editor (PBE) --- by Markus Birth <mbirth@webwriters.' +
'de>'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object DirLabel: TLabel
Left = 336
Top = 8
Width = 465
Height = 13
AutoSize = False
Caption =
'C:\Documents and Settings\Administrator\My Documents\Development' +
'\Delphi\PBE'
end
object PageControl1: TPageControl
Left = 8
Top = 272
Width = 793
Height = 329
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Phonebook'
object Label1: TLabel
Left = 135
Top = 12
Width = 52
Height = 20
Caption = 'Name:'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 158
Top = 44
Width = 31
Height = 13
Caption = 'Home:'
Enabled = False
end
object Label3: TLabel
Left = 161
Top = 68
Width = 29
Height = 13
Caption = 'Work:'
Enabled = False
end
object Label4: TLabel
Left = 156
Top = 93
Width = 34
Height = 13
Caption = 'Mobile:'
Enabled = False
end
object Label5: TLabel
Left = 170
Top = 117
Width = 20
Height = 13
Caption = 'Fax:'
Enabled = False
end
object Label6: TLabel
Left = 161
Top = 141
Width = 29
Height = 13
Caption = 'Other:'
Enabled = False
end
object Label7: TLabel
Left = 159
Top = 164
Width = 31
Height = 13
Caption = 'E-mail:'
Enabled = False
end
object Label8: TLabel
Left = 167
Top = 188
Width = 23
Height = 13
Caption = 'Title:'
Enabled = False
end
object Label9: TLabel
Left = 143
Top = 212
Width = 47
Height = 13
Caption = 'Company:'
Enabled = False
end
object PB_List: TListBox
Left = 0
Top = 0
Width = 129
Height = 233
Enabled = False
ItemHeight = 13
TabOrder = 0
OnClick = PB_ListClick
end
object PB_OrderGroup: TRadioGroup
Left = 0
Top = 240
Width = 105
Height = 57
Caption = 'Order'
Enabled = False
TabOrder = 1
end
object PB_OrderLF: TRadioButton
Left = 8
Top = 256
Width = 73
Height = 17
Caption = 'Last, First'
Checked = True
Enabled = False
TabOrder = 2
TabStop = True
OnClick = PB_OrderLFClick
end
object PB_OrderFL: TRadioButton
Left = 8
Top = 272
Width = 73
Height = 17
Caption = 'First Last'
Enabled = False
TabOrder = 3
OnClick = PB_OrderFLClick
end
object PB_Name: TEdit
Left = 192
Top = 8
Width = 273
Height = 28
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object PB_Home: TEdit
Left = 192
Top = 40
Width = 273
Height = 21
Enabled = False
TabOrder = 5
end
object PB_Work: TEdit
Left = 192
Top = 64
Width = 273
Height = 21
Enabled = False
TabOrder = 6
end
object PB_Mobile: TEdit
Left = 192
Top = 88
Width = 273
Height = 21
Enabled = False
TabOrder = 7
end
object PB_Fax: TEdit
Left = 192
Top = 112
Width = 273
Height = 21
Enabled = False
TabOrder = 8
end
object PB_Other: TEdit
Left = 192
Top = 136
Width = 273
Height = 21
Enabled = False
TabOrder = 9
end
object PB_Email: TEdit
Left = 192
Top = 160
Width = 273
Height = 21
Enabled = False
TabOrder = 10
end
object PB_Title: TEdit
Left = 192
Top = 184
Width = 273
Height = 21
Enabled = False
TabOrder = 11
end
object PB_Company: TEdit
Left = 192
Top = 208
Width = 273
Height = 21
Enabled = False
TabOrder = 12
end
object PB_PhotoGroup: TGroupBox
Left = 568
Top = 24
Width = 117
Height = 177
Caption = 'Photo'
TabOrder = 13
object PB_Photo: TImage
Left = 8
Top = 32
Width = 101
Height = 80
Center = True
Proportional = True
end
object PB_PhotoDelButton: TButton
Left = 8
Top = 120
Width = 101
Height = 17
Caption = 'Delete!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = PB_PhotoDelButtonClick
end
object PB_PhotoLoadButton: TButton
Left = 8
Top = 136
Width = 101
Height = 17
Caption = 'Load...'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object PB_PhotoSaveButton: TButton
Left = 8
Top = 152
Width = 101
Height = 17
Caption = 'Save...'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object PB_PhotoAtt: TCheckBox
Left = 7
Top = 13
Width = 106
Height = 17
Caption = 'photo attached'
Enabled = False
TabOrder = 3
end
end
object PB_NewButton: TButton
Left = 192
Top = 256
Width = 75
Height = 25
Caption = 'New'
Enabled = False
TabOrder = 14
end
object PB_DelButton: TButton
Left = 272
Top = 256
Width = 75
Height = 25
Caption = 'Delete!'
Enabled = False
TabOrder = 15
end
object PB_SaveButton: TButton
Left = 376
Top = 256
Width = 89
Height = 25
Caption = 'Save Changes'
Enabled = False
TabOrder = 16
end
end
object TabSheet2: TTabSheet
Caption = 'Calendar'
ImageIndex = 1
end
object TabSheet3: TTabSheet
Caption = 'SMSes'
ImageIndex = 2
object Label10: TLabel
Left = 651
Top = 4
Width = 84
Height = 13
Caption = 'SMS Protocoll ID:'
end
object Label11: TLabel
Left = 605
Top = 28
Width = 130
Height = 13
Caption = 'SMS Data Coding Scheme:'
end
object Label12: TLabel
Left = 576
Top = 52
Width = 54
Height = 13
Caption = 'Timestamp:'
end
object Label13: TLabel
Left = 148
Top = 13
Width = 33
Height = 13
Caption = 'SMSC:'
end
object Label14: TLabel
Left = 134
Top = 36
Width = 48
Height = 13
Caption = 'Recipient:'
end
object SM_List: TListBox
Left = 0
Top = 0
Width = 121
Height = 297
ItemHeight = 13
TabOrder = 0
end
object SM_Message: TEdit
Left = 136
Top = 56
Width = 233
Height = 113
AutoSize = False
Enabled = False
TabOrder = 1
Text = 'SM_Message'
end
object SM_SMSC: TEdit
Left = 184
Top = 8
Width = 185
Height = 21
Enabled = False
TabOrder = 2
Text = 'SM_SMSC'
end
object SM_Recipient: TEdit
Left = 184
Top = 32
Width = 185
Height = 21
Enabled = False
TabOrder = 3
Text = 'SM_Recipient'
end
object SM_PID: TEdit
Left = 736
Top = 0
Width = 49
Height = 21
Enabled = False
TabOrder = 4
Text = 'SM_PID'
end
object SM_DCS: TEdit
Left = 736
Top = 24
Width = 49
Height = 21
Enabled = False
TabOrder = 5
Text = 'SM_DCS'
end
object SM_TimeStamp: TEdit
Left = 632
Top = 48
Width = 153
Height = 21
Enabled = False
TabOrder = 6
Text = 'SM_TimeStamp'
end
object SM_NewButton: TButton
Left = 184
Top = 216
Width = 75
Height = 25
Caption = 'New'
Enabled = False
TabOrder = 7
end
object SM_DelButton: TButton
Left = 272
Top = 216
Width = 75
Height = 25
Caption = 'Delete!'
Enabled = False
TabOrder = 8
end
end
object TabSheet4: TTabSheet
Caption = 'Settings'
ImageIndex = 3
object PageControl2: TPageControl
Left = 8
Top = 8
Width = 769
Height = 273
ActivePage = TabSheet5
TabIndex = 0
TabOrder = 0
object TabSheet5: TTabSheet
Caption = 'WAP Profiles'
object WP_List: TListBox
Left = 0
Top = 0
Width = 121
Height = 241
ItemHeight = 13
TabOrder = 0
end
end
object TabSheet6: TTabSheet
Caption = 'Data Accounts'
ImageIndex = 1
end
object TabSheet7: TTabSheet
Caption = 'Bookmarks'
ImageIndex = 2
object Label15: TLabel
Left = 216
Top = 8
Width = 39
Height = 13
Caption = 'Caption:'
end
object Label16: TLabel
Left = 216
Top = 56
Width = 25
Height = 13
Caption = 'URL:'
end
object BM_List: TListBox
Left = 0
Top = 0
Width = 201
Height = 241
ItemHeight = 13
TabOrder = 0
end
object BM_Name: TEdit
Left = 216
Top = 24
Width = 233
Height = 21
TabOrder = 1
Text = 'BM_Name'
end
object BM_URL: TEdit
Left = 216
Top = 72
Width = 537
Height = 21
TabOrder = 2
Text = 'BM_URL'
end
object BM_UpButton: TButton
Left = 200
Top = 208
Width = 41
Height = 17
Caption = 'Up'
TabOrder = 3
end
object BM_DownButton: TButton
Left = 200
Top = 224
Width = 41
Height = 17
Caption = 'Down'
TabOrder = 4
end
object BM_NewButton: TButton
Left = 336
Top = 152
Width = 75
Height = 25
Caption = 'New'
TabOrder = 5
end
object BM_DelButton: TButton
Left = 416
Top = 152
Width = 75
Height = 25
Caption = 'Delete!'
TabOrder = 6
end
end
object TabSheet8: TTabSheet
Caption = 'Profiles'
ImageIndex = 3
object Label17: TLabel
Left = 128
Top = 8
Width = 61
Height = 13
Caption = 'Profile name:'
end
object PR_List: TListBox
Left = 0
Top = 0
Width = 121
Height = 241
ItemHeight = 13
TabOrder = 0
end
object PR_Name: TEdit
Left = 128
Top = 24
Width = 121
Height = 21
TabOrder = 1
Text = 'PR_Name'
end
end
object TabSheet9: TTabSheet
Caption = 'Locks'
ImageIndex = 4
object LO_AutoKeylock: TCheckBox
Left = 16
Top = 16
Width = 113
Height = 17
Caption = 'Automatic Keylock'
TabOrder = 0
end
end
object TabSheet10: TTabSheet
Caption = 'Time'
ImageIndex = 5
end
object TabSheet11: TTabSheet
Caption = 'My Shortcuts'
ImageIndex = 6
end
end
end
end
object StatusBar: TStatusBar
Left = 0
Top = 610
Width = 810
Height = 19
Panels = <>
SimplePanel = True
SimpleText = 'Select a PhoneBackup file (*.MS)'
end
object FileName: TEdit
Left = 336
Top = 240
Width = 257
Height = 21
Enabled = False
TabOrder = 2
Text = '*.MS'
end
object FileListBox1: TFileListBox
Left = 336
Top = 24
Width = 465
Height = 209
FileEdit = FileName
FileType = [ftHidden, ftSystem, ftNormal]
ItemHeight = 13
Mask = '*.MS'
TabOrder = 3
OnChange = FileListBox1Change
end
object DirectoryListBox1: TDirectoryListBox
Left = 8
Top = 32
Width = 321
Height = 201
DirLabel = DirLabel
FileList = FileListBox1
ItemHeight = 16
TabOrder = 4
OnChange = DirectoryListBox1Change
end
object DriveComboBox1: TDriveComboBox
Left = 8
Top = 8
Width = 321
Height = 19
DirList = DirectoryListBox1
TabOrder = 5
end
object FilterComboBox1: TFilterComboBox
Left = 8
Top = 240
Width = 321
Height = 21
FileList = FileListBox1
Filter = 'PhoneBackup files (*.MS)|*.MS|All files (*.*)|*.*'
TabOrder = 6
end
object Button_Load: TButton
Left = 597
Top = 240
Width = 75
Height = 20
Caption = 'Load'
Enabled = False
TabOrder = 7
OnClick = Button_LoadClick
end
object Button_Save: TButton
Left = 672
Top = 240
Width = 49
Height = 20
Caption = 'Save'
Enabled = False
TabOrder = 8
end
object ProgressBar: TProgressBar
Left = 336
Top = 264
Width = 465
Height = 22
Min = 0
Max = 100
TabOrder = 9
Visible = False
end
object Button_SaveAs: TButton
Left = 721
Top = 240
Width = 48
Height = 20
Caption = 'Save As'
Enabled = False
TabOrder = 10
end
object Button_Close: TButton
Left = 769
Top = 240
Width = 33
Height = 20
Caption = 'Close'
Enabled = False
TabOrder = 11
OnClick = Button_CloseClick
end
end

503
PBE_U.pas Normal file
View File

@ -0,0 +1,503 @@
unit PBE_U;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Jpeg, GIFImage, FileCtrl;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
PageControl2: TPageControl;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
StatusBar: TStatusBar;
PB_List: TListBox;
PB_OrderGroup: TRadioGroup;
PB_OrderLF: TRadioButton;
PB_OrderFL: TRadioButton;
PB_Name: TEdit;
PB_Home: TEdit;
PB_Work: TEdit;
PB_Mobile: TEdit;
PB_Fax: TEdit;
PB_Other: TEdit;
PB_Email: TEdit;
PB_Title: TEdit;
PB_Company: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
PB_PhotoGroup: TGroupBox;
PB_Photo: TImage;
PB_PhotoDelButton: TButton;
PB_PhotoLoadButton: TButton;
PB_PhotoSaveButton: TButton;
FileName: TEdit;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
DirLabel: TLabel;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
Button_Load: TButton;
Button_Save: TButton;
SM_List: TListBox;
SM_Message: TEdit;
PB_NewButton: TButton;
PB_DelButton: TButton;
SM_SMSC: TEdit;
SM_Recipient: TEdit;
SM_PID: TEdit;
SM_DCS: TEdit;
SM_TimeStamp: TEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
PB_PhotoAtt: TCheckBox;
BM_List: TListBox;
BM_Name: TEdit;
BM_URL: TEdit;
Label15: TLabel;
Label16: TLabel;
LO_AutoKeylock: TCheckBox;
PR_List: TListBox;
PR_Name: TEdit;
Label17: TLabel;
BM_UpButton: TButton;
BM_DownButton: TButton;
WP_List: TListBox;
BM_NewButton: TButton;
BM_DelButton: TButton;
SM_NewButton: TButton;
SM_DelButton: TButton;
PB_SaveButton: TButton;
ProgressBar: TProgressBar;
Button_SaveAs: TButton;
Button_Close: TButton;
procedure Button_LoadClick(Sender: TObject);
procedure PB_ListClick(Sender: TObject);
procedure PB_OrderFLClick(Sender: TObject);
procedure PB_OrderLFClick(Sender: TObject);
procedure PB_PhotoDelButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FileListBox1Change(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure Button_CloseClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TPBEntry = record
Version: String[5];
Name: String[30];
Home, Work, Mobile, Fax, Other: String[80];
Email: String[50];
Title: String[15];
Company: String[30];
PhotoFile: String[255];
end;
var
Form1: TForm1;
BackupFileName: string;
PhoneBook: array[1..999] of TPBEntry;
PhoneBookMax: integer;
PhoneBookPhotoCount: integer = 0;
f: Textfile;
implementation
{$R *.dfm}
function DecodeQP(my: string): string;
const qpa: string[16] = '0123456789ABCDEF';
var i: integer;
qp: byte;
begin
i := Pos('=',my);
while (i>0) do begin
my[i] := '?';
qp := (Pos(my[i+1],qpa)-1)*16+Pos(my[i+2],qpa)-1;
my := Copy(my,1,i-1)+Chr(qp)+Copy(my,i+3,Length(my)-i-2);
i := Pos('=',my);
end;
DecodeQP := my;
end;
function B64toBin(my: string): string;
const b64a: string[64] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var x,i,j: integer;
res: string;
begin
res := '';
for i:=1 to 4 do begin
x := Pos(my[i],b64a)-1;
if (x>=0) then begin
j := 32;
repeat
if (x DIV j)>0 then begin
res := res + '1';
x := x - j;
end else res := res + '0';
j := j DIV 2;
until (j=0);
end else begin
res := res + '000000';
end;
end;
B64toBin := res;
end;
function BintoASC(my: string): string;
var i: integer;
res: string;
begin
res := '';
while (Length(my)>=8) do begin
i := 0;
if (my[1]<>'0') then i := i + 128;
if (my[2]<>'0') then i := i + 64;
if (my[3]<>'0') then i := i + 32;
if (my[4]<>'0') then i := i + 16;
if (my[5]<>'0') then i := i + 8;
if (my[6]<>'0') then i := i + 4;
if (my[7]<>'0') then i := i + 2;
if (my[8]<>'0') then i := i + 1;
res := res + Chr(i);
my := Copy(my,9,Length(my)-8);
end;
BintoASC := res;
end;
function DecodeB64(my: AnsiString): AnsiString;
var buf: string[4];
binbuf: string[24];
res: string;
begin
res := '';
while Length(my)>=4 do begin
buf := Copy(my,1,4);
my := Copy(my,5,Length(my)-4);
binbuf := B64toBin(buf); // convert 4 B64-hextets to a 24 Bit-string ('0' or '1')
res := res + BintoASC(binbuf); // convert the binary string to 3 Bytes
end;
DecodeB64 := res;
end;
function FindPhotoInStream(data: AnsiString): string;
var i: integer;
fn,t: string;
f: TextFile;
begin
fn := '';
i := Pos('PHOTO;ENCODING=BASE64;TYPE=',data);
if (i>0) then begin
data := Copy(data,i+27,Length(data)-i-27);
i := Pos('<br/><br/>',data); // Find end of record
if (i>0) then begin
data := Copy(data,1,i-1);
end;
data := StringReplace(data,'<br/>','',[rfReplaceAll]); // Remove all <br/>
i := Pos(':',data); // Find Image-Type (first 3 or 4 chars followed by a colon)
if (i>0) then begin
t := Copy(data,1,i-1); // Now contains the Image-Type ('JPEG' or 'GIF')
data := Copy(data,i+1,Length(data)-i); // The pure data in Base64
end;
data := DecodeB64(data);
Inc(PhoneBookPhotoCount);
fn := GetEnvironmentVariable('TEMP')+'\PBE\';
if NOT DirectoryExists(fn) then if NOT CreateDir(fn) then Exit;
fn := fn + 'PB';
if (PhoneBookPhotoCount<100) then fn := fn + '0';
if (PhoneBookPhotoCount<10) then fn := fn + '0';
fn := fn + IntToStr(PhoneBookPhotoCount) + '.';
if (t='JPEG') then fn := fn + 'jpg';
if (t='GIF') then fn := fn + 'gif';
AssignFile(f, fn);
Rewrite(f);
Write(f,data);
CloseFile(f);
end;
FindPhotoInStream := fn; // Return the filename of the extracted picture
end;
function FindDataInStream(field: string; data: AnsiString): string;
var i,j: integer;
s: string;
qp: boolean;
tmp: string;
begin
qp := false;
s := '<br/>'+field+':';
i := Pos(s, data);
if (i<=0) then begin
s := '<br/>'+field+';ENCODING=QUOTED-PRINTABLE:';
i := Pos(s, data);
if (i>0) then qp := true;
end;
if (i>0) then begin
j := Pos('<br/>',Copy(data,i+5,Length(data)-i-5))+i+5;
tmp := Copy(data,i+Length(s),j-i-Length(s)-1);
end else tmp := '';
if (qp) then tmp := DecodeQP(tmp);
FindDataInStream := tmp;
end;
function ParsePBStream(data: AnsiString): TPBEntry;
var tmp: TPBEntry;
begin
tmp.Version := FindDataInStream('VERSION',data);
tmp.Name := FindDataInStream('N',data);
tmp.Home := FindDataInStream('TEL;HOME',data);
tmp.Work := FindDataInStream('TEL;WORK',data);
tmp.Mobile := FindDataInStream('TEL;CELL',data);
tmp.Fax := FindDataInStream('TEL;FAX',data);
tmp.Other := FindDataInStream('TEL',data);
tmp.Email := FindDataInStream('EMAIL;INTERNET;PREF',data);
tmp.Title := FindDataInStream('TITLE',data);
tmp.Company := FindDataInStream('COMPANY',data);
tmp.PhotoFile := FindPhotoInStream(data);
ParsePBStream := tmp;
end;
function FormatName(y: string): string;
var x1,x2,x: string;
i: integer;
begin
i := Pos(';',y);
if (i>0) then begin
x1 := Copy(y,1,i-1);
x2 := Copy(y,i+1,Length(y)-i);
if (Length(x1)>0) AND (Length(x2)>0) then begin
if (Form1.PB_OrderLF.Checked) then x := x1 + ', ' + x2 else x := x2 + ' ' + x1;
end else if (Length(x1)=0) AND (Length(x2)>0) then x := x2
else if (Length(x1)>0) AND (Length(x2)=0) then x := x1
else if (Length(x1)=0) AND (Length(x2)=0) then x := '<no name>';
end else x := y;
FormatName := x;
end;
procedure BuildPBList;
var i: integer;
begin
Form1.PageControl1.ActivePageIndex := 0;
Form1.PB_List.Clear;
for i:=1 to PhoneBookMax do begin
Form1.PB_List.Items.Add(FormatName(PhoneBook[i].Name));
end;
end;
procedure DeleteTemp;
var i: integer;
e: boolean;
d: string;
begin
e := false;
d := '';
if (PhoneBookMax>0) then begin
for i:=1 to PhoneBookMax do begin
if (PhoneBook[i].PhotoFile<>'') then begin
if (d='') then d := ExtractFileDir(PhoneBook[i].PhotoFile);
if (NOT DeleteFile(PhoneBook[i].PhotoFile)) then e := true;
end;
end;
if (d<>'') then if NOT RemoveDir(d) then e := true;
if e then ShowMessage('Some files could not be deleted. Check '+d+' to delete them manually.');
end;
end;
procedure ReadPBintoMem(var InFile: TextFile);
var i: integer;
cl: AnsiString;
begin
Form1.ProgressBar.Min := 0;
Form1.ProgressBar.Max := FileSize(InFile);
Form1.ProgressBar.Visible := true;
i:=1;
repeat
ReadLn(InFile, cl);
until Eof(InFile) OR (cl='<Contacts>');
ReadLn(InFile, cl);
repeat
Form1.ProgressBar.Position := FilePos(InFile);
cl := Trim(cl);
PhoneBook[i] := ParsePBStream(cl);
Inc(i);
ReadLn(InFile, cl);
until Eof(InFile) OR (cl='<Contacts/>');
PhoneBookMax := i-1;
Form1.StatusBar.SimpleText := 'Loaded '+IntToStr(PhoneBookMax)+' contacts into memory.';
BuildPBList;
Form1.ProgressBar.Visible := false;
end;
procedure EnablePBFields(x: boolean);
begin
with Form1 do begin
Label1.Enabled := x;
PB_Name.Enabled := x;
Label2.Enabled := x;
PB_Home.Enabled := x;
Label3.Enabled := x;
PB_Work.Enabled := x;
Label4.Enabled := x;
PB_Mobile.Enabled := x;
Label5.Enabled := x;
PB_Fax.Enabled := x;
Label6.Enabled := x;
PB_Other.Enabled := x;
Label7.Enabled := x;
PB_Email.Enabled := x;
Label8.Enabled := x;
PB_Title.Enabled := x;
Label9.Enabled := x;
PB_Company.Enabled := x;
end;
end;
procedure TForm1.Button_LoadClick(Sender: TObject);
begin
Form1.Button_Load.Enabled := false;
Form1.DirectoryListBox1.Enabled := false;
Form1.DriveComboBox1.Enabled := false;
Form1.FilterComboBox1.Enabled := false;
Form1.FileListBox1.Enabled := false;
BackupFileName := DirectoryListBox1.Directory+'\'+FileName.Text;
StatusBar.SimpleText := 'Loading '+BackupFileName+' ...';
AssignFile(f,BackupFileName);
StatusBar.SimpleText := StatusBar.SimpleText + '...';
Reset(f);
StatusBar.SimpleText := StatusBar.SimpleText + '...';
ReadPBintoMem(f);
StatusBar.SimpleText := StatusBar.SimpleText + ' done.';
CloseFile(f);
Form1.PB_List.Enabled := true;
Form1.PB_OrderGroup.Enabled := true;
Form1.PB_OrderFL.Enabled := true;
Form1.PB_OrderLF.Enabled := true;
Form1.Button_Save.Enabled := true;
Form1.Button_SaveAs.Enabled := true;
Form1.Button_Close.Enabled := true;
end;
procedure TForm1.PB_ListClick(Sender: TObject);
var i: integer;
x: TJPEGImage;
y: TGIFImage;
begin
i := Form1.PB_List.ItemIndex+1;
x := TJpegImage.Create;
y := TGIFImage.Create;
Form1.PB_Name.Text := FormatName(PhoneBook[i].Name);
Form1.PB_Home.Text := PhoneBook[i].Home;
Form1.PB_Work.Text := PhoneBook[i].Work;
Form1.PB_Mobile.Text := PhoneBook[i].Mobile;
Form1.PB_Fax.Text := PhoneBook[i].Fax;
Form1.PB_Other.Text := PhoneBook[i].Other;
Form1.PB_Email.Text := PhoneBook[i].Email;
Form1.PB_Title.Text := PhoneBook[i].Title;
Form1.PB_Company.Text := PhoneBook[i].Company;
if PhoneBook[i].PhotoFile <> '' then Form1.PB_PhotoAtt.Checked := true else Form1.PB_PhotoAtt.Checked := false;
if (PhoneBook[i].PhotoFile<>'') then begin
if (Pos('.jp',PhoneBook[i].PhotoFile)>0) then begin
x.LoadFromFile(PhoneBook[i].PhotoFile);
Form1.PB_Photo.Picture.Graphic := x;
x.Free;
end;
if (Pos('.gif',PhoneBook[i].PhotoFile)>0) then begin
y.LoadFromFile(PhoneBook[i].PhotoFile);
Form1.PB_Photo.Picture.Graphic := y;
y.Free;
end;
Form1.PB_Photo.Visible := true;
end else Form1.PB_Photo.Visible := false;
EnablePBFields(true);
end;
procedure TForm1.PB_OrderFLClick(Sender: TObject);
begin
BuildPBList;
end;
procedure TForm1.PB_OrderLFClick(Sender: TObject);
begin
BuildPBList;
end;
procedure TForm1.PB_PhotoDelButtonClick(Sender: TObject);
var i: integer;
begin
i := Form1.PB_List.ItemIndex+1;
PhoneBook[i].PhotoFile := '';
Form1.PB_ListClick(Sender);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DeleteTemp;
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if (FileExists(DirectoryListBox1.Directory+'\'+FileName.Text)) AND (Pos('*',FileName.Text)=0) AND (NOT Button_Close.Enabled) then Button_Load.Enabled := true else Button_Load.Enabled := false;
end;
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
if (FileExists(DirectoryListBox1.Directory+'\'+FileName.Text)) AND (Pos('*',FileName.Text)=0) AND (NOT Button_Close.Enabled) then Button_Load.Enabled := true else Button_Load.Enabled := false;
end;
procedure TForm1.Button_CloseClick(Sender: TObject);
begin
StatusBar.SimpleText := 'Cleaning up ...';
EnablePBFields(false);
PB_List.Enabled := false;
PB_OrderGroup.Enabled := false;
PB_OrderFL.Enabled := false;
PB_OrderLF.Enabled := false;
PB_List.Clear;
PB_Name.Text := '';
PB_Home.Text := '';
PB_Work.Text := '';
PB_Mobile.Text := '';
PB_Fax.Text := '';
PB_Other.Text := '';
PB_Email.Text := '';
PB_Title.Text := '';
PB_Company.Text := '';
PB_PhotoAtt.Checked := false;
PB_Photo.Visible := false;
DeleteTemp;
PhoneBookMax := 0;
StatusBar.SimpleText := StatusBar.SimpleText + ' done.';
Button_Close.Enabled := false;
Button_SaveAs.Enabled := false;
Button_Save.Enabled := false;
if (FileExists(DirectoryListBox1.Directory+'\'+FileName.Text)) AND (Pos('*',FileName.Text)=0) then Button_Load.Enabled := true else Button_Load.Enabled := false;
Form1.DriveComboBox1.Enabled := true;
Form1.DirectoryListBox1.Enabled := true;
Form1.FilterComboBox1.Enabled := true;
Form1.FileListBox1.Enabled := true;
end;
end.

696
PDUFormat/sms_pdu.html Normal file
View File

@ -0,0 +1,696 @@
<head><title>SMS and PDU format</title>
<script language="javascript">
/* Script written by Swen-Peter Ekkebus, edited by Ing. Milan Chudik
* ekkebus[at]cs.utwente.nl
* Feel free to use it, please do'nt forget to link to the source ;)
* Version 1.4
*
* 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 = "";
maxkeys = 160;
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: alert('Only insert Hex values!!');
return 'X';
}
}
//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 getSevenBit(character) //sp
{
for(var i=0;i<sevenbitdefault.length;i++){
if(sevenbitdefault[i] == character){
return i;
}
}
alert("No 7 bit char!");
return 0;
}
// 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 + temp.charAt(1) + temp.charAt(0);
}
return out;
}
//Main function to translate the input to a "human redable" string
function getUserMessage(input)
{
var byteString = "";
octetArray = new Array();
restArray = new Array();
septetsArray = new Array();
var s=1;
var count = 0;
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>";
}
// 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></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;
}
// put the right parts of the array's thogether to make he 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>";
}
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>";
}
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>";
}
}
//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 to build a popup window with the calculation a innformation
function showCalculation()
{
if(calculation.length != 0)
{
myWin=open('','','width=600,height=200,resizable=yes,location=no,directories=no,toolbar=no,status=no,scrollbars=yes');
var b='<html><head><title>Calculation</title></head><body><center>'+calculation+'</center></body></html>';
a=myWin.document;
a.open();
a.write(b);
a.close();
}
}
// Function to get SMSmeta info information from PDU String
function getPDUMetaInfo(inp)
{
var PDUString = inp;
var start = 0;
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));
SMSC_Number = semiOctetToString(SMSC_Number);
// if the length is odd remove the trailing F
if(SMSC_Number[SMSC_Number.length-1] == 'F' || SMSC_Number[SMSC_Number.length-1] == 'f')
SMSC_Number = SMSC_Number.substring(0,SMSC_Number.length-1);
var start_SMSDeleivery = (SMSC_lengthInfo*2)+2;
start = start_SMSDeleivery;
var firstOctet_SMSDeliver = PDUString.substr(start,2);
// length in decimals
start = start + 2;
var sender_addressLength = HexToNum(PDUString.substr(start,2));
if(sender_addressLength%2 != 0) sender_addressLength +=1; //v pripade ak je neparna dlzka, nech vezme aj posledny znak
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[sender_number.length-1] == 'F' || sender_number[sender_number.length-1] == 'f' )
sender_number = sender_number.substring(0,sender_number.length-1);
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;
start +=14;
var messageLength = HexToNum(PDUString.substr(start,2));
start += 2;
var userData = getUserMessage(PDUString.substr(start,PDUString.length-start));
var out = "SMSC # : "+SMSC_Number+"\nSender : "+sender_number+"\nTimeStamp : "+timeStamp+"\nTP_PID:"+tp_PID+"\nTP_DCS:"+tp_DCS+"\nTP_DCS-popis:"+tp_DCS_desc+"\nMessage length : "+messageLength+"\n\n"+userData;
return out;
}
// function that print the default alphabet to a String
function printDefaultAlphabet()
{
var out = "";
out = "<table border=1 cellpadding=0 cellspacing=0 width=300>";
out = out + "<tr><td align=center>#</td><td align=center>character</td><td align=center>ASCII Code</td><td align=center>bits</td></tr>";
for(var i=0;i<sevenbitdefault.length;i++)
{
out = out + "<tr><td align=center>"+ i + "</td><td align=center>" +sevenbitdefault[i] + "</td><td align=center>" + sevenbitdefault[i].charCodeAt(0) + "</td><td align=center>"+intToBin(sevenbitdefault[i].charCodeAt(0),8)+ "</td></tr>";
}
out = out +"</tabel>";
return out;
}
// function to make a new window
function show(title,text) {
myWin=open('','','width=350,height=500,resizable=no,location=no,directories=no,toolbar=no,status=no,scrollbars=yes');
var b='<html><head><title>'+title+'</title></head><body><center>'+ text +'</center></body></html>';
a=myWin.document;
a.open();
a.write(b);
a.close();
}
function stringToPDU(inpString,phoneNumber,smscNumber) //sp
{
var octetFirst = "";
var octetSecond = "";
var output = "";
//Make header
var SMSC_INFO_LENGTH = 0;
var SMSC_NUMBER_FORMAT = "91"; //international
if(smscNumber.length%2 != 0){
//add taining F
smscNumber += "F";
}
var SMSC = semiOctetToString(smscNumber);
SMSC_INFO_LENGTH = ((SMSC_NUMBER_FORMAT + ""+ SMSC).length)/2;
if(SMSC_INFO_LENGTH < 10){
SMSC_INFO_LENGTH = "0" + SMSC_INFO_LENGTH;
}
var firstOctet = "1100";
var REIVER_NUMBER_LENGTH = intToHex(phoneNumber.length);
if(phoneNumber.length%2 != 0){
//add taining F
phoneNumber += "F";
}
var REIVER_NUMBER = semiOctetToString(phoneNumber);
var REIVER_NUMBER_FORMAT = "91";
var PROTO_ID = "00";
var DATA_ENCODING = "00";
var VALID_PERIOD = "AA";
var userDataSize = intToHex(inpString.length);
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;
for(var i=0;i<=inpString.length;i++)
{
if(i==inpString.length)
{ //als laatse teken is
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);
}
}
var PDU = header + output;
var AT = "AT+CMGW=" + PDU.length;
//CMGW
return AT + "\n" + PDU;
}
function change (what)
{
var keysSoFar = what.value.length;
if (keysSoFar > maxkeys)
{
if (!alerted) alert ('Max length '+ maxkeys + '!');
what.value = what.value.substring (0, maxkeys); //chop
alerted = true;
keysSoFar = maxkeys;
}
window.status = "Characters left : " + (maxkeys - keysSoFar);
}
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="Text is compressed\n";
else tp_DCS_desc="Text is uncompressed\n";
if(pomDCS & 16) tp_DCS_desc+="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 alphabet\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: tp_DCS_desc ="Reserved coding group";break;
case 128: tp_DCS_desc ="Reserved coding group";break;
case 192: tp_DCS_desc ="Message waiting group";break;
}
//alert(tp_DCS.valueOf());
return(tp_DCS_desc);
}
</script>
<meta content="MSHTML 6.00.2800.1170" name="GENERATOR"></head>
<body><big>Contents</big><br>
<ul>
<li><a href="#SMS">SMS
format</a>
</li><li><a href="#PDU">PDU
format</a>
</li><li><a href="#PDU_CONVERTER">PDU
converter</a>
</li><li><a href="#STRING_CONVERTER">String
converter</a>
</li><li><a href="#LINKS">Links</a>
</li><li><a href="#References">References</a>
</li></ul>
<p><a name="sms"><big>SMS</big></a> (Short Message Service) is specified by the
ETSI (standards GSM 03.40<sub>1</sub> and 03.38<sub>2 </sub>). It can contain up
to 160 characters, when each character is written according the <i>7-bits GSM
default alphabet</i>.[ <a href="javascript:show('7%20bits%20default%20tabel',printDefaultAlphabet());">7
bits default tabel</a> ]<br><br>Next to a message the SMS containt also some
meta-data, for example<br>&nbsp;- Info about the senders ( Service center
number, sender number)&nbsp;<br>&nbsp;- Protocol information&nbsp; (Protocol
identifier, Data coding scheme)<br>&nbsp;- Time stamp&nbsp;<br><br>There are two
way to recieve and send SMS messages <sub>a</sub>, PDU (protocol discription
unit) and Text mode. In this document we focus on PDU mode.<br><br><a name="PDU"><big>PDU</big></a> format can be used on any encoding. To explain you
the SMS PDU encoding we use an example:
</p><p>07911326040000F0040B911346610089F60000208062917314080CC8F71D14969741F977FD07</p>The
above PDU string contains the message "How are you?" and was read from a Siemens
C35i mobile phone.<br>The string is build from <i>hexadecimal-octets</i> and
<i>semi decimal-octets.</i> As mentioned before, the SMS contains some meta-data
about him self.<br>We explain it using the example above:<br><br>
<center>
<table cellspacing="0" cellpadding="0" width="713" border="1">
<tbody>
<tr>
<td align="center" width="138"><b>Octet(s)</b></td>
<td align="center" width="283"><b>Description</b></td>
<td align="center" width="151"><b>format</b></td>
<td align="center" width="133"><b>In this example</b></td></tr>
<tr>
<td width="138">07</td>
<td width="283">Length of the SMSC information</td>
<td align="center" width="151">
<p align="center">hex-octet</p></td>
<td align="center" width="133">
<p align="center">7 octets</p></td></tr>
<tr>
<td width="138">91</td>
<td width="283">Type of address of SMSC</td>
<td align="center" width="151">hex-octet</td>
<td align="center" width="133">internation format</td></tr>
<tr>
<td width="138">13 26 04 00 00 F0</td>
<td width="283">SMSC number</td>
<td align="center" width="151">decimal semi-octets <sub>b</sub></td>
<td align="center" width="133">31624000000</td></tr>
<tr>
<td width="138">04</td>
<td width="283">First octet of this SMS-DELIVER message.</td>
<td align="center" width="151">hex-octet</td>
<td align="center" width="133">TP-MMS</td></tr>
<tr>
<td width="138">0B</td>
<td width="283">Lenght of the sender address</td>
<td align="center" width="151">hex-octet</td>
<td align="center" width="133">11 (decimal)</td></tr>
<tr>
<td width="138">91</td>
<td width="283">Type of address of the sender number</td>
<td align="center" width="151">hex-octet</td>
<td align="center" width="133">...</td></tr>
<tr>
<td width="138">13 46 61 00 89 F6</td>
<td width="283">Sender number</td>
<td align="center" width="151">decimal semi-octets</td>
<td align="center" width="133">31641600986</td></tr>
<tr>
<td width="138">00</td>
<td width="283">Protocol identifier</td>
<td align="center" width="151">hex-octets</td>
<td align="center" width="133">...</td></tr>
<tr>
<td width="138">00</td>
<td width="283">Data encoding scheme</td>
<td align="center" width="151">hex-octets</td>
<td align="center" width="133">...</td></tr>
<tr>
<td width="138">20 80 62 91 73 14 08</td>
<td width="283">Time stamp <sub>c</sub></td>
<td align="center" width="151">decimal semi-octets</td>
<td align="center" width="133">06-08-02 29:17:31</td></tr>
<tr>
<td width="138">0C</td>
<td width="283">Length of User data (SMS message)</td>
<td align="center" width="151">hex-octets</td>
<td align="center" width="133">12 (decimal)</td></tr>
<tr>
<td width="138">C8 F7 1D 14 96 97 41 F9 77 FD 07</td>
<td width="283">User data</td>
<td align="center" width="151">8-bit octets respresenting 7-bit data</td>
<td align="center" width="133">How are you?</td></tr></tbody></table>
<p><small>Tabel 1.<br></small></p></center><br><br><a name="PDU_CONVERTER"><big>PDU
converter</big></a> is an online PDU string analyser.<br><p></p>
<center>
<form name="pduToStringForm">
<table cellspacing="0" cellpadding="0" width="500" border="0">
<tbody>
<tr>
<td align="center">Hexadecimal PDU Message
<p></p></td>
<td></td>
<td align="center">7-bit PDU Message (readable)
<p></p></td></tr>
<tr>
<td valign="top" align="center" width="200"><textarea name="smsText" rows="10" wrap="VIRTUAL">07911326040000F0040B911346610089F60000208062917314080CC8F71D14969741F977FD07</textarea>
</td>
<td width="50"></td>
<td valign="top" width="250"><textarea name="smsOut" rows="10" wrap="VIRTUAL"></textarea></td></tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td></tr>
<tr>
<td align="center"><input onclick="smsOut.value= getPDUMetaInfo(document.pduToStringForm.smsText.value);" type="button" size="11" value=" Convert " name="checkButton"></td>
<td></td>
<td align="center"><small><a href="javascript:showCalculation();">Show User
data translation</a></small></td></tr></tbody></table></form></center>
<form name="stringToPduForm">
<p><a name="STRING_CONVERTER"><big>String
converter</big></a> is an online String to PDU analyser.<br></p>
<center>
<table cellspacing="0" cellpadding="0" width="500" border="0">
<tbody>
<tr>
<td align="center">String sms message
<p></p>
</td>
<td></td>
<td align="center">Hexadecimal PDU Message
<p></p>
</td>
</tr>
<tr>
<td valign="top" align="center" width="200">
<table width="80%" border="0" cellpadding="0" cellspacing="8">
<tbody><tr>
<td>SMSC</td>
<td><input type="text" name="smscNumber" size="15" value="31653131313"></td>
</tr>
<tr>
<td>Receiver</td>
<td><input type="text" name="phoneNumber" size="15" value="31612345678"></td>
</tr>
</tbody></table>
<textarea name="smsText" rows="6" wrap="VIRTUAL" onchange="change(this)" onkeyup="change(this)">How are you?</textarea>
</td>
<td width="50"></td>
<td valign="top" width="250">
<textarea name="pduOut" rows="10" wrap="VIRTUAL"></textarea>
</td></tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center"><input onclick="pduOut.value= stringToPDU(document.stringToPduForm.smsText.value,document.stringToPduForm.phoneNumber.value,document.stringToPduForm.smscNumber.value);" type="button" size="11" value=" Convert " name="stringButton"></td>
<td></td>
<td align="center"></td></tr></tbody>
</table>
</center>
<p><big><a name="LINKS">Links</a></big></p><a href="http://www.etsi.org/" target="_blank">The European Telecommunications Standards Institute
(ETSI)</a><br><a href="http://www.dreamfabric.com/sms/" target="_blank">Lars
Pettersson about PDU mode</a>
<p><b>Notes</b> </p>
<table cellspacing="0" cellpadding="0" width="600" border="0">
<tbody>
<tr>
<td valign="top" width="50">a.</td>
<td width="550">To see which modes your mobile supports, you can use the
"AT+CMGF=?" command.<br>You will get a response with the supported SMS
formats<br>&nbsp;0: PDU mode, 1: Text mode </td></tr>
<tr>
<td valign="top" width="50">b.</td>
<td width="550">To obtain data from a string that is written as a
semi-octet, you have to swap the semi-octet string. If the length of a
semi-octet string is odd, you have to add an extra "F" to make it even, so
that you get a proper octet string.<br><i>Example</i>:<br>&nbsp;"13 46 61
00 89 F6" becomes "31 64 16 00 98 6F" </td></tr>
<tr>
<td valign="top" width="50">c.</td>
<td width="550">Time stamp is represented in semi-octets (See note b). So
"20 80 62 91 73 14 08" becomes "02 08 26 02 29 17 31 80". The first 6
characters represent the date, the next 6 characters represent the time,
the last 2 characters represent the time-zone related to the GMT.
</td></tr></tbody></table>
<p><big><a name="References">References</a></big></p>
<table cellspacing="0" cellpadding="0" width="600" border="0">
<tbody>
<tr>
<td valign="top" width="50">1.</td>
<td width="550">Digital cellular telecommunications system (Phase 2+);
Technical realization of the Short Message Service (SMS)Point-to-Point
(PP) (3GPP TS 03.40 version 7.5.0 Release 1998), ETSI TS 100 901 V7.5.0
(2001-12) </td></tr>
<tr>
<td valign="top" width="50">2.</td>
<td width="550">Digital cellular telecommunications system (Phase 2+);
Alphabets and language-specific information (GSM 03.38 version 7.2.0
Release 1998), ETSI TS 100 900 V7.2.0 (1999-07) </td></tr></tbody></table>
<p><small>Written by Swen-Peter Ekkebus, v1.0 august 2002 | v1.2 may 2003 | v1.4 august 2003 [Milan Chudik],
ekkebus[at]cs.utwente.nl </small> </p></form></body></html>
<!-- 0791249150033330240C9124917028825700003080103150110019C4F0BAAE2EB741D66013642FB3DB69D05AFE9FBBCB21 -->
<p>
<a target="_top" href="http://t.extreme-dm.com/?login=smspdu">
<img src="http://t1.extreme-dm.com/i.gif" height=9
border=0 width=10 alt=""></a><script language="javascript1.2"><!--
EXs=screen;EXw=EXs.width;navigator.appName!="Netscape"?
EXb=EXs.colorDepth:EXb=EXs.pixelDepth;//-->
</script><script language="javascript"><!--
EXd=document;EXw?"":EXw="na";EXb?"":EXb="na";
EXd.write("<img src=\"http://t0.extreme-dm.com",
"/c.g?tag=smspdu&j=y&srw="+EXw+"&srb="+EXb+"&",
"l="+escape(EXd.referrer)+"\" height=1 width=1>");//-->
</script><noscript><img height=1 width=1 alt=""
src="http://t0.extreme-dm.com/c.g?tag=smspdu&j=n"></noscript>
<!-- Start Topstat XL tellercode -->
<script language="JavaScript" src="http://xl.topstat.com/nl/xl/insert.js"></script>
<script language="JavaScript">
br=navigator.appName;
var code="http://xl.topstat.com/nl/xl/cnt.php?account=2147484810"
code+=("&rf="+escape(document.referrer))
</script><script language="JavaScript1.2">
br!="Netscape"?srb=screen.colorDepth:srb=screen.pixelDepth;
code+=("&r="+screen.width)
code+=("&k="+srb)
document.write("<a link='Topstat Statistieken' href='http://xl.topstat.com/nl/xl/show.php?account=2147484810' target='_blank'>");
document.write("<IMG SRC='"+code+"' HEIGHT='10' WIDTH='10' border='0' alt='Website statistieken'>");
document.write("</a>");
</script>
<noscript>
<a link='Topstat Statistieken' href="http://xl.topstat.com/nl/xl/show.php?account=2147484810" target="_blank"><img
src="http://xl.topstat.com/nl/xl/cnt.php?account=2147484810" width="20" height="20" border="0"></a>
</noscript>
<!-- Eind Topstat XL tellercode -->
</p>
</body></html>