Encrypt dan Decrypt pada Delphi #91

andrypein.net : Judul Apa itu? Ok, Encrypt adalah suatu metode untuk mengacak karakter menjadi kode Ascii, dan decrypt adalah sebaliknya.

Dan di postingan ini kita akan encrypt dan decrypt pada delphi.

Maaf tidak bisa menjelaskan secara detail nan dewa namun di paragraf atas seharusnya sudah cukup membantu.

Oke langsung saja kita praktekan pada aplikasi nya gan, buat form kaya diatas gan.

Sebelumnya ketikan fungsi encrypt decrypt nya dipasang dibawah “Implementation”, fungsinya seperti ini :

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;

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;

beri dulu event form show nya gan

procedure TForm1.FormShow(Sender: TObject);
begin
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 edit3.ReadOnly:=true;
 edit2.ReadOnly:=true;
end;

lalu kita panggil fungsi enkrip pada button1

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit2.Text:=encrypt(edit1.Text,length(edit1.Text));
end;

lalu dekrip pada button2

procedure TForm1.Button2Click(Sender: TObject);
begin
 edit3.Text:=decrypt(edit2.Text,length(edit2.Text));
end;

Done jadi gan tinggal dicoba, dan silahken kalo mau di donlod.

Download

*AFK