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;

sumber : ilmu komputer