Encrypt dan Decrypt

2007-06-18T02:24:00.000-07:00

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 mealkukan 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.

Dibawah ini kita coba untuk membuat fungsi Encrypt, fungsi Decrypt dan fungsi untuk mengubah urutan karakternya.

Mari kita simak satu satu

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;

Fungsi untuk mengubah tata urutan karakater perkarakter.
cuma disini saya menampilkan dengan contoh sangat sederhana dengan hanya mengubah urutan karakter dari depan ke belakang.

Function DataBalik(DataBalik : String) : String;
Var Terbalik,
Terbalik2:String;
i,n:Byte;
Terbalik:='';
Terbalik2:='';
Terbalik2 := DataBalik;
for n:=Length(DataBalik) DownTo 1 Do
begin
Terbalik:=Terbalik+Terbalik2[n];
Result := Terbalik;
end;
End;

Contoh penggunaan :

....
Begin
Edit2.Text := Encrypt(Edit1.Text);
Edit3.Text := Decrypt(Edit2.Text);
End;

Menggunakan komponen TIdFTP

2007-06-11T03:16:00.000-07:00

FTP atau File Transfer Protokol adalah suatu protokol internet yang digunakan untuk mentransfer file ke sebuah web server di internet sehingga file tersebut bisa diakses dari mana pun juga. Untuk memasuki FTP web server, seseorang harus mempunyai username dan password. FTP juga bisa disetting "Anonymous", sehingga orang yang memasuki suatu alamat FTP, tidak memerlukan username dan password. FTP di internet dikenali pada port 21.

IdFTP adala sebuah komponen milik Delphi yang berada di palette Indy Client, komponen ini berfungsi untuk melakukan koneksi dengan FTP Server dengan menggunakan Function dan Procedure yang dimilikinya, disamping itu juga dapat melalukan Upload dan Download dari/ke FTP Server.

Selengkapnya di web www.dapurprogram.com.

Delphi Solution

Encrypt dan Decrypt

Menggunakan komponen TIdFTP