Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Encrypt dan Decrypt pada Delphi #91

Kambing dapat dimasak menjadi tongseng

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.

Encrypt dan Decrypt pada Delphi
penampakan form

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

Related Articles

5 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button