Arsip: Cara Enkrip & Dekrip Teks


by w4h703 in Articles more 12 years ago 3133
Untuk programmer pemula yang ingin melakukan enkrip dan dekrip sederhana suatu teks supaya bisa ditampilkan dan disimpan secara aman di tabel atau di form.
//Begin Code
function TForm1.EnDeCode(const Value : String) : String;
var
  CharIndex   : Integer;
  ReturnValue : String;
begin
  ReturnValue := '';
  for CharIndex := 1 to Length(Value) do
  begin
    ReturnValue := ReturnValue + chr(NOT(ord(Value[CharIndex])));
  end;
  Result := ReturnValue;
end;
//End Code
Cara makenya gampang, misalnya :
label1.caption:= enDeCode(edtPassword.Text);
Lha kalo pengen balikin lagi, tinggal di EnDeCode lagi teks.
Semoga bermanfaat.
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com