Notepad Untuk Mengintip “Serial Number Windows”

kenzowfix - Notepad yang sepele ternampak bisa dipakai 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 ingin tau kan…?? 

Mengintip Serial Number Windows 

untuk mengintip serial number windows, ketikan script yang panjang dan melelahkan lalu 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" 

Related:Password Admin Dibobol “Menciptakan Password Reset Disk”

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 

Related:Task Manager Diserang Virus “Aktifkan Kembali”

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 

Related:Adminnya Lupa Bawa Password “Reset Password Eksekutif Windows”

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 

Related:Membuat User Account Di Windows Xp

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

jikalau sudah final 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. 

jikalau sudah copy file .vbs yang gres 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 menguji, double klik file tersebut. 

nah sesudah anda sukses mengintip serial number windows, kemudian terserah anda deh tuh serial number windows mau diapain. mau dipakai di komputer anda sendiri atau di buang..?