Delphi:Encrypt dan Decrypt

Terkadang kita mengirim data melalui internet dengan tidak mempertimbangkan keamanan data yang kita kirim,sehingga dengan mudah data kita dapat di baca dan di ubah-ubah.

Kalaupun data kita bisa di baca akan tetapi jika kita menulisnya dengan kode-kode khusus maka setidaknya data kita tidak bisa aman.

Data yang sering kita sering kirim lewat internet biasanya memlalui socket atau semacamnya,biasanya tidak mempunya security yang kuat,makanya cara lain adalah melakukan encrypt terhadapap data yang kita kirim dan jika sudah sampai pada tujuan kita kembali melakukan decrypt.

Encrypt dan Decrypt sebenarnya tingkat keamanannya juga masih sangat rendah,karena kita mengirimkan hanya dengan kode tertentu saja,tingkat trik yang kedua adalah mengolah data encrypt dengan mengubah tata urutan karakternya,sehingga walaupun kode khusunya terpecahkan,data kita masih dalam posisi ururtan yang tak sebenarnya.

Fungsi Encrypt

Function Encrypt(Data:String):String;
Var Ec,Et:string;
Angka,I:integer;
Begin
Ec:= Data;
for i:=1 to Length(Ec) do
begin
Angka:=Ord(Ec[i])+92;
Et:=Et+chr(Angka);
end;
Result:= DataBalik(Et);
end;

Fungsi Decrypt

Function Decrypt(Data:String):String;
var Dc,Dt:string;
DAngka,I:integer;
begin
DataBalik(Data);
Dc:= DataBalik(Data);
for i:=1 to length(Dc) do
begin
DAngka:=ord(Dc[i])-92;
Dt:=Dt+Chr(DAngka);
end;
Result:= Dt;
end;

Contoh Lengkap

Inlinks:

• Delphi:Encrypt dan Decrypt
• Delphi:Komponen TIdFTP
• Apa itu programming ?
• Power Builder:Executing Matlab Script
• Web Data Window with PB7
• Setting Web Site Dg Power Dynamo
• Setting Jaguar Server
• Style 3D dengan CSS
• Enkripsi RC4 part 1
• Setting Default Homepage
• Program Editor
• Power Builder 11.0 Launching
• Membangun Web Server di Flash Disk
• Web Crawlers in Java
• Enkripsi RC4 part 2
• Cara Cepat Membangun .NET Web
• Kaedah Bayes Untuk Klasifikasi
• LINEAR DISCRIMINANT ANALYSIS (LDA) Matlab Source Code
• Get Client IP Address in Power Builder
• Aplikasi Web Atau Aplikasi Desktop ?
• Tips:Fungsi Delete dan Update Power Builder
• Tips:Fungsi Konversi Hari dan Tanggal Power Builder
• Tips:Fungsi Transfer Antar Tabel Power Builder
• Tips:Membuat Kalender Dengan Power Builder
• Tips:Import Image Ke Database - Power Builder
• Tips:Export Blob Ke Image Power Builder