Articles & Source Code

Donation Info

BeGo Resources

Download Products

Sites Info

List Of Category

New Category, Add-Ins/Plugins, Database & Reporting, Snippet Function, Network & Internet, Compilation Code, Security Focus, Tutorial & Articles, Tool & Utilities, Top Category

Search Source

SKIN II VB

NO*IA CDMA SMS SENDER

Simple Image Browser

Smada Lock Folder

Tiny Typing Tutor 0.1a

---

Mendapatkan No Seri Windows

Contoh berikut akan memperlihatkan bagaimana mengambil dan menampilkan No Seri windows. Cara yang digunakan ialah dengan metode decrypt berdasarkan "DigitalProductId" pada register.

Dengan sedikit trik, maka berhasil didapatkan noseri tersebut. Ya lumayan lah kalo kita pengen tau no seri windows kita.

Code: Select all

Option Explicit

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) _
As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As _
Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As _
Long) As Long

Const HKEY_LOCAL_MACHINE As Long = &H80000002
Const RegKey As String = "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"
Const XlatProdId As String = "BCDFGHJKMPQRTVWXY2346789"

Private Sub Form_Load()
Dim hKey As Long
Dim ProdID(0 To 164) As Byte
Dim i As Long
Dim j As Long
Dim k As Long
Dim vHasil As String

If RegOpenKey(HKEY_LOCAL_MACHINE, RegKey, hKey) = 0 Then
k = 255
If RegQueryValueEx(hKey, "DigitalProductId", 0&, 3, _
ProdID(0), k) = 0 Then
For i = 1 To 25
k = 0
For j = 66 To 52 Step -1
k = k * 256 Xor CLng(ProdID(j))
ProdID(j) = k \ 24
k = k Mod 24
Next j
vHasil = IIf(i Mod 5, "", "-") & Mid$(XlatProdId, _
k + 1, 1) & vHasil
Next i
vHasil = Mid$(vHasil, 2)
Else
vHasil = "Not Registered"
End If
RegCloseKey hKey
Else
vHasil = "Not Registered"
End If

MsgBox "No Seri: " & vHasil, 64, "Ops i get it"
End Sub



Comment: 0 | Read: 6331 | Date: 08/02/2006 | Publisher: Boolean Coder

Back | To Top

---

Membongkar Password Access 97 . Server Date/Time . Dapatkan IP Address dari Nama Host . Koneksi string untuk Database ORACLE . Debugger Blocker . Fungsi Konversi String Ke Array & Array ke String . Membuat TTS Digital . Clipboard Reference . Mebersihkan textbox . Zoom by vb . Zoom by vb . Net Send Message . Net Send Message . Export Data Dengan ActiveReport . Hilangkan Klik Kanan Pada ComboBox . Mengirim Pesan Tanpa Diketahui ID Pengirim . Date Time Reference . Aplikasi Inventory . Skin IE Changer . Kill Run Process .