Cara enkripsi data menggunakan delphi 7, cara ini terbilang manual/tanpa MD5. Nantinya bisa dipakai pada form login, pertama-tama buat dulu functionnya pada public declarations. berikut cara pengimplementasiannya:
{$R *.dfm}
//membuat fungsi enkripsi data
function TForm_Masuk_Pengguna.enkrip(pas:string):string;
var str,tgt,pass,j,k,jadi:string;
i,x,y,z:integer;
begin
str := pas; tgt := ''; jadi := '';
//i untuk jangkauan string
i := Length(str);
//y mewakili hasil dari i mod 20
y := 20 mod i;
//tgt=y (type integer dari y dikopikan ke type string dari tgt)
tgt := copy(str,1,y);
//penjumlahan dari variabel x
for x := 1 to (20 div i) do
pass := pass + str;
pass := pass + tgt;
//penjumlahan dari variabel z
for z := 1 to Length(pass) do
begin
//j dan k mewakili hasil dari penjumlahan dari var: pass dan z
j := IntToHex((ord(pass[z])+20),2);
k := IntToHex((ord(pass[z])-20),2);
//jadi mewakili hasil dari penjumlahan var jadi,j, dan k
jadi := jadi + j + k;
end;
result := {untuk result string->}jadi;
end;
Setelah dibuatkan fungsinya, tinggal panggil variabel yang digunakan sebagai hasil dari enkripsi data. kalau dari contoh fungsi enkripsi diatas adalah variabel string (jadi), yang dijadikan result / menampung hasil dari kalkulasi dari bagan fungsi enkrip. Setelah selesai menulis syntaks diatas, buatkan satu button dan dua editeks berinama mis:(btnenkrip,edtinput,&edtenkrip). dan panggil fungsi diatas ( enkrip(pas:string):string ). Untuk lebih jelasnya bisa anda lihat pada video berikut:
Sisanya bisa kalian explore sendiri-sendiri, terimakasih sudah mengunjungi situs kami. Untuk tutorial Delphi 7 lainnya kunjungi terus blog kami di blog.microtrafh.com. Sampai jumpa lagi ditutorial delphi 7 lainnya. :)
{$R *.dfm}
//membuat fungsi enkripsi data
function TForm_Masuk_Pengguna.enkrip(pas:string):string;
var str,tgt,pass,j,k,jadi:string;
i,x,y,z:integer;
begin
str := pas; tgt := ''; jadi := '';
//i untuk jangkauan string
i := Length(str);
//y mewakili hasil dari i mod 20
y := 20 mod i;
//tgt=y (type integer dari y dikopikan ke type string dari tgt)
tgt := copy(str,1,y);
//penjumlahan dari variabel x
for x := 1 to (20 div i) do
pass := pass + str;
pass := pass + tgt;
//penjumlahan dari variabel z
for z := 1 to Length(pass) do
begin
//j dan k mewakili hasil dari penjumlahan dari var: pass dan z
j := IntToHex((ord(pass[z])+20),2);
k := IntToHex((ord(pass[z])-20),2);
//jadi mewakili hasil dari penjumlahan var jadi,j, dan k
jadi := jadi + j + k;
end;
result := {untuk result string->}jadi;
end;
Setelah dibuatkan fungsinya, tinggal panggil variabel yang digunakan sebagai hasil dari enkripsi data. kalau dari contoh fungsi enkripsi diatas adalah variabel string (jadi), yang dijadikan result / menampung hasil dari kalkulasi dari bagan fungsi enkrip. Setelah selesai menulis syntaks diatas, buatkan satu button dan dua editeks berinama mis:(btnenkrip,edtinput,&edtenkrip). dan panggil fungsi diatas ( enkrip(pas:string):string ). Untuk lebih jelasnya bisa anda lihat pada video berikut:
Sisanya bisa kalian explore sendiri-sendiri, terimakasih sudah mengunjungi situs kami. Untuk tutorial Delphi 7 lainnya kunjungi terus blog kami di blog.microtrafh.com. Sampai jumpa lagi ditutorial delphi 7 lainnya. :)
0 Komentar untuk "Tutorial Delphi 7 - Cara Enkripsi Menggunakan Delphi 7"