-
Если она его вычисляет, зачем нужно его менять
-- Мягко предлагаю данные вопросы задавть в другом месте или в ЛС.
Павел
AVZ HijackThis помощь с 10-00 до 18-00МСК
Windows7, SEP(work)
WindowsXP KIS(home)
На up не реагирую
-
-
Будь в курсе!
Будь в курсе!
Надоело быть жертвой? Стань профи по информационной безопасности, получай самую свежую информацию об угрозах и средствах защиты от ведущего российского аналитического центра Anti-Malware.ru:
-
Microsoft предлагает несколько способов смены ключа:
Инструкция по изменению ключа продукта для OEM и Retail Windows
Инструкция по изменению ключа продукта для VLK Windows
Во второй инструкции написано, что инструкция предназначена для Windows XP SP1, но, возможно, она подходит для XP с любым сервис-паком.
Последний раз редактировалось Matias; 28.01.2010 в 16:26.
-
-
Сообщение от
Matias
Инструкция по изменению ключа продукта для VLK Windows
А что будет, если при восстановлении корпоративной версии просто вводишь другой ключ?
-
Я не в курсе этого, но, наверное, если ключи будут от одной и той же версии XP, система должна принять его. Т.е. OEM Windows не примет ключ от VLK Windows.
-
-
Офф: Имеем много офисов-филиалов. В последние пару недель участились "маски-шоу" с проверкой лицензий на Виндовс.
Так что тема становиться очень даже актуальной.
Павел
AVZ HijackThis помощь с 10-00 до 18-00МСК
Windows7, SEP(work)
WindowsXP KIS(home)
На up не реагирую
-
-
Сообщение от
Matias
Я не в курсе этого, но, наверное, если ключи будут от одной и той же версии XP, система должна принять его.
Я такое часто проделывал (VLK) и не замечал каких-либо нарушений в работе. Но делал без понимания сути. Поэтому и спросил.
-
бУРов,
Сообщение от
PavelA
В последние пару недель ...
Вот и ответ на вопрос о необходимости
-
В появлении "масок" нет ничего удивительного. Вчера по ТВ репортаж был - обнаружили концерн, который 5-ю часть России контрафактом обеспечивал.
-
Junior Member
- Вес репутации
- 55
Скопируйте код в файл с любым именем и расширением *.vbs
Код снова доработан, теперь показывается версия не только для XP, но также для Vista и 7:
Код:
Rem lookup digital product id from registry
Set WshShell = WScript.CreateObject("WScript.Shell")
HexBuf = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")
For l = lBound(HexBuf) to uBound(HexBuf)
tmp=tmp & " "& Hex (HexBuf(l))
next
'WshShell.Popup "Found Digital Product Id in registry: " & _
'" " & _
'" " & _
'" " & tmp
StartOffset = 52
EndOffset =67
Dim Digits (24)
Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"
dLen = 29
sLen = 15
Dim HexDigitalPID (15)
Dim Des (30)
For i = StartOffset to EndOffset
HexDigitalPID (i-StartOffset) = HexBuf(i)
tmp2=tmp2 & " "& Hex (HexDigitalPID(i-StartOffset))
next
'WshShell.Popup "Found Digital Product Id in registry: " & _
'" " & _
'" " & _
'" " & tmp & _
'" " & _
'" " & _
'" " & _
'" " & _
'"Found the sequence in the digital product ID. Can you spot it in the row above? " & _
'" " & tmp2
KEYSTRING =""
for i=dLen-1 to 0 step -1
if ((i + 1) mod 6) = 0 then
Des (i) = "-"
KEYSTRING =KEYSTRING & "-"
else
HN = 0
For N = (sLen -1) to 0 step -1
Value = ( (HN *2^8 ) Or HexDigitalPID (N))
HexDigitalPID (N) = Value \ 24
HN = (Value mod 24)
next
Des(i) = Digits(HN)
KEYSTRING =KEYSTRING & Digits(HN)
end if
next
KEYSTRING2 = StrReverse (KEYSTRING)
'WScript.Echo "Your XP Key is: " & KEYSTRING2
WScript.Echo "Thank you!"
Set WshNetwork = WScript.CreateObject("WScript.Network")
set wsh1 = WScript.CreateObject("WScript.Shell")
On Error Resume Next
User = wsh1.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
OS = wsh1.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\SideBySide\Installations\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.0.0_x-ww_1382d70a\Codebases\OS\\Prompt")
OS1 = wsh1.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
License = wsh1.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set file = FSO.CreateTextFile("Free.txt",False)
set file = FSO.OpenTextFile("Free.txt",8)
file.WriteLine("")
file.WriteLine(WshNetwork.ComputerName) + " - " + (User)
file.WriteLine(OS1)
file.WriteLine(OS)
file.WriteLine(License)
file.WriteLine(KEYSTRING2)
file.Close