Penulisan ini masih
terdapat kesamaan dengan penulisan sebelumnya yaitu membahas mengenai bagaimana
cara pengirman pesan sms dengan menggunakan enkripsi, namun perbedaannya
terletak pada penggunaan Function 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 function dan juga terdapat penggunaan
rumus function didalamnya. Judul
function yang digunakan adalah “Enkripsi” dan variabel “output” adalah rumus
dari function 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 function tersebut.
Penjelasan mengenai listing program yang kedua adalah
penjelasan untuk bagian utama pada program function didalam pascal, writeln digunakan untuk menampilkan kata
atau tulisan yang berada pada tanda petik. Dan terdapat rumus-rumus function didalamnya, sehingga dalam
menjalankan program dapat terpacu dengan rumus yang ada didalam program
tersebut.
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)
