Ands Blog

Membuat Enkripsi Data dengan Delphi 7 - Pada saat mengirim dan menerima data, terutama dalam dunia maya tentunya diperlukan pengamanan terhadap data yang dikirim. Apalagi data yang dikirim merupakan data yang penting dan tidak boleh dilihat sembarang orang. Salah satu pengamanannya bisa menggunakan teknik enkripsi.
Berikut salah satu model enkripsi data, seperti contoh aplikasi berikut ini :

• Pertama buat form seperti berikut :

• Deklarasikan function pada private :

          private
              { Private declarations }
              function Encrypt(t: string): string;

• Buat function seperti berikut :

          function TForm1.Encrypt(t: string): string;
          var i : integer;
          begin
             for i:=1 to length(trim(t)) do begin
               t[i] :=  chr(ord(t[i]) xor  2 ) ;
             end;
             result := t;
          end;

• Pada action OnClick dari Button1(Encrypt) isi dengan script berikut :

          procedure TForm1.Button1Click(Sender: TObject);
          begin
             Memo2.Text := Encrypt(Memo1.Text);
          end;

Berikut full script-nya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    function Encrypt(t: string): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Encrypt(t: string): string;
var i : integer;
begin
    for i:=1 to length(trim(t)) do begin
          t[i] :=  chr(ord(t[i]) xor  2 ) ;
    end;
    result := t;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := Encrypt(Memo1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Text := '';
  Memo2.Text := '';
end;

end.

Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : http://andsc.blogspot.com

<<<< Terima kasih >>>>