Как узнать лицензионный номер Windows 8-10 на ноут

Цитата (edimode @ 24.09.2015 - 22:14)

Цитата (BoneGrinder @ 24.09.2015 - 22:07) Я думал что людей покупающих ноут/ПК с лицухой уже не существует Ну, с этой следящей за действиями пользователя 10-кой, таких точно станет меньше. Да и вообще, вон даже их-союзники-немцы винду нах послали лет 8 назад и испльзуют бесплатный OpenSuSe в говерменте. Ибо нехуй этим падлам деньги платить за то что они твои порно вкусы изучают...

как же вы заебали ныть про слежку. Эппл и Гугл ничем не отличаются. Только вот хайпа никто не поднимает

CYDVB-B3QKC-BH2JW-33TGJ-3C8GW
захочешь не забудешь

ну че кто нить уже вытащил ключ со скриншота по hexам ?

смысл если десятка бесплатная?

Цитата (RVstrax @ 24.09.2015 - 23:01)

а то что эпл и гуголь следят и уже давно,это ни кого не смущает)) весь мир в опасности винда следит за нами

Друг, если одолела паранойя, делай как я, ставь SRWARE IRON - гугл хром с отрубленными нахуй шпионскими хренями гугла и врубленными нормальными фичами, которые сам гугл не использует, пока стабильной версии нет, делают его такие же как и мы параноики, только родом из Германии.
Хз какой год его юзаю - быстрее браузера в принципе нет. Ну и всякие гуглы шмуглы не собирают твою стату для рекламы и прочей муйни.

Добавлено в 13:33

Цитата (alex4222 @ 25.09.2015 - 13:26)

смысл если десятка бесплатная?

Хера себе ты сказочник
Это сообщение отредактировал Ивиан - 25 сен. 2015 г. в 13:35

Цитата (mean122 @ 24.09.2015 - 22:31)

Всё проще. Код Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function Вот это всё вставляешь в блокнот, и сохраняешь как vbs скрипт ("сохранить как" -> вместо "*.txt" выбрать "все файлы" и дописать после имени ".vbs". Потом запустить и вылезет месседж бокс с Вашим ключиком. ) ПРОФИТ (всё время ношу с собой на флешке этот скрипт, частенько попадаются списанные компы с официальной семеркой, переписываю ключики, не пропадать же добру. Тем более до 10 можно обновить бесплатно. Цитата (foogas @ 24.09.2015 - 20:30) А никто не в курсе, AIDA64 настоящий лиц. ключ показывает или как? у меня ключик из реестра и то, что показывает АИДА не совпадают.

А у меня что в айде что через этот скрипт показывает BBBB-BBBB-BBBB-BBBB, винда 8.1 32бит что это может быть?

Цитата (Nickkh @ 25.09.2015 - 03:53)

Цитата (mean122 @ 25.09.2015 - 06:31) Всё проще. Код Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function Вот это всё вставляешь в блокнот, и сохраняешь как vbs скрипт ("сохранить как" -> вместо "*.txt" выбрать "все файлы" и дописать после имени ".vbs". Потом запустить и вылезет месседж бокс с Вашим ключиком. ) ПРОФИТ (всё время ношу с собой на флешке этот скрипт, частенько попадаются списанные компы с официальной семеркой, переписываю ключики, не пропадать же добру. Тем более до 10 можно обновить бесплатно. Цитата (foogas @ 24.09.2015 - 20:30) А никто не в курсе, AIDA64 настоящий лиц. ключ показывает или как? у меня ключик из реестра и то, что показывает АИДА не совпадают. выдает ошибку.из под 8,1 запускал. Что я делал не так?

попробуй вот этот,

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)

insеrt = "N"

winKeyOutput = rерlасе(winKeyOutput, keypart1, keypart1 & insеrt, 2, 1, 0)

If Last = 0 Then winKeyOutput = insеrt & 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

Цитата (k0xx @ 25.09.2015 - 13:21)

ну че кто нить уже вытащил ключ со скриншота по hexам ?

Странно у меня меню MSDM нету в пункте ACPI

Цитата (alex4222 @ 25.09.2015 - 13:26)

смысл если десятка бесплатная?

только для инсайдеров и то с обязательной установкой новых билдов

Цитата (BoneGrinder @ 24.09.2015 - 22:07)

Я думал что людей покупающих ноут/ПК с лицухой уже не существует

Ну так-то эту винду по сути навязывают, можно конечно купить ноут без системы, но большинство ноутбуков идут уже с предустановленной виндой. И если понравился ноут, но на немстоит винда, сомневаюсь что большинство покупателей от него из-за этого откажется.

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

На днях буквально ставлю на ноут с наклейкой 7ка ПРО эту винду и пытаюсь активировать онлайн. Пишет - нихуя, звони для активации.
Беру мобилку, звоню на номер - нихуя, говорит голос почти человеческий, звони с домашнего.
Ладно, беру домашний и еще одна попытка - нихуя, тональный набор не срабатывает, когда гуляю по аду голосового меню. Хотя тональный набор по умолчанию работает и своим автоответчиком проверял.
После 40 минуть ебли, со словами "а не пошли бы вы нахуй" ставлю за 30 секунд миникмс и на этом активация оконченна, дебилы, блядь.

Спасиб, попробую...

Вот нужна была тема эта неделю назад. Уже сам вытащил ключ.

на Win10 не работает прога, а вот скрипт с первой страницы - работает.

Цитата (ЙаТут @ 25.09.2015 - 00:11)

Цитата (mean122 @ 25.09.2015 - 01:01) Цитата (ЙаТут @ 24.09.2015 - 21:50) Цитата (RVstrax @ 25.09.2015 - 00:01) а то что эпл и гуголь следят и уже давно,это ни кого не смущает)) весь мир в опасности винда следит за нами Я смотрю ты ахуенный айтишник из Глазова Дрочащий на винду и ненавидящий пингвина, т.к. в нем нихуя не понимаешь? Вот мне интересно, у Вас на компах какие-то дешифраторы кодов для запуска боеголовок хранятся? Чего скрывать то? У нас каждый второй параноик насчет неких данных, как будто бухгалтерия замшелого ООО или порнофотки жены Майкрософту или Гуглу сильно нужны. Расслабьтесь господа, Ваши данные собирают для статистики, а если у кого и есть интересные для корпораций данные, то там штат админов и безопасников явно не бамбук курит. Не, не только, но многие данные у меня зашифрованы, и хранятся они у меня на серваке в корее. Даже если горячий паяльник в жопу засунут - все равно пароль не вспомню

Как в одном фильме:
"- Все рассказывают"

Вопрос 2-х минут в "этих ваших интернетах". Подобная инфа появляется не позднее месяца с даты релиза ОС.
Вам нужны шашечки (заюзать прогу) или вам надо ехать (ключ)? Кто круче узнает номер своей лицензии шоле?
Можете пинать, но я хоть убей не понимаю, в чем суперпуперность или уникальная информативность этого псто.

первая пришедшая мысль была - джус пиарит екслера.
у екслера совсем дела плохи, что на япе пиариться приходится? неужели дом в испании, хамон и винище не по карману стали?
Это сообщение отредактировал mangus - 25 сен. 2015 г. в 14:10

Скрипт проверил нормально работает
J3QQ4-H7H2V-2HCH4-M3HK8-6M8VW
Это сообщение отредактировал Хохол1900 - 25 сен. 2015 г. в 14:21

Эту страну объединяет общая тема "как нае.. и как спиз..."
Заметили - почти все в едином порыве

Мда, таких хрен победишь...)))

За статью отдельное спасибо всем участникам!

зы скрипт рабочий!)

По сути, данный OEM ключ нужен только для переноса винды на другой комп. А для переустановки системы на том же самом ноуте, он автоматом считывается. Правда есть ньюанс - ключ подходит только к изначальной версии винды. Т.е. стаяла 8ка, установить сразу 8.1 или 10, с этим ключом не получится, придётся установить 8ку, а затем тупо обновляться...

Бля, это реально было нужно.

А мне скрипты vbs от товарищей сдешних очень понравились =)
Спасибо

Цитата (edimode @ 24.09.2015 - 22:17)

Цитата (IceFlame @ 24.09.2015 - 22:16) Можно пруф? Можно. ... на что именно?

На OpenSuSe в правительстве

Цитата

Ну, с этой следящей за действиями пользователя 10-кой, таких точно станет меньше.

Что бы следилки ей удалить, есть такая софтина: Destroy Windows Spying (DWS) можно взять здесь:

Скрытый текст

http://rutracker.org/forum/viewtopic.php?t=5054236