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 :) .
Delphi
