Гайд Привязка ahk

THE LUPA · 31 Июл 2021

Всем здарова, я вам покажу как сделать привязку ahk по серийнику жёсткого диска.
Нам понадобится функции:
UrlGetContents - Получает текст из html кода.
CheckHwid - Проверяет серийник в базе доступа.
Приступим к написанию самой программы.

Код:

global hwid_url := "https://drive.google.com/uc?export=download&confirm=no_antivirus&id=14VhptUP_RNVdyaI_mSfCv4ekhBVDLylb"
global cHwid := ""

UrlGetContents(sUrl) {
    ComObjError(False) ; Не выводим ошибки пользователю
    http := ComObjCreate("WinHttp.WinHttpRequest.5.1") ; Подключаем библиотеку WinHttpRequest

    http.Open("GET", sUrl, false) ; Открываем html страницу
    http.Send() ; Получаем данные

    ;Эта библиотека нужна для кириллицы, можете подробнее узнать в гугле
    ADODBStream := ComObjCreate("ADODB.Stream")
    ADODBStream.Type := 1
    ADODBStream.Mode  := 3
    ADODBStream.Open()
    ADODBStream.Write(http.ResponseBody)
    ADODBStream.Position := 0
    ADODBStream.Type := 2
    ADODBStream.Charset := "UTF-8"

    text := ADODBStream.ReadText()
    ADODBStream.Close()
    return text ; Возращаем полученный текст
}

CheckHwid() {
    DriveGet, cHwid, Serial, C:\ ; Получаем серийник нашего жётского диска (В моём случае C:)
    Loop, Parse, % UrlGetContents(hwid_url), `n ; В цикле парсим данные из html страницы через строку
    {
        sHwid := strsplit(A_LoopField, "-") ; делим полученные данные через символ "-"
        if (cHwid == sHwid[1]) ; Задаём нужный нам массив с данными
            retrun TRUE ; Если есть hwid на хостинге
    }
    return FALSE ;Возращает false если не прошли проверку сверху
}

Код:

SetWorkingDir %A_ScriptDir%
#include function.ahk

if (!CheckHwid()) { ; Здесь происходит проверка на hwid, если функция вернула false, то он выводит сообщение что нет hwid на хостинге, если true пропускается
    msgbox, 0x30, Предупреждение, % "Hwid: " cHwid "`nНет в базе доступа!"
    return
}

msgbox, 0x40, Информация, % "Скрипт работает :)"

alexandyr · 31 Июл 2021

блять пиздец.... давайте фотошоп на ахк

THE LUPA · 31 Июл 2021

Можно также получать имя которое вы ввели на хостинге

Код:

CheckHwid() {
    Active := FALSE
    DriveGet, cHwid, Serial, C:\ ; Получаем серийник нашего жётского диска (В моём случае C:)
    Loop, Parse, % UrlGetContents(hwid_url), `n ; В цикле парсим данные из html страницы через строку
    {
        sHwid := strsplit(A_LoopField, " - ") ; делим полученные данные через символ "-"
        if (cHwid == sHwid[1]) { ; Задаём нужный нам массив с данными
            Active := TRUE ; Если hwid совпал, то Active = true
            name := sHwid[2] ; Получаем имя на хостинге
        }
    }
    return Active ; Возращаем значение
}

GoldMenCZ · 1 Авг 2021

THE LUPA написал(а):

Можно также получать имя которое вы ввели на хостинге

Код:

CheckHwid() {
    Active := FALSE
    DriveGet, cHwid, Serial, C:\ ; Получаем серийник нашего жётского диска (В моём случае C:)
    Loop, Parse, % UrlGetContents(hwid_url), `n ; В цикле парсим данные из html страницы через строку
    {
        sHwid := strsplit(A_LoopField, " - ") ; делим полученные данные через символ "-"
        if (cHwid == sHwid[1]) { ; Задаём нужный нам массив с данными
            Active := TRUE ; Если hwid совпал, то Active = true
            name := sHwid[2] ; Получаем имя на хостинге
        }
    }
    return Active ; Возращаем значение
}

Посмотреть вложение 163678

Чего-то я не понял как ссылку нормальную ему дать. Вроде вписываю свой хвид на гуглдиск-е, а он пишет "неверный".

THE LUPA · 1 Авг 2021

GoldMenCZ написал(а):
Чего-то я не понял как ссылку нормальную ему дать. Вроде вписываю свой хвид на гуглдиск-е, а он пишет "неверный".

там должна быть прямая ссылка или же ссылка на хост с файлом
Можешь ввести в гугле генератор прямых ссылкой для гугл диска

hkon · 1 Авг 2021

THE LUPA написал(а):

Всем здарова, я вам покажу как сделать привязку ahk по серийнику жёсткого диска.
Нам понадобится функции:
UrlGetContents - Получает текст из html кода.
CheckHwid - Проверяет серийник в базе доступа.
Приступим к написанию самой программы.

Код:

global hwid_url := "https://drive.google.com/uc?export=download&confirm=no_antivirus&id=14VhptUP_RNVdyaI_mSfCv4ekhBVDLylb"
global cHwid := ""

UrlGetContents(sUrl) {
    ComObjError(False) ; Не выводим ошибки пользователю
    http := ComObjCreate("WinHttp.WinHttpRequest.5.1") ; Подключаем библиотеку WinHttpRequest

    http.Open("GET", sUrl, false) ; Открываем html страницу
    http.Send() ; Получаем данные

    ;Эта библиотека нужна для кириллицы, можете подробнее узнать в гугле
    ADODBStream := ComObjCreate("ADODB.Stream")
    ADODBStream.Type := 1
    ADODBStream.Mode  := 3
    ADODBStream.Open()
    ADODBStream.Write(http.ResponseBody)
    ADODBStream.Position := 0
    ADODBStream.Type := 2
    ADODBStream.Charset := "UTF-8"

    text := ADODBStream.ReadText()
    ADODBStream.Close()
    return text ; Возращаем полученный текст
}

CheckHwid() {
    Active := FALSE
    DriveGet, cHwid, Serial, C:\ ; Получаем серийник нашего жётского диска (В моём случае C:)
    Loop, Parse, % UrlGetContents(hwid_url), `n ; В цикле парсим данные из html страницы через строку
    {
        sHwid := strsplit(A_LoopField, "-") ; делим полученные данные через символ "-"
        if (cHwid == sHwid[1]) ; Задаём нужный нам массив с данными
            Active := TRUE ; Если hwid совпал, то Active = true
    }
    return Active ; Возращаем значение
}

Код:

SetWorkingDir %A_ScriptDir%
#include function.ahk

if (!CheckHwid()) { ;Здесь происходит проверка, CheckHwid() = true он пропускает проверку, если же CheckHwid() = false, то идёт выполнение проверки
    msgbox, 0x30, Предупреждение, % "Hwid: " cHwid "`nНет в базе доступа!"
    return
}

msgbox, 0x40, Информация, % "Скрипт работает :)"

всё это конечно круто, но ахк декомпилится

THE LUPA · 1 Авг 2021

hkon написал(а):
всё это конечно круто, но ахк декомпилится

что мешает сделать протект кода?

hkon · 1 Авг 2021

THE LUPA написал(а):
что мешает сделать протект кода?

всё равно это почти ничем не поможет, чек лицензий по http запросу легко крякнуть

qualitestaholic · 1 Авг 2021

hkon написал(а):
всё равно это почти ничем не поможет, чек лийензий по http запросу легко крякнуть

Если представить, что AHK невозможно декомпилировать, то тогда можно замутить SSL Pining. Я уверен, что это можно сделать даже на AHK.

Bunnyscript · 7 Авг 2021

Любой протект кода можно снять, хоть вручную или при помощи программ. А декомпилировать ахк вообще "просто".

prince1337 · 7 Авг 2021

банихоп от айдара теперь будет под защитой ?

Bunnyscript · 7 Авг 2021

нет, я любой ахк скрипт могу взломать, если что

.

hitogami · 7 Авг 2021

Bunnyscript написал(а):
нет, я любой ахк скрипт могу взломать, если что .

Может тогда устроишь гайдик ?

Bunnyscript · 7 Авг 2021

Так нужно объяснять, как реверсить AHK прогу. Непросто как-бы.

qualitestaholic · 7 Авг 2021

Bunnyscript написал(а):
Любой протект кода можно снять, хоть вручную или при помощи программ. А декомпилировать ахк вообще "просто".

вряд ли ты снимешь vmprotect 3.5.x

Bunnyscript · 8 Авг 2021

Xmar5inalX написал(а):
вряд ли ты снимешь vmprotect 3.5.x

Да в гугле столько примеров, как распаковывать эти протекторы.

qualitestaholic · 8 Авг 2021

Bunnyscript написал(а):
Да в гугле столько примеров, как распаковывать эти протекторы.

Dmitrrr · 9 Авг 2021

Bunnyscript написал(а):
нет, я любой ахк скрипт могу взломать, если что .

Попробуешь мой?

Bunnyscript · 10 Авг 2021

Даже без отладчика можно взломать скрипт. Построчно записываешь любой символ в строку. Скрипт будет выдавать ошибку со строкой кода и все. И зачем такой вопрос задавать, чтобы я взломал прогу?

Dmitrrr · 11 Авг 2021

Bunnyscript написал(а):
Даже без отладчика можно взломать скрипт. Построчно записываешь любой символ в строку. Скрипт будет выдавать ошибку со строкой кода и все. И зачем такой вопрос задавать, чтобы я взломал прогу?

Ты не сможешь взломать ту защиту что у меня есть. У меня отец программист 23года стажа чисто написал мне защиту на С++ я прогу делал для продаж, я за C++ не шарю но она мощная. Ты не взломаешь не как. Если ты конечно больше 10 лет в кодинге. Скорее всего да. А так нет P.S прога на AHK

Гайд Привязка ahk

Вложения