Notepad Untuk Mengintip “Serial Number Windows”

Teknologi Support - Notepad yang sepele ternyata bisa digunakan untuk mengintip serial number/ produk key dari windows seseorang, tidak hanya windows namun juga bisa dimanfaatkan untuk mengintip Serial Number dari aplikasi microsoft office 2007, nah penasaran kan…?? 

Mengintip Serial Number Windows 

untuk mengintip serial number windows, ketikan script yang panjang dan melelahkan berikut ini :

CONST HKEY_LOCAL_MACHINE = &H80000002 

CONST SEARCH_KEY = "DigitalProductID" 

Dim arrSubKeys(4,1) 

Dim foundKeys 

Dim iValues, arrDPID 

foundKeys = Array() 

iValues = Array() 

arrSubKeys(0,0) = "Microsoft Windows Product Key" 

arrSubKeys(0,1) = "SOFTWAREMicrosoftWindows NTCurrentVersion" 

arrSubKeys(2,0) = "Microsoft Office XP" 

arrSubKeys(2,1) = "SOFTWAREMicrosoftOffice10.0Registration" 

arrSubKeys(1,0) = "Microsoft Office 2003"

arrSubKeys(1,1) = "SOFTWAREMicrosoftOffice11.0Registration" 

arrSubKeys(3,0) = "Microsoft Office 2007" 

arrSubKeys(3,1) = "SOFTWAREMicrosoftOffice12.0Registration" 

arrSubKeys(4,0) = "Microsoft Exchange Product Key" 

arrSubKeys(4,1) = "SOFTWAREMicrosoftExchangeSetup" 

strComputer = "." 

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootdefault:StdRegProv") 

For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1) 

oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes 

If Not IsNull(arrDPIDBytes) Then 

call decodeKey(arrDPIDBytes, arrSubKeys(x,0)) 

Else 

oReg.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys 

If Not IsNull(arrGUIDKeys) Then 

For Each GUIDKey In arrGUIDKeys 

oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & "" & GUIDKey, SEARCH_KEY, arrDPIDBytes 

If Not IsNull(arrDPIDBytes) Then 

call decodeKey(arrDPIDBytes, arrSubKeys(x,0)) 

End If 

Next 

End If 

End If 

Next 

MsgBox("Selesai") 

Function decodeKey(iValues, strProduct)

Dim arrDPID 

arrDPID = Array() 

For i = 52 to 66 

ReDim Preserve arrDPID( UBound(arrDPID) + 1 ) 

arrDPID( UBound(arrDPID) ) = iValues(i) 

Next 

Dim arrChars 

arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9") 

For i = 24 To 0 Step -1 

k = 0 

For j = 14 To 0 Step -1 

k = k * 256 Xor arrDPID(j) 

arrDPID(j) = Int(k / 24) 

k = k Mod 24 

Next 

strProductKey = arrChars(k) & strProductKey 

If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey 

Next 

ReDim Preserve foundKeys( UBound(foundKeys) + 1 ) 

foundKeys( UBound(foundKeys) ) = strProductKey 

strKey = UBound(foundKeys) 

MsgBox strProduct & vbNewLine & vbNewLine & foundKeys(strKey) 

End Function

Jika sudah selesai mengetikan code/script diatas simpan file dengan format .vbs, untuk namanya terserah anda, bisa ngintip.vbs atau kembang kenyot.vbs terserah deh, yang penting formatnya .vbs, dan jangan lupa untuk file typenya pillih All Files. 

Jika sudah copy file .vbs yang baru saja anda buat tadi kedalam flash disk, lalu beranjaklah untuk mencari komputer yang akan anda intip serial numbernya, atau bisa juga komputer anda sendiri untuk latihan, double klik file tersebut. 

nah setelah anda berhasil mengintip serial number windows, selanjutnya terserah anda deh tuh serial number windows mau diapain. mau dipakai di komputer anda sendiri atau di buang..?