VPF::Потерял ключ от лицензии (XP professional SP2)

Мишаня

Дата 31.10.2009, 19:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.9.2009

Репутация: нет
Всего: нет

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

Akina

Дата 31.10.2009, 21:20 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 42
Всего: 454

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

)

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

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Мишаня

Дата 1.11.2009, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.9.2009

Репутация: нет
Всего: нет

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

mihanik

Дата 1.11.2009, 19:25 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109

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

Код


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

Присоединённый файл ( Кол-во скачиваний: 10 )

KeyInfo.vbs 0,47 Kb

--------------------

Программистами не рождаются, - это родовая травма...

Мишаня

Дата 2.11.2009, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.9.2009

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »