Автор АлесандР MAndroV задал вопрос в разделе Программное обеспечение
Как проверить образ вин 7 оригинальный или нет? и получил лучший ответ
Ответ от Dmitriy Bozhedarov[гуру]
Этот код ничего НЕ ДАЁТ. Смотри КОД АКТИВАЦИИ через скрипт или при помощи ,скопируй ключ..
А затем зайди на сервис Макрософак и введи ключ в специальное окно для проверки
Скрипт VBS
__________________
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"
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)
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
Галерный
(50571)
Контрольные суммы оригинальных образов Windows 7 можно посмотреть на сайте Макрософак
или на торрент-трекере
ОРИГИНАЛЬНЫЕ ОС
_http://nnm-club.me/forum/viewforum.php?f=504
ссылка
хеш суммы нельзя проверить?
образ вин 7 не может быть пиратским, только ключ т. к вы платите не за образ а за ключ
ссылка
с сайта офф
Можно на pkeygen.ru ключ получить бесплатно.
Знакомые советовали по этому вопросу pkeygen.ru
Сильно глючит windows 7 после установки что делать?
Поиском из меню "Пуск" найти средство диагностики оперативной памяти и проверить им. Возможно,
подробнее...
Windows 7 x64 Ultimate. Дайте ссылку/торрент на скачивание ОС: ) искать времени нет, поэтому задал вопрос.
Windows 7 Максимальная SP1 Rus[x32x64bit] Activated (original MDSN) чистая. 3,98 GB, by
подробнее...
Ребят скиньте ссылку на скачивание Windows 7 Профессиональная 64 bit ???
Windows 7 Профессиональная SP1 x86+x64 2 in 1 Rus основана на оригинальных русских образах от MSDN.
подробнее...
как установить две ос, у меня уже стоит windows 7 как основная, хочу ещё xp. на диск записать нет возможности есть образ
Установка Windows XP на компьютер с Windows 7
В этой статье рассматривается порядок
подробнее...
Что за процессы taskhost.ехе и tаskeng.ехе. .?А может их вырубить? ОС-Windows 7.
taskhost.ехе это хост процесс для задач виндовс... Taskhost.exe (Host Process For Windows Задачи)
подробнее...
Какая на сегодняшний день, самая удачная сборка "Windows 7" ?
Рекомендую сборку от Microsoft x64 Ultimate.
Я принимал участие в её тестировании (англ.
подробнее...
Переустановка windows 7 без диска
Скачиваешь программу #yahrefs212558#
Потом открываешь установочный образ Windows 7 с
подробнее...
Как удалить Windows 7 с диск C если диск разбит на 2 части, и на обоих стоит Windows 7
Кнопка Пуск выбрать Выполнить ввести команду msconfig ОК открыть вкладку Загрузка, увидите строки с
подробнее...
черный экран при загрузке windows 7
Решение 1. Утилита Black Screen Fix.
Если вы ещё не успели насладиться черным квадратом,
подробнее...
Microsoft выпустила крупное обновление для Windows 7 (не смог найти на сайте microsoft) дайте ссылочку.
1)Устанавливать ТОЛЬКО на голую SP1 не обновлявшуюся после установки
2)Перед установкой
подробнее...