Teknik Enkripsi dan Deskripsi Sederhana

Enkripsi dalah sebuah proses yang melakukan perubahan sebuah kode dari yang bisa dimengerti menjadi sebuah kode yang tidak bisa dimengerti (tidak terbaca). Enkripsi dapat diartikan sebagai kode atau chiper. Sebuah sistem pengkodean menggunakan suatu table atau kamus yang telah didefinisikan untuk mengganti kata dari informasi atau yang merupakan bagian dari informasi yang dikirim. Sebuah chiper menggunakan suatu algoritma yang dapat mengkodekan semua aliran data (stream) bit dari sebuah pesan menjadi cryptogram yang tidak dimengerti (unitelligible). Karena teknik cipher merupakan suatu sistem yang telah siap untuk di automasi, maka teknik ini digunakan dalam sistem keamanan komputer dan network.

Berikut ini contoh teknik logika sederhana enkripsi dengan cara menggeser kata sebanyak n karakter. n karakter menyatakan jumlah data yang digeser.

Contoh :
Bila n = 1 , dan kata yang di enkripsi adalah B A C A
maka menjadi :
C B D B

Sintaknya sebagai berikut :

function Encrypt(const s: String; CryptInt: Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i]) + CrypTint);
  Result := s2;
end;

Pola function :
Encrypt( kata_yang_akan_dienkripsi, digeser_sebanyak_n_karakter )

Cara Penggunaannya :
Encrypt( 'BACA', 1);

Sintak cara mengembalikan enkripsi ( Dekripsi ) :

function Decrypt(const s: String; CryptInt: Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i]) - cryptint);
  Result := s2;
end;


Untuk mengembalikan ( dekripsi ), penggeseran karakternya harus sama seperti pada saat enkripsi.
Smoga bermanfaat,selamat mencoba :) .

wahyu

Author & Editor

Has laoreet percipitur ad. Vide interesset in mei, no his legimus verterem. Et nostrum imperdiet appellantur usu, mnesarchum referrentur id vim.