Encrypt dan Decrypt

liat gan,pada edittext 2 ,kalimat pada edittext1 ,menjadi ngaco,bukan ngaco sih

itulah encrypt decrypt,encrypt adalah suatu metode untuk mengacak karakter menjadi kode Ascii,dan decrypt adalah sebaliknya.
ga bisa ngejelasin secara skill dewa gan,cuma tebakan cupunya doank,tapi semoga benar.
kita buat aja gan di delphinya


buat form kaya diatas gan.
sebelumnya nih gan fungsi encrypt decrypt nya,pasang dibawah "Implementation"

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;

jadi gan tinggal dicoba

Posted in: Delphi