mengintip serial number windows dengan notepad

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…??

Ketikan script yang panjang dan melelahkan berikut ini…(gak papa itung-itung sambil latihan ngetik script…)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

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) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"  arrSubKeys(2,0) = "Microsoft Office XP"  arrSubKeys(2,1) = "SOFTWARE\Microsoft\Office\10.0\Registration"  arrSubKeys(1,0) = "Microsoft Office 2003"  arrSubKeys(1,1) = "SOFTWARE\Microsoft\Office\11.0\Registration"  arrSubKeys(3,0) = "Microsoft Office 2007"  arrSubKeys(3,1) = "SOFTWARE\Microsoft\Office\12.0\Registration"  arrSubKeys(4,0) = "Microsoft Exchange Product Key"  arrSubKeys(4,1) = "SOFTWARE\Microsoft\Exchange\Setup"  strComputer = "."  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default: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

Fyuuh…….jika sudah selesai mengetikan code/script diatas simpan file dengan format .vbs, untuk namanya terserah anda saja, bisa ngintip.vbs atau kembangkenyot.vbs terserah anda deh, yang penting formatnya .vbs, dan jangan lupa untuk file typenya pillih All Files ya….

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