ดูคีย์ xp โดยไม่ต้องลงโปรแกรม

อ่านหัวข้อก่อนหน้า อ่านหัวข้อถัดไป Go down

ดูคีย์ xp โดยไม่ต้องลงโปรแกรม

ตั้งหัวข้อ by dimistry on Tue Nov 10, 2009 10:02 am

Copy code นี่ไปวางที่ Notepad แล้ว save เป็นนามสกุล .vbs แล้วก็ run เลยมันจะโชว์ Windows Key ขึ้นมาให้
ป.ล เอาไปใช้ในทางที่ดีนะครับผม

On Error Resume Next

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
Set objFSO = CreateObject("scripting.FileSystemObject")

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE

strComputer = "."

'**********************************************************************************
'****************************** Windows key ************************************
'**********************************************************************************
'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"

' <--------------- Open Registry Key and populate binary data into an array -------------------------->
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
oReg.GetBinaryValue HKLM , "SOFTWARE\Microsoft\Windows NT\CurrentVersion", SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
XPKEY = decodeKey(arrDPIDBytes, "Microsoft Windows Product Key")
'MsgBox x
Else
oReg.EnumKey HKLM , "SOFTWARE\Microsoft\Windows NT\CurrentVersion", arrGUIDKeys
If Not IsNull(arrGUIDKeys) Then
For Each GUIDKey In arrGUIDKeys
oReg.GetBinaryValue HKLM , "SOFTWARE\Microsoft\Windows NT\CurrentVersion" & "\" & GUIDKey, SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
call decodeKey(arrDPIDBytes, "Microsoft Windows Product Key")
End If
Next
End If
End If
' <----------------------------------------- Return the Product Key --------------------------------------------------->
Function decodeKey(iValues, strProduct)

Dim arrDPID
arrDPID = Array()

' <--------------- extract bytes 52-66 of the DPID -------------------------->
For i = 52 to 66
ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
arrDPID( UBound(arrDPID) ) = iValues(i)
Next

' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->
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")

' <--------------- The clever bit !!! (decode the base24 encoded binary data)-------------------------->
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)
decodeKey = foundKeys(strKey)

'Wscript.Echo strKey
Wscript.Echo decodeKey

End Function

'**********************************************************************************

_________________
คลิกเส้นทางไปหาเว็บ [You must be registered and logged in to see this link.]


[You must be registered and logged in to see this link.]


dimistry
Admin

จำนวนข้อความ : 808
Join date : 18/09/2009
ที่อยู่ : France

ดูข้อมูลส่วนตัว http://http:redcyberclub.co.cc

ขึ้นไปข้างบน Go down

อ่านหัวข้อก่อนหน้า อ่านหัวข้อถัดไป ขึ้นไปข้างบน


 
Permissions in this forum:
คุณไม่สามารถพิมพ์ตอบ