crumpet_draconian: Juni 2013

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.