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