Cara Membuat Program Enkripsi dan Dekripsi Menggunakan Lazarus Free Pascal


Enkripsi dan dekripsi menjadi kebutuhan sebuah program jika diperlukan keamanan terkait data penting seperti username, password dan data privasi yang berada dalam database. Program enkripsi dan dekripsi yang dipaparkan di artikel ini merupakan salahsatu cara untuk pengamanan data penting tersebut.

Walaupun program ini menggunakan pola eknripsi sederhana, kamu bisa mengembangkan algoritma pengacakan menjadi lebih kompleks. Sehingga sulit untuk dibuka oleh hacker.

Program enkripsi dan dekripsi menggunakan algoritma kode fungsi sebagai berikut:

    function EncryptText(const Input: string; Key: Integer): string;

    function DecryptText(const Input: string; Key: Integer): string;   

Karena algoritma-nya rahasia, kamu hanya bisa tahu dengan men-download source code-nya disini. Dan penjelasannya bisa ditonton di video dibawah.



Comments

Post a Comment

Popular posts from this blog

Cara Membuat Program Tulisan Berjalan atau Running Text Menggunakan Lazarus Free Pascal

Image
  Tulisan berjalan, sering disebut running text banyak digunakan untuk memberikan informasi berita, harga produk dan lain-lain supaya publik yang melihat dapat mengetahuinya. Artikel tutorial pemrograman Lazarus Free Pascal tentang cara membuat program tulisan berjalan atau running text. Program ini sangat mudah dibuat dengan memanfaatkan komponen TTimer yang akan memroses prosedur berulang ketika di enabled. procedure TForm1.Timer1Timer(Sender: TObject); begin     //Move label     Label1.Left:= Label1.Left + MovingStep; //Minus MovingStep will move to left     if not cbRotate.Checked then     begin         if (Label1.Left+label1.Width) < 0 then             Timer1.Enabled:= false         else         if Label1.Left > Width then         Timer1.Enabled:= false;         end ...
Read more

Cara Menambahkan Komponen Visual secara Runtime dengan Lazarus Free Pascal

Image
  Ada alasan beberapa program membutuhkan penambahan komponen visual secara runtime. Maksudnya pengguna dapat menambahkan komponen ketika program itu sedang dijalankan. Pada artikel ini mengulas bagaimana kita bisa membuat TButton dan TEDit secara runtime. Dibawah memperlihatkan contoh membuat sebuah tombol secara runtime. Pastikan kamu juga menginisialisasi properti yang diperlukan agar terlihat normal ketika ditampilkan. procedure TForm1.FormCreate(Sender: TObject); var   BtnSum: TButton; begin   // Createa button to add numbers   BtnSum := TButton.Create(Self);   BtnSum.Parent := Self;   BtnSum.Caption := 'Sum All';   BtnSum.Left := Button1.Left;   BtnSum.Top := Button1.top + Button1.Height + 16;   BtnSum.Height:= 31;   BtnSum.Width:= 200;   Bt...
Read more

Membuat Program Music First Player dengan Lazarus Free Pascal

Image
 Program ini dibuat untuk kamu yang lagi suka mendengarkan musik atau lagu tertentu. Program di-set untuk dijalankan ketika Windows melakukan startup atau komputer dihidupkan dan Music First Player langsung memainkan file mp3 yang telah disiapkan. Program MP3 player ini hanya menjalankan sebuah file mp3 kemudian program ditutup setelah musik selesai diputar. Karena program ini memang sengaja dibuat hanya akan menjalankan sebuah file musik dan kamu melanjutkan aktifitas komputer lainnya. Program MP3 Music First player menggunakan unit MMSystem untuk menjalankan file multimedia seperti file MP3. Tertarik mencoba Music First Player? Silahkan unduh program exe nya atau source code yang bisa kamu modifikasi disini . Satu lagi, lihat vieo dibawah untuk penjelasan cara kerja program ini.
Read more