![\"\"](\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowleft_green_32.png\" "\\"Program")
<\/a>![\"\"](\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/home_green_32.png\" "\\"Tutorial")
<\/a>![\"\"](\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowright_green_32.png\" "\\"ParamStr")
<\/a><\/div>\nEncrypt adalah istilah untuk merubah data menjadi data yang rahasia. Sedangkan decrypt adalah mengembalikan data rahasia tersebut menjadi data aslinya.<\/p>\n
Cara yang paling sederhana untuk membuat program enkrip adalah dengan menggeser data dengan faktor tertentu. Kita bisa menggeser dengan cara menambah atau mengurangi nilai ordinal datanya, bisa juga dengan memutar data dalam kode binernya. Jika kita menggeser data dengan menambah nilai ordinalnya dengan faktor 1, maka karakter A akan menjadi B, a menjadi b, b menjadi c, dan seterusnya. Tentu saja contoh ini hanya salah satu contoh yang paling sederhana. Jangan digunakan untuk melindungi data Anda \u2757<\/p>\n
Tipe data Char memiliki ukuran yang sama dengan tipe byte. Sedangkan byte merupakan bilangan biner dengan lebar data 8 bit (bit= binary digit<\/i>). Sebagai contoh, karakter A memiliki nilai ordinal 65. Bilangan 65 dalam hexadesimal adalah 41H. Sehingga karakter A dalam biner adalah 01000001b. Jika kita memutar data tersebut ke arah kanan sebanyak satu langkah, maka datanya menjadi 10100000b atau 0A0H atau 160. Karakter dengan nilai ordinal ini akan tercetak sebagai \u00e1. Anda dapat mencobanya dengan menekan tombol Alt (tahan) kemudian mengetikkan bilangan 160 pada number keypad<\/i> (bukan pada tombol bagian atas) lalu lepaskan tombol Alt.<\/p>\n
Kita akan membuat contoh program yang menerapkan keduanya. Pertama kita menambah ordinal data dengan 5. kemudian kita memutar data ke kanan sebanyak 1 langkah. Delphi tidak menyediakan perintah untuk memutar data. Deplhi hanya menyediakan perintah untuk menggeser data ke arah kanan (dengan perintah Efek perputaran ke kanan 1 langkah bisa didapat dari hasil operasi OR antara data asli yang digeser ke kanan 1 langkah dengan data asli yang digeser ke kiri sebanyak 7 langkah.<\/p>\n Proses dekrip adalah proses yang tepat kebalikan dari proses enkrip.<\/p>\n Sekarang bayangkan bahwa Anda adalah seorang pedagang yang mengirim pesan kepada rekan Anda dengan pesan sebagai berikut: <\/p>\nHarga sebenarnya sih cuma 1 juta, tapi bilang aja 10 juta, dia nggak bakal tahu. <\/p>\nSimpan pesan tersebut dengan nama file pesan.txt. Setelah di enkrip dengan cara:<\/p>\n Maka file rahasia.txt akan terlihat seperti:<\/p>\n Jika dilakukan perintah:<\/p>\n Maka file asli.txt akan sama dengan file pesan.txt.<\/p>\n Tentu saja jika Anda membuat program tersebut tujuannya bukan untuk ngibulin pembeli \ud83d\ude00 Banyak hal yang memang membutuhkan proses merahasiakan data. Sebagai contoh, Anda membuat aplikasi data base dan hanya orang-orang tertentu saja yang boleh login ke aplikasi tersebut. Tentu saja Anda menyimpan data passwordnya dalam sebuah file. Jika file tersebut tidak dienkrip terlebih dahulu, maka dengan mudah orang bisa membaca passwordnya, dan orang-orang yang tidak bertanggung jawab bisa dengan mudah mengacaukan data-data Anda.<\/p>\n Jika kita melihat perbedaan antara data asli dengan data yang dienkrip, maka kedua data tersebut seoleh-oleh tidak memiliki hubungan sama sekali. Akan tetapi pada kenyataannya, proses pemecahan kode juga dilakukan melalui program. Semakin sederhana proses enskripsi, semakin mudah kode dipecahkan. Jadi, jangan menggunakan metode ini untuk menyimpan rahasia Anda.<\/p>\n <\/p>","protected":false},"excerpt":{"rendered":" Encrypt adalah istilah untuk merubah data menjadi data yang rahasia. Sedangkan decrypt adalah mengembalikan data rahasia tersebut menjadi data aslinya. Cara yang paling sederhana untuk membuat program enkrip adalah dengan menggeser data dengan faktor tertentu. Kita bisa menggeser dengan cara menambah atau mengurangi nilai ordinal datanya, bisa juga dengan memutar data dalam kode binernya. Jika…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[105,104,96,145],"tags":[106],"class_list":["post-1399","post","type-post","status-publish","format-standard","hentry","category-delphi-lazarus","category-programming","category-all","category-tutorial","tag-delphi"],"_links":{"self":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1399","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/comments?post=1399"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1399\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1399"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1399"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1399"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}shr<\/strong><\/code>\u00a0diikuti nilai pergeserannya) dan perintah untuk menggeser data ke arah kiri (dengan perintah shl<\/strong><\/code> diikuti nilai pergeserannya). Untuk mendapatkan efek putar, kita bisa menggabungkan dua perintah tersebut seperti contoh berikut:<\/p>\nData asli : 01000001\r\nKe Kanan 1: 00100000\r\nKe Kiri 7 : 10000000<\/span>\r\nOR kan : 10100000<\/pre>\nprogram Encrypt;\r\n{$APPTYPE CONSOLE}\r\nvar c:char;\r\nbegin\r\n while not EOF do\r\n begin\r\n read(c);\r\n c:=Char(ord(c)+5);\r\n c:=Char((ord(c)shr 1)or(ord(c)shl 7));\r\n write(c);\r\n end; \r\nend.<\/pre>\nprogram Decrypt;\r\n{$APPTYPE CONSOLE}\r\nvar c:char;\r\nbegin\r\n while not EOF do\r\n begin\r\n read(c);\r\n c:=Char((ord(c)shl 1)or(ord(c)shr 7));\r\n c:=Char(ord(c)-5);\r\n write(c);\r\n end; \r\nend.<\/pre>\nC:\\Source>encrypt<pesan.txt>rahasia.txt<\/pre>\n
\u00a63\u00bb63\u2019<5\u00b35\u00b93\u00bb\u00b9?3\u2019<7\u00b6\u20194=93\u2019\u2019\u00b7=\u00bc3\u02dc\u2019\u00bc3\u00ba7\u2019\u00b37\u00b83\u00b96\u20193\u00b73\u2019\u0161\u2019\u00b7=\u00bc3\u02dc\u2019\u00b473\u2019\u00b96638\u2019\u00b3383\u00b8\u2019\u00bc3\u00b6=\u2122<\/pre>\n
C:\\Source>decrypt<rahasia.txt>asli.txt<\/pre>\n
<\/a><\/a><\/a><\/div>\n