Enkripsi Yang Bisa Difungsikan Untuk Serial Number Ala Saya

Enkripsi merupakan metode pengacakan kata atau huruf yang bertujuan untuk mengkaburkan makna sesungguhnya dari kata tersebut agar terlindungi dari orang-orang yang tidak bertanggung jawab.Itu menurut siapa !? Menurut saya barusan :D

Lalu maksudnya postingan kali ini !?Saya akan membagi pemahaman saya mengenai enkripsi yang bisa di fungsikan sebagai serial number.Dimana serial number yang di hasilkan nanti akan menjadi unique pada tiap komputer.Artinya program yang kita buat akan sedikit sulit (bukannya tidak mungkin) untuk di bajak.Enkripsi ini bisa dikembangkan lebih jauh lagi dan lebih secure.Okey , mari kita mulai.

Alur kerja program enkripsi ini sangat sederhana,kita akan menampilkan informasi yang unique dari tiap komputer , lalu mengenkripsinya.Very simple.

1,Mendapatkan informasi unique dari komputer.

Saya menyasar bagian serial hardisk sebagai variabel unique.Cara untuk mendapatkan informasi tersebut , adalah sebagai berikut:

Buatlah sebuah program , pada form1 tambahkan satu komponen label.Lalu pada event onShow Form1 ketikan kode berikut.

procedure TForm1.FormShow(Sender: TObject);
var
  SerialNum: DWord;
  A,B: DWord;
  C: array [0..255] of Char;
  Buffer: array [0..255] of Char;
begin
  if GetVolumeInformation(
    PChar('C:\'),
    Buffer,
    256,
    @SerialNum,
    A,
    B,
    C,
    256) then label1.caption:=IntToStr(SerialNum);
end;

Bila berhasil , maka tampilan program anda akan menjadi seperti ini :

Okey , itu serial number hardisk saya.Lalu , kita tambahkan lagi komponen label dan satu buah komponen button.

Selanjutnya , double klik komponen button , dan ketikan kode berikut.

procedure TForm1.sButton1Click(Sender: TObject);
var s: String[255];
    c: array[0..255] of Byte absolute s;
    i: Integer;
begin
  s := label1.caption;
  for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i];
  label2.caption:=s
end;

Jalankan program dan klik tombol button , maka bila sukses tampilannya akan seperti ini:

Serial hardisk tadi di enkrip , dan jadi text gak jelas :D.Oia sampe lupa , untuk mendekrip text tersebut , gunakan kode berikut:

var s: String[255];
    c: array[0..255] of Byte absolute s;
    i: Integer;
begin
    s := textYangDiDekrip;
    for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i]));
    textHasilDekrip:=s;
end

Sekian postingan kali ini , semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya: