Teknik Sederhana Pemanfaatan Serial Hardisk (Delphi 7)

function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(PChar(DriveLetter + ':\'),
  nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
  VolumeFlags, nil, 0);
  Result := Format('%d',[VolumeSerialNumber])
end;

Function diatas digunakan untuk mendapatkan informasi serial harddisk yang kemudian dapat ditampilkan dalam nilai decimal (%d) dengan cara sederhana sebagai berikut :

label1.Caption := '+GetHardDiskSerial('c')+';

Untuk memanfaatkan Serial Hardisk menjadi serial number sebuah produk aplikasi yang kita buat, caranya sangat mudah dan bervariasi, tergantung bagaimana cara kita meng-ENKRIPSI-nya.
Perlukah teknik enkripsi yang rumit...? jawaban saya tidak perlu, contohnya sebagai berikut :

  if FileExists('License.txt') then
  begin
    Sleep(1000);
  end
  else
  begin
    AssignFile(myFile, 'License.txt');
    ReWrite(myFile);
    license := StrToInt(GetHardDiskSerial('c'));
    write(myfile,license);
    WriteLn(myFile);
    CloseFile(myFile);
  end;

Saya menyimpan serial hardisk kedalam sebuah file dengan format txt yaitu "License.txt".

  AssignFile(myFile, 'License.txt');
  Reset(myFile);
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    if StrToInt(Text) <> StrToInt(GetHardDiskSerial('c'))+17091991 then
    begin
      lbl4.Caption := 'Unregistered Serial : '+GetHardDiskSerial('c')+'';
      lbl4.Font.Size := 60;
      lbl5.Caption := 'UNKNOWN';
    end
    else
    begin
      lbl4.Caption := 'Tumbuh Kembangkan Usaha';
      lbl4.Font.Size := 60;
      lbl5.Caption := 'Bank Riau Kepri';
    end;
  end;
    CloseFile(myFile);

Kemudian file txt tersebut di baca kembali isinya. Nah, jika isi dari file tersebut <> serial hardisk + 17091991 (angka enkripsi saya) maka itu artinya aplikasi tidak terregristasi.

Contoh sederhana saja, bagi yang ingin membuatnya jadi lebih compleks tentu akan jadi lebih sulit dibajak.


Untuk contoh aplikasi silahkan Download disini

Comments

Popular posts from this blog

Cara Optimalkan PES 2013 Pada PC Spek Rendah

Serial Key Windows XP Profesional SP 2

ID Flexi Wifi.id Februari 2015