Всем привет. Я тут на ютАбе увидел видео Colobrod'а, где он демонстрировал AHK.. И вот у меня появился вопрос... Я декомпелировал премиум версию скрипта, чтобы узнать, как он выглядит. Я там увидел то, что он "1 -
- он использует ключ от Windows для того, чтобы при авторизации его использовать для проверки, купил ли человек скрипт.."
2 - это то, что ключ преобразуется и на сервере они выглядят иначе. Они состоят из 64 символов. В скрипте есть такие строки..
Menu, Tray, NoIcon
k0 = 0x11111111
k1 = 0x22222222
k2 = 0x33333333
k3 = 0x44444444
l0 = 0x12345678
l1 = 0x12345678
m0 = 0x87654321
m1 = 0x87654321
IniRead, USER, Registration.ini, Registration, USER, 0
IniRead, MAIL, Registration.ini, Registration, MAIL, 0
strComputer := "."
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2")
colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum
While colSettings[objOSItem]
{
UNIC := objOSItem.SerialNumber
}
StringUpper, USER, USER
StringUpper, MAIL, MAIL
StringUpper, UNIC, UNIC
StringTrimLeft, FINAL, UNIC, 18
AuthData := XCBC(Hex(USER,StrLen(USER)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1) . XCBC(Hex(MAIL,StrLen(MAIL)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1) . XCBC(Hex(UNIC,StrLen(UNIC)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1) . XCBC(Hex(FINAL,StrLen(FINAL)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1)
URLDownloadToFile, http://colobrod.tioo.ru/i5n6v.txt, %a_temp%/i5n6v.txt
fileread, read, %a_temp%/i5n6v.txt
if read contains %AuthData%
goto true
Я понял, что ключ преобразовывается, но только не понимаю как.. Я попробовал создать msgbox для вытаскивания ключа 64 значного, но почему то скрипт не запускался. Можете предложить способ получить 64 значный ключ?
2 - это то, что ключ преобразуется и на сервере они выглядят иначе. Они состоят из 64 символов. В скрипте есть такие строки..
Menu, Tray, NoIcon
k0 = 0x11111111
k1 = 0x22222222
k2 = 0x33333333
k3 = 0x44444444
l0 = 0x12345678
l1 = 0x12345678
m0 = 0x87654321
m1 = 0x87654321
IniRead, USER, Registration.ini, Registration, USER, 0
IniRead, MAIL, Registration.ini, Registration, MAIL, 0
strComputer := "."
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2")
colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum
While colSettings[objOSItem]
{
UNIC := objOSItem.SerialNumber
}
StringUpper, USER, USER
StringUpper, MAIL, MAIL
StringUpper, UNIC, UNIC
StringTrimLeft, FINAL, UNIC, 18
AuthData := XCBC(Hex(USER,StrLen(USER)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1) . XCBC(Hex(MAIL,StrLen(MAIL)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1) . XCBC(Hex(UNIC,StrLen(UNIC)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1) . XCBC(Hex(FINAL,StrLen(FINAL)), 0,0, k0,k1,k2,k3, l0,l1, m0,m1)
URLDownloadToFile, http://colobrod.tioo.ru/i5n6v.txt, %a_temp%/i5n6v.txt
fileread, read, %a_temp%/i5n6v.txt
if read contains %AuthData%
goto true
Я понял, что ключ преобразовывается, но только не понимаю как.. Я попробовал создать msgbox для вытаскивания ключа 64 значного, но почему то скрипт не запускался. Можете предложить способ получить 64 значный ключ?
