Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Windows > Потерял ключ от лицензии (XP professional SP2)

Автор: Мишаня 31.10.2009, 19:41

Вобщем проблема такая. Купил лицензию гдето год назад, недавно дал другу попользоваться, а он потерял нклейку с ключом. Че щас делать не знаю, кучу ключей уже перепробовал толку никакого, установить винду не возможно. Посоветуйте как можно ключик достать?
эта винда щас стоит на моем компе может есть способ узнать с использованием какого ключика она была установлена?

Автор: Akina 31.10.2009, 21:20

Цитата(Мишаня @ 31.10.2009, 20:41

)

эта винда щас стоит на моем компе может есть способ узнать с использованием какого ключика она была установлена?

Да, есть куча программ, показывающих ключ.

Автор: Мишаня 1.11.2009, 17:58

буду весьма признателен за пару примеров

Автор: mihanik 1.11.2009, 19:25

Если винда грузится, то узнать ключ можно запустив скрипт

Код


Key = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"

set wshshell=createobject("wscript.shell")

Value=wshshell.regread("HKLM\" & Key)

msgbox GetKey(Value)

Function GetKey(byval p)

pc="BCDFGHJKMPQRTVWXY2346789"

for i=0 to 28

a=0

for j=0 to 14

a=p(66-j)+a*256

p(66-j)=(a\24) and 255

a=a Mod 24

next

ProductKey=mid(pc,a+1,1) & ProductKey

if (((i+2) Mod 6)=0) and (i<28) then

i=i+1

ProductKey="-" & ProductKey

End If

next

GetKey=ProductKey

End Function

Автор: Мишаня 2.11.2009, 00:19

Огромное спасибо! Ключик узнал))))