Penulisan
ini masih terdapat kesamaan dengan penulisan sebelumnya yaitu membahas mengenai
bagaimana cara pengirman pesan sms dengan menggunakan enkripsi, namun
perbedaannya terletak pada penggunaan Procedure dalam bahasa
pemrograman pascal untuk mendapatkan cara pengiriman pesan sms menggunakan
enkripsi yang ingin diketahui.
Berikut
ini adalah listing
program yang digunakan dalam menjalankan pengiriman pesan sms menggunakan
enkripsi yang mungkin diperoleh.
Penjelasan
Program diatas adalah sebagai berikut:
Penjelasan mengenai listing program
pertama ini adalah merupakan pendeklarasian dari bagian subprogram utama dengan
cara memberikan judul procedure dan
juga terdapat penggunaan rumus procedure
didalamnya. Judul procedure
yang digunakan adalah “Enkripsi” dan variabel “Tobject” adalah
rumus dari procedure
itu sendiri. Dan terdapat listing yang
berfungsi untuk pendeklarasian pada program utama, di program utama ini
memiliki suatu nilai variabel yang kemudian akan dimasukkan ke dalam rumus yang
telah diinput dalam program procedure
tersebut.
Penjelasan
mengenai listing
program yang kedua adalah penjelasan untuk bagian utama pada program procedure didalam
pascal, OnMessagingStatus digunakan jika tidak membutuhkan status SMS yang
dikirim. Dan terdapat rumus-rumus procedure didalamnya,
sehingga dalam menjalankan program dapat terpacu dengan rumus yang ada didalam
program tersebut. Kemudian terdapat Messaging.Sendmessage yang digunakan untuk
mengirim pesan. Serta, terdapat End yang digunakan untuk mengakhiri program.
Agar
dapat memudahkan dalam memahami program yang dijelaskan diatas, maka dalam
penulisan ini disertai bentuk flowchart, seperti
yang terlihat pada gambar dibawah ini.
REFERENSI :
Amrullah, Ata Dan Kawan-kawan. 2013.
Kompresi dan Enkripsi SMS dengan
Metode Huffman Code dan Algoritma Enigma. https://docs.google.com/viewer?a=v&q=cache:-l0Alj_HPFUJ:digilib.its.ac.id/public/ITS-Undergraduate-14636-paperpdf.pdf+algoritma+dan+flowchart+kegagalan+pengiriman+sms&hl=id&pid=bl&srcid=ADGEESi2i8whVEj-3E0QI0liRofmahbQhXgYcc5biakJ5w0p3diBQOqHhh7-YuebPgL_GxIIIeFTPqXkdLXSDdMgPdBdzHuuZiBIIszPLJMvZnY8GOTb7Hpq8Pb-FQwey1b6l7Jose_Y&sig=AHIEtbSwgp_7ixA3vP_pF4jU6pbJ4y3KXw
(16 Maret 2013)
Anonim. 2013. Enkripsi. http://id.wikipedia.org/wiki/Enkripsi
(18 Maret 2013)
Anonim. Enkripsi Turbo Pascal.
Anonim. 2013. Kompresi Data. http://id.wikipedia.org/wiki/Kompresi_data (18
Maret 2013)
Anonim. 2013. Layanan Pesan Singkat.
http://id.wikipedia.org/wiki/Layanan_pesan_singkat (18
Maret 2013)
Saptaji. 2012. Mengirim SMS dari
Android menggunakan bahasa Pascal (via IDE Lazarus) (19
Juli 2013)
Tidak ada komentar:
Posting Komentar