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

ANTICHAT (https://forum.antichat.xyz/index.php)

- Общие вопросы программирования (https://forum.antichat.xyz/forumdisplay.php?f=206)

- - 25 значный ключ Wинды (https://forum.antichat.xyz/showthread.php?t=773314)

Код:

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

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

Лайк спасибо )

Да для опять же для тех кто в танке, это *.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

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

Ой не пезди да )

Убери бекспейсы

Или дай тим я те щас все покажу )

Два раза кликаем по кмске и винда получает лицуху. Профит. Ключи какие-то, привет 2007?

Ну правильно , если она у тя не лицуха, я этим скриптом пользуюсь для восстановления ключа а для продолжения банкета

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

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

Даже не углубляюсь в винду, ось тупо для игр, не более.

Но работает же, или что?

Не верю все работает! единственное что, ты не на винде!

Психо опроверг в пм или в массы для массы )

Цитата:

Сообщение от [MSN]-MADCAT

Но работает же, или что?

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

Этому больше не наливать

Ы ) Щас погодб опохмелюсь но тема апнута и люди 100 пудов юзают