Программное обеспечение
Не могу найти ключ от винды а на корпусе наклейка порвалась Прежние советы не помогли
Cкачай из инета активатор — Windows 7 Loader eXtreme Edition.rar http://worldofuser.ru/attachments/windows-7/7949d1372183077-windows-7-loader-extreme-edition-3-503-stable-russkii-ml-windows-7-loader-extreme-edition.rar
AIDA64 укажет установленный ключ.
Кроме того можно сохранить активацию сторонними программами Advanced Tokens Manager или Microsoft Toolkit
Так-же ключ можно узнать выполнив скрипт VBS
_______________________
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows 8 Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin8 = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
Кроме того можно сохранить активацию сторонними программами Advanced Tokens Manager или Microsoft Toolkit
Так-же ключ можно узнать выполнив скрипт VBS
_______________________
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows 8 Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin8 = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
А кошелек потеряешь, куда обращаться будешь ?

Соболезную. Ставь пиратку.
Я позвонил в техпомощь виндов с проблемой - есть наклейка, но потерян диск. И они мне сказали - покупай новую копию. Я поставил пиратку )))
Я позвонил в техпомощь виндов с проблемой - есть наклейка, но потерян диск. И они мне сказали - покупай новую копию. Я поставил пиратку )))
Сергей Чернов
проще было скачать оригинал диска с торрентов и поставить со своим ключом
Дмитрий Фомин
а где скачать пиратку
простая бесплатная прога speccy покажет твой ключ к винде
Винду переустановили уже или ещё нет?
Дмитрий Фомин
переустанавливали один раз
Похожие вопросы
- помогите , пожалуйта, не могу найти ключ на нод32. страница, на которой брала ключи последние 2 года заблокирована
- Закончился срок действия ключа на антивирус Avira. Не могу найти - все ссылки битые. Помогите пожалуйста!!!!
- ключ от винды 8
- Где на компьютере найти ключ активации windows?Где найти ключ
- Ключи для NOD32 4.0.314.0 , Народ кто знает как найти ключи ?
- нужна ссылочка касперского для ввода ключа. не могу найти. помогите
- Ключ для DMDE. Не мог найти в итоге купил, может кому поможет.
- Хочу переустановить винду. Но дров на видюху, на мать и т. д не могу найти. Будет комп пахать после переустановки винды?
- какой антивирус установить если нет денег на лицензионный и где найти ключи! Помогите
- Какая самая нормальная винда? Уже месяц ломаю голову, но не могу найти норм винду!