1 Key To 1 PC In VB6.0

Mungkin teknik ini bisa kalian gunakan untuk melengkapi FITUR AV kalian
misalnya bagian Key , Serial Key, ataupun untuk AKSES KE MODUS PRO seperti pada SMADAV
buka Visual Basic 6.0
Buat sebuah Form dengan 1 buah tombol
Private Sub Command1_Click()
   Dim Drive As String
        Drive = "C"
   MsgBox Hex$(GetSerialNumber(Drive))
End Sub
buat module:
Private Declare Function GetVolumeInformation _
   Lib "kernel32" Alias "GetVolumeInformationA" _
   (ByVal lpRootPathName As String, _
   ByVal pVolumeNameBuffer As String, _
   ByVal nVolumeNameSize As Long, _
   lpVolumeSerialNumber As Long, _
   lpMaximumComponentLength As Long, _
   lpFileSystemFlags As Long, _
   ByVal lpFileSystemNameBuffer As String, _
   ByVal nFileSystemNameSize As Long) As Long
Public Function GetSerialNumber( _
   ByVal sDrive As String) As Long
   If Len(sDrive) Then
      If InStr(sDrive, "\\") = 1 Then
         ' Make sure we end in backslash for UNC
         If Right$(sDrive, 1) <> "\" Then
            sDrive = sDrive & "\"
         End If
      Else
         ' If not UNC, take first letter as drive
         sDrive = Left$(sDrive, 1) & ":\"
      End If
   Else
      ' Else just use current drive
      sDrive = vbNullString
   End If
  
   ' Grab S/N -- Most params can be NULL
   Call GetVolumeInformation( _
      sDrive, vbNullString, 0, GetSerialNumber, _
      ByVal 0&, ByVal 0&, vbNullString, 0)
End Function
Fungsi dari code diatas adalah membaca Serial Number dari Drive yang kita miliki.
misal diatas kita ambil contoh Drive : C
setiap drive pada tiap2 komputer berbeda2 jadi pasti bisa diasumsikan

1 PC memiliki 1 Key
1 PC untuk 1 Key
1 PC to 1 Key
untuk pengembangan silahkan ENCRIPT key tersebut dengan enkripsi yang kalian anggap aman.
nanti hasil encript itulah yang harus dimiliki user agar si user bisa akses ke bagian PRO
nah2... menarik bukan?
jangan lupa
terapkan teknik HCP agar AVmu susah di Crack
http://www.codenesia.com/artikel/proteksi-aplikasi-dari-modifikasi-dengan-hcp-hrxxx.aspx
salam
anharku