20-rizky Dian P-text To Pdu.docx

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

TEXT TO PDU

A. TUJUAN  Mampu mengkonversi teks yang dikirim dan diterima ke format Protocol Data Unit.  Dapat merubah format teks ke dalam format Protocol Data Unit (PDU) dengan program Delphi. B. TEORI DASAR 1. PROTOCOL DATA UNIT (PDU) Protocol Data Unit atau yang sering disebut dengan PDU merupakan bentuk potongan potongan data pada setiap layer/lapisan yang berjalan pada layered model (model referensi OSI dan TCP/IP), seperti yang kita ketahui pada model referensi OSI terdapat tujuh lapisan (empat lapisan pada TCP/IP) setiap lapisan memiliki fungsinya masing masing berurutan dari atas kebawah (enkapsulasi) dan dari bawah ke atas (de-kapsulasi). Setiap lapisan memiliki format khusus yang mengimplementasi-kan fitur dan fungsi pada protokol tersebut. PDU pada model referensi OSI :

Nama : Rizky Dian Pramesty TEXT TO PDU Kelas : TT 2A No. Absen : 20 Layer 1 (Physical Layer) : PDU nya adalah Bits. Layer 2 (Data Link Layer) : PDU nya adalah Frame. Layer 3 (Network Layer) : PDU nya adalah Packet. Layer 4 (Transport Layer) : PDU nya adalah Segments untuk TCP, datagram untuk UDP. Layer 5 - 6 - 7 (Session - Presentation dan Application) : PDU nya adalah Data. PDU pada model TCP/IP :

    

Bits, PDU yang digunakan untuk transmisi data biner melalui media. Layer 1 : Network Access layer, PDU nya adalah Frame. Layer 2 : Internet layer, PDU nya adalah Packet. Layer 3 : Transport layer, PDU nya adalah Segments. Layer 4 : Application Layer, PDU nya adalah Data.

Untuk format PDU yang dikirim memiliki jumlah header sebanyak 8 bagian. Berikut ini ke delapan header dari PDU yang dikirimkan :

Header Protocol PDU beserta ukuran bit

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20 C. FLOWCHART

TEXT TO PDU

TEX KE PDU

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

TEXT TO PDU

D. LISTING PROGRAM unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) edsms: TEdit; edhasil: TEdit; edno: TEdit; edhasil2: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; memo1: TMemo; memo2: TMemo; memo3: TMemo; memo4: TMemo; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

var Form1: TForm1; t_biner,t_heksa:string; implementation //uses Unpdu2; {$R *.dfm} procedure kebiner1(t_Hexa:string); var data:string; begin data :=t_hexa; if data = '0' then data :='000'; if data = '1' then data :='001'; if data = '2' then data :='010'; if data = '3' then data :='011'; if data = '4' then data :='100'; if data = '5' then data :='101'; if data = '6' then data :='110'; if data = '7' then data :='111'; if data = '8' then data :='1000'; t_biner := data; end; procedure kebiner2 (t_Hexa:string); var data : string; begin data := t_hexa; if data = '0' then data :='0000'; if data = '1' then data :='0001'; if data = '2' then data :='0010'; if data = '3' then data :='0011'; if data = '4' then data :='0100'; if data = '5' then data :='0101'; if data = '6' then data :='0110';

TEXT TO PDU

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

if data = '7' then data :='0111'; if data = '8' then data :='1000'; if data = '9' then data :='1001'; if data = 'A' then data :='1010'; if data = 'B' then data :='1011'; if data = 'C' then data :='1100'; if data = 'D' then data :='1101'; if data = 'E' then data :='1110'; if data = 'F' then data :='1111'; t_biner := t_biner+data; end; procedure keheksa (data:string); var temp : string; begin temp :=data; if temp = '0000' then temp :='0'; if temp = '0001' then temp :='1'; if temp = '0010' then temp :='2'; if temp = '0011' then temp :='3'; if temp = '0100' then temp :='4'; if temp = '0101' then temp :='5'; if temp = '0110' then temp :='6'; if temp = '0111' then temp :='7'; if temp = '1000' then temp :='8'; if temp = '1001' then temp :='9'; if temp = '1010' then temp :='A'; if temp = '1011' then temp :='B'; if temp = '1100' then temp :='C'; if temp = '1101' then temp :='D'; if temp = '1110' then temp :='E'; if temp = '1111' then temp :='F'; t_heksa := temp+t_heksa; end; procedure sms_center(data:string); var jumlah_pasangan,a:integer; nomer,kode,temp:string; begin

TEXT TO PDU

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

a:=1; if length(data) mod 2=1 then data:=data+'F'; nomer:=data; temp:=data; if nomer [1]='0' then kode:='81' else kode:='91'; jumlah_pasangan:=length(data)div 2+1; while(a<=length(data)+2) do begin nomer[a+1]:=temp[a]; nomer[a]:=temp[a+1]; a:=a+2; end; Form1.Edhasil.Text:='0'+inttostr(jumlah_pasangan)+kode+nomer; end; procedure nomer_penerima(data:string); var a:integer; nomer,kode,temp,jumlah_nomer:string; begin a:=1; nomer:=data; jumlah_nomer:=inttohex(length(data),1); if length(data)mod 2=1 then data:=data+'F'; nomer:=data; temp:=data; if nomer[1]='0' then kode:='81' else kode:='91'; while(a<=Length(data)+2)do begin nomer[a+1]:=temp[a]; nomer[a]:=temp[a+1]; a:=a+2; end; form1.Edhasil2.Text:='0'+jumlah_nomer+kode+nomer; end; procedure text2pdu(data:string); var jumlah_kata,pesan,hexa,temp,temp2:string; a,b,c:integer;

TEXT TO PDU

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

begin b:=0;c:=0; jumlah_kata:=inttohex(length(data),1); if length(jumlah_kata)<2 then jumlah_kata:='0'+jumlah_kata; pesan:=data; for a:=length(pesan) downto 1 do begin hexa:=inttohex(ord(pesan[a]),2); kebiner1(hexa[1]); kebiner2(hexa[2]); temp:=temp+t_biner; end; if length(temp) mod 8<>0 then begin b:=length(pesan); if b>8 then b:=b mod 8; for a:=1 to b do begin temp:='0'+temp; end; end; b:=0;temp2:='';hexa:=''; for a:=length(temp) downto 1 do begin temp2:=temp[a]+temp2; inc(b); if b>=4 then begin b:=0; keheksa(temp2); inc(c); temp2:=''; if c>=2 then begin hexa:=hexa+t_heksa; c:=0; t_heksa:=''; end; end; end;

TEXT TO PDU

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

form1.memo2.Text:=jumlah_kata+hexa; end; procedure TForm1.Button1Click(Sender: TObject); const tipe_sms='11'; no_ref='00'; bentuk_sms='00'; //sms encoding='00'; //7bit expired='FF'; //maksimum begin sms_center(edsms.Text); nomer_penerima(edno.Text); text2pdu(memo1.Text); memo3.Text:=edhasil.Text+tipe_sms+no_ref+edhasil2.Text+ bentuk_sms+encoding+expired+memo2.Text; end; procedure TForm1.Button3Click(Sender: TObject); begin edsms.Clear; edhasil.Clear; edno.Clear; edhasil2.Clear; memo1.Clear; memo2.Clear; memo3.Clear; end; end.

TEXT TO PDU

Nama : Rizky Dian Pramesty Kelas : TT 2A No. Absen : 20

TEXT TO PDU

E. HASIL DAN PEMBAHASAN  Selesai penulisan listing program selanjutnya klik Run. Tampilan awal saat dilakukan Run :  Selanjutnya adalah mengisikan SMS Centre, Nomor Penerima, dan Isi Pesan pada kolom yang telah tersedia. Lalu selanjutnya klik ‘TEXTtoPDU’ dan klik ‘PDUtoTEXT’ maka akan muncul hasil konversi dari SMS Centre, Nomor Penerima, Isi Pesan, dan hasil konversi dari Text ke PDU setelah digabungkan serta hasil konversi dari PDU ke Text.  Jika ingin menghapus data dan memulai konversi lagi maka dapat di klik ‘Hapus’ sehingga data awal akan terhapus dan dapat dilakukan konversi kembali.

F. KESIMPULAN Dengan menggunakan program Delphi7 dapat dilakukan pengubahan format data ke Protocol Data Unit (PDU).