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.
Random Articles
- Trap database exception message
- Mendeteksi drive baru /removable drive
- Meng-Indonesia-kan Message Dlg
- Tips: Syncro-Edit in Lazarus
- komponen TMyDateEdit
- Membuat Exe application Delphi sekecil mungkin
- Mendapatkan Direktori/Path dari suatu aplikasi
- Delphi For Android Progress & Component Poll
- Aplikasi Modern Dengan Bahasa Pascal
- Komponen Zeos DBO 6.6.4
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
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago