Proteksi CD Dengan Visual Basic

Tentunya km punya koleksi Cd software, music, vidio dll . dan mungkin juga km pernah dibikin kesel sama tmn km yang tanpa izin minjem koleksi CD km..uh pastinya BT
Nah disini aq ada sedikit tips bagi km pengguna visual basic. Tips ini memang hanya berlaku bagi sistem operasi windows namun bagi km yang suka utak atik dapat menggunakan pada sistem operasi lain. Prinsip yang ingin aq kerjakan adalah sebagai berikut

1. CD hanya dapat digunakan bagi komputer yang kita rekomendasi saja.
2. CD akan keluar dari Cdrom jika tidak sesuai yang kita inginkan.

Nah mungkin bag km yang sering berkutat dengan VB aq rasa tidak akan mendapat masalah dengan pekerjaan yang akan dilakukan atau malah ini merupakan pekerjaan kacangan. Penggunaan CD hanya bisa pada komputer yang telah kita rekomendasi bagaimana ini bisa dilakukan! Mungkin tiap orang akan mempunyai cara yang berbeda namun disini akan aq sampaikan salah satu cara yang bisa digunakan. Cara yang akan aq lakukan adalah dengan membaca serial diska pada komputer. Nah mengapa saya gunakan cara ini ? Cara ini saya ambil karena setiap diska berbeda serialnya pada setiap operasi sistem. Jadi walaupun satu diska namun jika dalam diska tersebut ada beberapa sistem operasi maka serialnya akan berbeda.

Untuk sourcenya adalah sebagai berikut :

Source Code Form
---------------->

Private Sub Form_Load()
Dim buffer As String * 255
Dim d As Long
Dim Y
X = GetPrivateProfileString("SERIAL", "NO", "(error)", _
buffer, 255, "C:\memetCD.ini")' Membaca file ini
Y = Left(buffer, X)
If Y = "(error)" Then
retvalue = mciSendString("set CDaudio door open", _
retrunString, 127, 0)'Cd Keluar
End
Else
If Y = sn("c:") & "-" & sn("d:") Then
MsgBox "sELAMAT mENGGUNAKAn cDNYa MeMeT", _
vbInformation, "MeMeT INFO" 'Tampil Pesan
End
Else
retvalue = mciSendString("set CDaudio door open", retrunString, _
127, 0)'Cd Keluar
End
End If
End If
End Sub


Source Code Module
----------------------->
Public Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName _
As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, ByVal _
lpFileName As String) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Public Declare Function GetVolumeInformation Lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer 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 sn(ByVal RootPatch As String) As String
Dim vollabel As String
Dim volsize As Long
Dim serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim name As String
Dim Namesize As Long
Dim s As String

If GetVolumeInformation(RootPatch, vollabel, volsize, serial, _
MaxLen, Flags, name, Namesize) Then
s = Format(Hex(serial), "00000000")
sn = Left(s, 4) + "-" + Right(s, 4)
Else
sn = "0000-0000"
End If
End Function


Nah setelah selesai maka km bisa mengeceknya lebih dulu dengan menjalankan Run atau tekan F5 jika sudah benar maka Cdrom anda akan keluar.
Jika anda telah menyukainya maka bisa membuat menjadi aplikasi exe dari File -> Make ... .exe. Dan tunggu proses hingga selesai simpan pada map dokument anda. Misalnya file saya namai cekcd.exe

Langkah selanjutnya adalah membuat agar aplikasi berjalan saat CD dimasukan.
Cara yang dapat dilakukan dengan membuat autorun cd yaitu dengan membuat berkas autorun.
Buka text editor anda misalnya notepad dan masukan source seperti ini

/---------------------\
Source Code Aotorun
[autorun]
OPEN=cekcd.exe
ICON=cekcd.exe
\---------------------/


Simpan dengan nama autorun.inf pada map dimana cekcd.exe km simpan.

Anda lihat lagi pada tabel Source Code Form baris ke 5

GetPrivateProfileString("SERIAL", "NO", "(error)", buffer, 255, "C:\memetCD.ini")

Nah disini tertulis c:\memetCD.ini yaitu source ini sedang membaca berkas
memetCD.ini pada kandar C dengan nama Serial dan kuncinya No kemudian jika
tidak ditemukan akan bernilai (error). Untuk itu km harus membuat lagi
file ini dan disimpan pada kandar C:\. Untuk nama berkas bisa sesuka km
namun rubah juga untuk pembacaan nama berkasnya. Sourceya sebagai
berikut :

Source Code Aotorun
[SERIAL]
NO=XXXX-XXXX-XXXX-XXXX

Simpan dengan nama memetCD.ini dan masukan nilai XXXX-XXXX-XXXX-XXXX sesuai serial
diska km. Nah km siap membakar CD koleksi anda dan jangan lupa masukan
berkas autoran.inf dan cekcd.exe yang telah anda buat pada CD tanpa dimasukan dalam map.
Untuk medapatkan serial yang dimaksud pada huruf XXXX-XXXX-XXXX-XXXX, anda dapat membuat
aplikasi tersendiri dengan memanfaatkan Source Code Module dan Source Code Form terutama
pada baris 11. Mungkin demikian dulu jika ada pertanyaan bisa menanyakan pada diri sendiri aza....Selamat Mencoba

[ Back To Home ]