Komputer hanya mengenal bilangan. Spesialnya bilangan 0 dan 1. Komputer tidak tahu huruf. Huruf yang kita baca sebenarnya diproses dalam bentuk angka. Oleh karena itu, semua karakter mempunyai padanan angkanya.
Perintah Ord akan menghasilkan bentuk angka dari suatu karakter.Jika Anda mengenal tabel ASCII, maka itulah bentuk angka dari suatu karakter.Bentuk dasar perintahnya adalah:
Ord(Argument)
Argument adalah data dengan tipe Char, AnsiChar, WideChar, Enumeration atau Integer. Dan akan menghasilkan integer (angka dari karakter tersebut).
Lantas apa fungsi kita mengetahui perintah ORD? Ya, itu sih tergantung kreatifitas masing-masing programer. Berikut ini saya aplikasikan Ord untuk meng-enkripsi model chipertext secara sederhana. Ada dua fungsi yangdigunakan.
Fungsi Enkripsi
mengubah karakter menjadi bentuk angkanya. Kemudian menambahkan dengan angka tertentu. Dalam artikel ini saya contohkan dengan angka 5. Anda dapat menggantinya dengan angka lain. Setelah itu mengubahnya kembali ke dalam bentuk karakter dengan fungsi char
procedure TForm2.Button1Click(Sender: TObject);
var
i : integer;
kata, sandi : string;
huruf : char;
begin
kata := edit1.Text;
for i := 1 to length(kata) do begin
huruf := Char(Ord(kata[i]) + 5);
sandi := sandi + huruf
end;
edit2.Text := sandi;
edit1.Clear;
end;
Program bekerja dengan mengambil karakter demi karakter sampai semua karakter pada tulisan itu habis,
for i := 1 to length(kata) do begin
menambahkan dengan angka lima sehingga menjadi karakter lain,
Ord(kata[i]) + 5
dan mengubahnya kembali menjadi karakter.
Char(Ord(kata[i]) + 5);
huruf-huruf yang sudah diubah tadi digabungkan lagi sehingga menjadi kata:
sandi := sandi + huruf
Fungsi Dekripsi
Ingat penjelasan tentang fungsi Engkripsi diatas. Saya menambahkan bentuk angka dari karakter dengan lima. Maka untuk dekripsinya, saya cuma mengurangi dengan angka lima (kebalikannya).
procedure TForm2.Button2Click(Sender: TObject);
var
i : integer;
kata, sandi : string;
huruf : char;
begin
kata := edit2.Text;
for i := 1 to length(kata) do begin
huruf := Char(Ord(kata[i]) - 5);
sandi := sandi + huruf
end;
edit1.Text := sandi;
edit2.Clear;
end;
Pada program dibawah ini, saya menggunakan dua TEdit dan dua TButton. Setiap kali meng-enkripsi dan men-dekripsi, teks sumbernya saya hapus agar memastikan hasilnya tersebut benar-benar hasil dari fungsi:
Masukkan tulisan yang akan dienkripsi:
Kemudian tekan tombol Enkripsi, sehingga:
0 comments:
Posting Komentar