Направите ВБСцрипт датотеку скрипте са следећим кодовима. Сачувајте датотеку са екстензијом .вбс, на пример: ПродуцтКеи.вбс – Само двапут кликните на датотеку. Ако имате пиратске прозоре, видећете празно! Али ако имате оригинални Виндовс, моћи ћете да видите продуцтКеи
код:
Поставите ВсхСхелл = ЦреатеОбјецт(“ВСцрипт. Шкољка")
МсгБок ЦонвертТоКеи (ВсхСхелл. РегРеад(“ХКЛМ\СОФТВАРЕ\Мицрософт\Виндовс НТ\ЦуррентВерсион\ДигиталПродуцтИд”))
Функција ЦонвертТоКеи (Кеи)
Цонст КеиОффсет = 52
и = 28
Знакови = “БЦДФГХЈКМПКРТВВКСИ2346789”
Урадити
Цур = 0
к = 14
Урадити
Цур = Цур * 256
Цур = Кеи (к + КеиОффсет) + Цур
Тастер (к + КеиОффсет) = (Цур \ 24) и 255
Цур = Цур Мод 24
к = к -1
Петља Док је к >= 0
и = и -1
КеиОутпут = Мид (Цхарс, Цур + 1, 1) & КеиОутпут
Ако је (((29 – и) Мод 6) = 0) И (и -1) Онда
и = и -1
КеиОутпут = “-” & КеиОутпут
Крај Ако
Петља Док је и >= 0
ЦонвертТоКеи = КеиОутпут
Енд Фунцтион