25 значный ключ Wинды

[MSN]-MADCAT

Рекрут
Проверенный
Сообщения
276
Розыгрыши
0
Репутация
51
Реакции
71
Баллы
0
Код:
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 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

Сохраняем запускаем радуемся. Канает ВЕЗДЕ!
Лайк спасибо )
 

[MSN]-MADCAT

Рекрут
Проверенный
Сообщения
276
Розыгрыши
0
Репутация
51
Реакции
71
Баллы
0
Да для опять же для тех кто в танке, это *.vbs

Не один антивирь не палит, удобная весч, в корпорате, на ВМ тестите
Ксати для 10:
Тем кто обновился и перешел на Windows 10 (или собрался это сделать).
Сначала пробуем эти:
7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH
TX9XD-98N7V-6WMQ6-BX7FG-H8Q99
VK7JG-NPHTM-C97JM-9MPGT-3V66T
NPPR9-FWDCX-D2C8J-H872K-2YT43
Если не прокатило, то вот еще:
VK7JG-NPHTM-C97JM-9MPGT-3V66T — для Pro.
DR9VN-GF3CR-RCWT2-H7TR8-82QGT
9T9YB-NBK2X-CRY6X-HJ2D4-VMH26
42J2K-3NC73-BMH77-BPHBR-Q9MP6
N76JR-XQ4DW-J9K6V-6XHMM-B4G6T
KJNMF-F4YXB-3R83P-9PWHX-H6DGT
FM4NQ-8PFXJ-PHDCH-6GFPQ-M7V26
VNFJT-FVWDH-J8K72-3TDDT-CGYP6
P3N7B-7TYC3-3RPMC-F2VWC-XTPKG
CX43R-3N9KG-VBCX3-KRFQD-Y4G6T
VKF92-NGYW6-FGJPP-JPVMG-RRG6T
XB2B9-QNTQF- QF3MR-R9HD8-6MT6T
N4B4G-8WRTG-2VRG6-7X748-YP2KG
KJXJT-NJPGX-WHYVH-GGRM8-D9MP6
6HMCJ-JNY6V-BQ7TJ-XW982-Q3WXG
N227J-97GWV-WHHH4-QB9BY-WHV26
RFNJK-VYKHR-3XF3R-33JDQ-G83GT
C46WJ-YKNMT-PKTVM-Q86FF-GXXTT
Q68RT-NBGF7-7R7CH-96FC4-WFG6T
Ключ активации Windows 10 Pro VL : QJNXR-7D97Q-K7WH4-RYWQ8-6MT6Y
Ключ активации Windows 10 Enterprise : XGVPP-NMH47-7TTHJ-W3FW7-8HV2C
Код активации Windows 10 Pro build 10240 : VK7JG-NPHTM-C97JM-9MPGT-3V66T
Ключ для Windows 10 Enterprise 2015 LTSB : WNMTR-4C88C-JK8YV-HQ7T2-76DF9
Ключ установки Windows 10 Education : NW6C2-QMPVW-D7KKK-3GKT6-VCFB2
Лицензионный ключ для установки Windows 10 Enterprise : NPPR9-FWDCX-D2C8J-H872K-2YT43
Ключ и код активации и установки Windows 10 Professional : W269N-WFGWX-YVC9B-4J6C9-T83GX
Код активации для Windows 10 Single Language : 7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH
Windows 10 Pro build 10240 - VK7JG-NPHTM-C97JM-9MPGT-3V66T
Windows 10 Enterprise build 10240 - NPPR9-FWDCX-D2C8J-H872K-2YT43
Windows 10 Enterprise build 10240 - XGVPP-NMH47-7TTHJ-W3FW7-8HV2C
Windows 10 Professional 10240 - W269N-WFGWX-YVC9B-4J6C9-T83GX
Windows 10 Pro VL build 10240 - QJNXR-7D97Q-K7WH4-RYWQ8-6MT6Y

Не помню откуда взял но канает.
 

kick

Магистр Йода
Administrator
Сообщения
6 499
Розыгрыши
12
Репутация
5 108
Реакции
5 143
Баллы
2 688
 

[MSN]-MADCAT

Рекрут
Проверенный
Сообщения
276
Розыгрыши
0
Репутация
51
Реакции
71
Баллы
0
Ой не пезди да )
Убери бекспейсы
Или дай тим я те щас все покажу )
 

Psycho

fuck society
Модератор
Сообщения
3 697
Розыгрыши
1
Репутация
3 588
Реакции
1 783
Баллы
1 598
Два раза кликаем по кмске и винда получает лицуху. Профит. Ключи какие-то, привет 2007?
 

[MSN]-MADCAT

Рекрут
Проверенный
Сообщения
276
Розыгрыши
0
Репутация
51
Реакции
71
Баллы
0
Ну правильно , если она у тя не лицуха, я этим скриптом пользуюсь для восстановления ключа а для продолжения банкета

Она у тя ОЕМ, уберите бекспейсы (пробелы) в с крипте !!!!! И VBS попробуй

Или ты не админ в своей системе уже ) )))
 

[MSN]-MADCAT

Рекрут
Проверенный
Сообщения
276
Розыгрыши
0
Репутация
51
Реакции
71
Баллы
0
Но работает же, или что?

Не верю все работает! единственное что, ты не на винде!
Психо опроверг в пм или в массы для массы )
 

Psycho

fuck society
Модератор
Сообщения
3 697
Розыгрыши
1
Репутация
3 588
Реакции
1 783
Баллы
1 598
  • Мне нравится
Реакции: kick

[MSN]-MADCAT

Рекрут
Проверенный
Сообщения
276
Розыгрыши
0
Репутация
51
Реакции
71
Баллы
0
Ы ) Щас погодб опохмелюсь но тема апнута и люди 100 пудов юзают
 

BAS

Друг форума
Местный
Сообщения
283
Розыгрыши
0
Репутация
208
Реакции
127
Баллы
985
Как по мне так проще активатором два раза на кнопочку нажать и дело в шляпе.
 

[MSN]-MADCAT

Рекрут
Проверенный
Сообщения
276
Розыгрыши
0
Репутация
51
Реакции
71
Баллы
0
Ну каму то да а я люблю, лиценз. Хоть и незаконно.
 
Сверху Снизу