Arsip: Cara Enkrip & Dekrip Teks


by w4h703 in Articles more 18 years ago 4945
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.

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com