Мицрософт Оффице инсталацијски кључ након активирања производа и даље се чува у системском регистру. Ради заштите, кључ производа се не чува на отвореном, већ у шифрираном коду Басе64 форма. Ова метода кодирања није постојана, па је лако издвојити помоћу једноставне скрипте (испитали смо сличну технику у чланку која описује како извући инсталацијски кључ за Виндовс 8). У овом ћемо чланку показати како добити активацијски код већ инсталиране копије МС Оффицеа помоћу ПоверСхелл и вбс скрипте без кориштења услужних програма других произвођача.
Ове скрипте је погодно за употребу приликом губитка докумената или налепница помоћу кључева за инсталацију за Мицрософт Оффице.
Прво размотрите скрипту за проналазак кључа ПоверСхелл
- Креирајте нову текстуалну датотеку (у истом нотепад.еке)
- Копирајте у њега следећи код:
функција Гет-МСОффицеПродуцтКеи парам ([стринг []] $ цомпутерНаме = ".") $ продуцт = @ () $ хклм = 2147483650 $ патх = "СОФТВАРЕ \ Мицрософт \ Оффице" фореацх ($ рачунар у $ цомпутерНаме) $ вми = [ВМИЦласс] "\\ $ цомпутер \ роот \ дефаулт: стдРегПров" $ субкеис1 = $ вми.ЕнумКеи ($ хклм, $ патх) фореацх ($ субкеи1 у $ субкеис1.снамес) $ субкеис2 = $ вми.ЕнумКеи ($ хклм, "$ патх \ $ субкеи1") фореацх ($ субкеи2 у $ субкеис2.снамес) $ субкеис3 = $ вми.ЕнумКеи ($ хклм, "$ патх \ $ субкеи1 \ $ субкеи2") фореацх ($ субкеи3 у $ субкеиис3 .снамес) $ субкеис4 = $ вми.ЕнумВалуес ($ хклм, "$ патх \ $ субкеи1 \ $ субкеи2 \ $ субкеи3") фореацх ($ субкеи4 у $ субкеис4.снамес) иф ($ субкеи4 -ек "дигиталпродуцтид") $ темп = "" | изаберите ЦомпутерНаме, ПродуцтНаме, ПродуцтКеи $ темп.ЦомпутерНаме = $ цомпутер $ продуцтНаме = $ вми.ГетСтрингВалуе ($ хклм, "$ патх \ $ субкеи1 \ $ субкеи2 \ $ субкеи3", "име производа") $ темп.ПродуцтНаме = $ продуцтНаме. сВалуе $ дата = $ вми.ГетБинариВалуе ($ хклм, "$ патх \ $ субкеи1 \ $ субкеи2 \ $ субкеи3", "дигиталпродуцтид") $ валуеДата = ($ дата.уВалуе) [52 ... 66] # дешифрирај басе24 кодиране бинарне податке $ продуцтКеи = "" $ цхарс = "БЦДФГХЈКМПКРТВВКСИ2346789" за ($ и = 24; $ и -ге 0; $ и--) $ р = 0 за ($ ј = 14; $ ј -ге 0; $ ј- -) $ р = ($ р * 256) -бк $ валуеДата [$ ј] $ валуеДата [$ ј] = [матх] :: Скрати ($ р / 24) $ р = $ р% 24 $ продуцтКеи = $ цхарс [$ р] + $ продуцтКеи иф (($ и% 5) -ек 0 -анд $ и -не 0) $ продуцтКеи = "-" + $ продуцтКеи $ темп.ПродуцтКеи = $ продуцтКеи $ продуцт + = $ темп $ производ
- Сачувајте датотеку с наставком .пс1
- У зависности од верзије МС Оффице-а: ако користите 32-битну верзију система Оффице, покрените 32-битну ПоверСхелл конзолу као администратор. У случају да користите 64-битни Оффице, покрените 64-битну ПоверСхелл конзолу.Савети. Оффице 2007 и новији су само 32-битни. Оффице 2010, 2013 и 2016 - постоје и 32 и 64 битни. 64-битна верзија система Оффице се не може инсталирати на 32-битни Виндовс.
- У нашем примеру, 32-битна верзија система Оффице инсталирана је на 64-битном Виндовс-у, тако да покрећемо Виндовс ПовеСхелл (к86).
- Омогући локално покретање непотписаних скрипти:
Сет-ЕкецутионПолици РемотеСигнедНа упит притисните И и Ентер.
- Увеземо претходно сачувану скрипту са командом и из ње зовемо функцију:
Увоз-модул Ц: \ Алати \ гетмсоффицекеи.пс1; Гет-МСОффицеПродуцтКеи - На екрану би се требао појавити знак који садржи информације о свим инсталираним верзијама система Оффице. Поље ПродуцтНаме садржи име инсталираног производа, а поље ПродуцтКеи садржи кључ за активирање.
Спремна скрипта Поверсхелл-а можете преузети овде: гетмсоффицекеи-посх.зип
Слицна скрипта за добијање ПродуцИд и МС Оффице кљуцева на Вбсцрипт
Цонст ХКЛМ = & Х80000002 Цомпутер = "." Поставите објВМИСервице = ГетОбјецт ("винмгмтс: \\" & Цомпутер & "\ роот \ цимв2") Постави Обј = објВМИСервице.ЕкецКуери ("Изабери * из Вин32_ОператингСистем") дим ИнсДате за сваку ставку у Обј ИнсДате = итем.ИнсталлДате 'Гатхеринг Опис информација о систему = Итем.Цаптион ОСАрцхитецтуре = Итем.ОСАрцхитецтуре ЦСДВерсион = Итем.ЦСДВерсион Версион = Итем.Версион Нект дим НевДате НевДате = мид (ИнсДате, 9,2) & ":" & мид (ИнсДате, 11,2) & " : "& мид (ИнсДате, 13,2) НевДате = НевДате &" "& мид (ИнсДате, 7,2) &" / "& мид (ИнсДате, 5,2) &" / "& мид (ИнсДате, 1, 4) всцрипт.ецхо 'вбЦрЛф & "Оффице кључеви" & вбЦрЛф КуериОффицеПродуцтКеис () Функција ДецодеПродуцтКеи (аррКеи, интКеиОффсет) Ако није ИсАрраи (аррКеи), тада излазите из функције интИсВин8 = АндСефтРии (арСефти) интКеиОффсет + 14) = аррКеи (интКеиОффсет + 14) и 247 Или БитСхифтЛефт (интИсВин8 и 2,2) и = 24 стрЦхарс = "БЦДФГХЈКМПКРТВВКСИ2346789" стрКеиОутпут = "" Док и = 0 интКсур интЦур = БитСхифтЛефт (и нтЦур, 8) интЦур = аррКеи (интКс + интКеиОффсет) + интЦур аррКеи (интКс + интКеиОффсет) = Инт (интЦур / 24) интЦур = интЦур Мод 24 интКс = интКс - 1 Венд и = и - 1 стр ине + 1,1) & стрКеиОутпут интЛаст = интЦур Венд Ако је интИсВин8 = 1 Тада стрКеиОутпут = Средња (стрКеиОутпут, 2, интЛаст) & "Н" & Десна (стрКеиОутпут, Лен (стрКеиОутпут) - (интЛаст + 1) Конако стр стр Мид (стрКеиОутпут, 1.5) & "-" & Мид (стрКеиОутпут, 6.5) & "- & Мид (стрКеиОутпут, 11.5) &" - "& Мид (стрКеиОутпут, 16.5) &" - "& Мид (стрКеиОутпут, 21,5) ДецодеПродуцтКеи = стрКеиГУИДОутпут функција крајње функције РегРеадБинари (стрРегПатх, стрРегВалуе) Подесите објРег = ГетОбјецт (" винмгмтс: имперсонатионЛевел = имперсонате! \Ггггггггггггггг, пгг, пгг, пгг, пгг, пг, пг, пгг, пг, пг, пгг, пгг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пгг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, пг, п. ХКЛМ, стрРегПатх, стрРегВалуе, аррРегБинариДата РегРеадБинари = аррРегБинариДата Постави објРег = Ништа Крај Функција Функција БитСхифтЛефт (интВалуе, интСхифт) БитСхифтЛефт = интВалуе * 2 ^ интСхифтСхифтСхифт Функција фтРигхт = Инт (интВалуе / (2 ^ интСхифт)) Завршна функција Функција КуериОффицеПродуцтКеис () стрБасеКеи = "СОФТВАРЕ \" стрОффицеКеи = стрБасеКеи & "Мицрософт \ Оффице" Подесите објРег = ГетОбјецт ("винмгмтсе! \ корен \ стандардна: СтдРегПров ") објРег.ЕнумКеи ХКЦУ, стрОффицеКеи, аррОффицеВерсионСубКеис интПродуцтЦоунт = 1 Ако ИсАрраи (аррОффицеВерсионСубКеис) онда за свако стрОффицеВерсионКеи У аррОффицеВерсионСубКеис Селецт Цасе стрОффицеВерсионКеи случај" 11,0 "ЦхецкОффицеКеи стрОффицеКеи &" \ 11.0 \ Регистратион ", 52, интПродуцтЦоунт Случај "12.0" ЦхецкОффицеКеи стрОффицеКеи & "\ 12.0 \ Регистрација", 52, интПродуцтЦоунт Цасе "14.0" ЦхецкОффицеКеи стрОффицеКеи & "\ 14.0 \ Регистрација", 808, интПродуцтЦоунт Цасе "15.0" Регистрација ЦхецкОффицеКеи стрОффицеКеи & " интПродуцтЦоунт Енд Селецт Нект Енд Иф стрБасеКеи = "СОФТВАРЕ \ Вов6432Ноде \" стрОффицеКеи = стрБасеКеи & "Мицрософт \ Оффице" постави објРег = ГетОбјецт ("винмгмтс: имперсонатионЛевел = имперсонате! \\. \ роот \ обн .: обор \ обн: обн. Рег.ЕнумКеи ХКЛМ, стрОффицеКеи, аррОффицеВерсионСубКеис интПродуцтЦоунт = 1 Ако је ИсАрраи (аррОффицеВерсионСубКеис) Затим за сваку стрОффицеВерсионКеи у аррОффицеВерсионСеиКеиеКеиеКеиКеиеКеиееКеие-ове \ 12.0 \ Регистрација ", 52, интПродуцтЦоунт Цасе" 14.0 "ЦхецкОффицеКеи стрОффицеКеи &" \ 14.0 \ Регистрација ", 808, интПродуцтЦоунт Цасе" 15.0 "ЦхецкОффицеКеи стрОффицеКеи &" \ 15.0 \ Регистрација ", 808, интПродуцтЦоунт Енд Селецт Нект Енд Иф Енд 'Оффице Продуцт Кеи Под ЦхецкОффицеКеи (стрРегПатх, интКеиОффсет, интПродуцтЦоунт) сет објРег = ГетОбјецт ( "винмгмтс: имперсонатионЛевел = имитирају \\ \ роот \ Дефаулт:!. СтдРегПров") објРег.ЕнумКеи ХКЦУ, стрРегПатх, аррОффицеРегистратионс Иф ИсАрраи (аррОффицеРегистратионс ) Затим за сваку стрОффицеРегистратион у аррОффицеРегистратионс објРег.ГетСтрингВалуе ХКЛМ, стрРегПатх & "\" & стрОффицеРегистратион, "ЦонвертТоЕдитион", стрОффицеЕдит јони интПродуцтЦоунт + 1 крај ако је следећи крај ако заврши потфункција РегРеадБинари (стрРегПатх, стрРегВалуе) Постави објРег = ГетОбјецт ("винмгмтс: имперсонатионЛевел = имперсонате! \\. \ роот \ дефаулт: СтдРегПров,) , аррРегБинариДата РегРеадБинари = аррРегБинариДата Постави објРег = Ништа крај функција Функција ОсАрцх () Постави објСхелл = ВСцрипт.ЦреатеОбјецт ("ВСцрипт.Схелл") Ако објСхелл.ЕкпандЕнвиронментСтрингс ("% ПрограмФилес (к86)" "Онда ОсАрцх =" к86 "Елсе ОсАрцх =" к64 "Крај Ако је постављено објСхелл = Ништа крај функције Функција Суб ВритеДата (стрПроперти, стрВалуе) ВСцрипт.Ецхо стрПроперти &": "& Трим (стрВалуе) Енд Суб 
Спремна датотека * .вбс датотека: гет-оффице-кеис-вбс.зип
Проверили ћемо примљени кључ помоћу стандардне функције која вам омогућава да прикажете последњих 5 знакова кључа. За 32-битни Оффице у 64-битном Виндовс-у наредба је:
цсцрипт "Ц: \ Програм Филес (к86) \ Мицрософт Оффице \ Оффице14 \ ОСПП.ВБС" / дстатус
Дио кључа мора одговарати претходним подацима.
Шифра производа: 6ф327760-8ц5ц-417ц-9б61-836а98287е0ц
НАЗИВ ЛИЦЕНЦЕ: Оффице 14, издање ОффицеПроПлус-КМС_Цлиент
ОПИС ЛИЦЕНЦЕ: Оффице 14, ВОЛУМЕ_КМСЦЛИЕНТ канал
СТАТУС ДОЗВОЛЕ: --- ЛИЦЕНЦИРАНО---
КОД ГРЕШКЕ: 0 као лиценцирано
Последњих 5 знакова инсталираног кључа производа: Х3ГВБ
РЕМАИНИНГ ГРАЦЕ: 178 дана (255897 минут (а) пре истека)
