Microteam
Осваивающий
- Сообщения
- 74
- Репутация
- 34
AutoIt: 3.3.6.1
Версия: 1.0.0.0
Категория:
Описание: Создание триального периода.
Представляю вам хороший модуль для триала. Microteam TrialHype 1.0. С помощью этого модуля, вы сможете моздать триал для вашей программы. В этом триале всё криптуется по алгоритму RC4. Автоматическая генерация TrialID, это идентификатор. Вот код ниже:
Пример работы имеется. Когда программа активированна, то создается файл в папке с программой Certificat.mcr это файл активации. Он будет работать только на том компьютере, на котором активирован. На других этот файл работать не будет. Справка в самом файле.
Никаких бэкдоров я туда не вставлял. Для некоторых Бэкдор (Backdoor) - это такая программа или дырка в программе, через которую создатель может получить доступ к программе и т.д
Вот ещё вам генератор ключей для Microteam TrialHype. http://microteam.kz/filez/TrialHype_Microteam_v10_2011.rar
(Не пожалел залил его на свой сайт.
Как работает генератор ключей. Вы вводите ID и пароль который вы указали и он автоматически генерируется и копируется в буфер обмена. В программе вы просто вставляете его и всё))).
(Если что могу сделать этот генератор с поддержкой командной строки, нуу для сайтов и т.д)
Потихоньку буду устранять дырки в TrialHype.(Их там не сильно много.) Смотрите и отписывайтесь. И можете задавать вопросы тоже сздесь))) Постараюсь правильно ответить на них)))
Код:
Файл: Генератор для TrialHype
Снимок: N/A
История версий:
Источник: microteam.kz
Автор(ы): Microteam inc.
Версия: 1.0.0.0
Категория:
Описание: Создание триального периода.
Представляю вам хороший модуль для триала. Microteam TrialHype 1.0. С помощью этого модуля, вы сможете моздать триал для вашей программы. В этом триале всё криптуется по алгоритму RC4. Автоматическая генерация TrialID, это идентификатор. Вот код ниже:
Пример работы имеется. Когда программа активированна, то создается файл в папке с программой Certificat.mcr это файл активации. Он будет работать только на том компьютере, на котором активирован. На других этот файл работать не будет. Справка в самом файле.
Никаких бэкдоров я туда не вставлял. Для некоторых Бэкдор (Backdoor) - это такая программа или дырка в программе, через которую создатель может получить доступ к программе и т.д
Вот ещё вам генератор ключей для Microteam TrialHype. http://microteam.kz/filez/TrialHype_Microteam_v10_2011.rar
(Не пожалел залил его на свой сайт.
Как работает генератор ключей. Вы вводите ID и пароль который вы указали и он автоматически генерируется и копируется в буфер обмена. В программе вы просто вставляете его и всё))).
(Если что могу сделать этот генератор с поддержкой командной строки, нуу для сайтов и т.д)
Потихоньку буду устранять дырки в TrialHype.
(Их там не сильно много.) Смотрите и отписывайтесь. И можете задавать вопросы тоже сздесь))) Постараюсь правильно ответить на них)))Код:
Код:
#include<String.au3>
#cs
Модуль Триала от Microteam inc. [email protected]
Если что обращайтесь помогу))))
Справка по использованию:
TrialExists([ ]) - Проверка триала, работает он или нет.
Возвращаемое значение:
1 - Если Активированна
0 - Если не Активированна
32 - Если Количество запусков закончилось
AddCount([ counts ]) - Добавление количества запуска
counts - это количество запусков которое нужно прибавить.
Возвращаемое значение:
null
DoDays([ ]) - Эта функция возвращает количество оставшихся запусков.
Возвращаемое значение:
Количество оставшихся запусков. Иначе 0
GetID() - Эта функция генерирует ID, который после первой генерации не изменяеться, состоит из 20 символов в формате HEX!
Возвращаемое значение:
Идентификатор
Иначе 0
Activate([ ID ], [ Pass ]) - Эта функция активирует триал т.е проверка ввода ключа.
ID - Идентификатор генерируемый функцией GetID().
Pass - Ключ активации.
Возвращаемое значение:
Если Активация прошла успешно то 1 Иначе 0.
Activated([ ]) - Проверка активирован ли триал.
Возвращаемое значение:
1 Если активированна Иначе 0.
ВНИМАНИЕ:
Незабудьте ввести Пароль и имя программы
----About----
Разработчик Microteam inc.
Сайт: http://microteam.kz
e-mail: [email protected]
Пишите буду рад сотрудничать с вами)))))
#ce
Local $TL_PASSWORD = 12345 ; Главный Пароль
Local Const $TL_PROGRAMNAME = "MyProgram" ; Имя программы
Local $RandomID
Func TrialExist()
$TL_Certificat=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"Certificat")
If FileExists(@ScriptDir&"\Certificat.mcr") Then
$TE_CERT=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"ID")
If Activated() Then
Return 1
EndIf
EndIf
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"Cache")="" Then
FirstTrial()
Return 0
Else
If Not FileExists(@SystemDir&"\wpa.dgl") Then
MsgBox(48,"Системная ошибка","Активация поверждена. Программа заершает свою работу")
EndIf
$TL_DAYS_CRYPT=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"Cache")
If Days($TL_DAYS_CRYPT) Then
Return 32
Else
Return 0
EndIf
EndIf
EndFunc
Func GetID()
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"ID")="" Then
$TL_ID=GenerateID()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"ID","REG_SZ",$TL_ID)
Return $TL_ID
Else
$TL_ID=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"ID")
Return $TL_ID
EndIf
EndFunc
Func GenerateID()
For $TL_I=1 To 20
$RandomID&=RandomHex()
Next
Return $RandomID
EndFunc
Func RandomHex()
$RH_RANDOM=Random(0,15,1)
Switch $RH_RANDOM
Case 10
Return "A"
Case 11
Return "B"
Case 12
Return "C"
Case 13
Return "D"
Case 14
Return "E"
Case 15
Return "F"
Case Else
Return $RH_RANDOM
EndSwitch
EndFunc
Func AddCount($AC_COUNT)
$AC_CRYPTED_DAYS=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"Cache")
$AC_DECRYPTED_DAYS=_StringEncrypt(0,$AC_CRYPTED_DAYS,$TL_PASSWORD)
$AC_TEMP=$AC_DECRYPTED_DAYS+$AC_COUNT
$AC_ENCRYPTED_DAYS=_StringEncrypt(1,$AC_TEMP,$TL_PASSWORD)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"Cache","REG_SZ",$AC_ENCRYPTED_DAYS)
EndFunc
Func DoDays()
$DD_CRYPTED_DAYS=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"Cache")
$DD_DECRYPTED_DAYS=_StringEncrypt(0,$DD_CRYPTED_DAYS,$TL_PASSWORD)
$DD_DAYS=30 - $DD_DECRYPTED_DAYS
Return $DD_DAYS
EndFunc
Func CheckPass($CP_PASS,$CP_ID)
$CP_DECRYPTED=_StringEncrypt(0,$CP_PASS,$TL_PASSWORD)
If $CP_DECRYPTED=$CP_ID Then
Return 1
Else
Return 0
EndIf
EndFunc
Func Days($DS_CRYPTED_DAYS)
$DS_DECRYPTED_DAYS=_StringEncrypt(0,$DS_CRYPTED_DAYS,$TL_PASSWORD)
If $DS_DECRYPTED_DAYS=30 Then
Return 1
Else
Return 0
EndIf
EndFunc
Func FirstTrial()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\"&$TL_PROGRAMNAME,"Cache","REG_SZ",_StringEncrypt(1,"1",$TL_PASSWORD))
FileWrite(@SystemDir&"\wpa.dgl","00000000")
GetID()
EndFunc
Func Activated()
$AV_KEY=FileReadLine(@ScriptDir&"\Certificat.mcr",1)
$AV_DKEY=_StringEncrypt(0,$AV_KEY,$TL_PASSWORD)
If GetID()=$AV_DKEY Then
Return 1
Else
Return 0
EndIf
EndFunc
Func Activate($AA_ID,$AA_KEY)
If CheckPass($AA_KEY,$AA_ID) Then
$AA_CER=$AA_KEY
FileWriteLine(@ScriptDir&"\Certificat.mcr",$AA_CER)
Return 1
Else
Return 0
EndIf
EndFunc
;------------------Test-------------------------
#include<GuiConstants.au3>
#include<EditConstants.au3>
GuiCreate("Тестирование Модуля Microteam TrialHype Module",200,200)
GuiSetState()
$TST_ENABLE=GuiCtrlCreateButton("Проверить\Вкл. Триал",5,5,190)
$TST_KEY=GuiCtrlCreateButton("Ввести ключ",5,35,190)
$TST_DO=GuiCtrlCreateButton("Осталось?",5,65,190)
$TST_ADD=GuiCtrlCreateButton("Добавить запуск",5,95,190)
GuiCtrlCreateLabel("Ваш ID:",5,130)
GuiCtrlCreateInput(GetID(),5,150,190,20,$ES_READONLY)
TrialExist()
While 1
Switch GuiGetMsg()
Case $TST_ENABLE
If TrialExist()=1 Then
MsgBox(64,"Microteam inc.","Ключ введен.")
ElseIf TrialExist()=32 Then
MsgBox(64,"Microteam inc.","Триал работает. Количество запусков превышено.")
Else
MsgBox(64,"Microteam inc.","Триал работает. Ключ ещё не введен.")
EndIf
Case $TST_KEY
If Activated() Then
MsgBox(64,"Microteam inc.","Система уже активированна.")
Else
$TST_ACTKEY=InputBox("Ввод ключа","Введите ключ")
$TST_ID=GetID()
If Activated() Then
MsgBox(64,"Активация.","Всё Активированно")
Else
MsgBox(64,"Активация.","Ключ неверный")
EndIf
EndIf
Case $TST_DO
If Not Activated() Then
MsgBox(64,"Microteam inc.","Осталось запусков: "&DoDays())
Else
MsgBox(64,"Невозможно.","Система уже активированна")
EndIf
Case $TST_ADD
If Not Activated() Then
AddCount(1)
MsgBox(64,"Microteam inc.","Запуск успешно добавлен")
Else
MsgBox(64,"Microteam inc.", "Невозможно, система уже активированна.")
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
;----------------EndTest------------------------Снимок: N/A
История версий:
Источник: microteam.kz
Автор(ы): Microteam inc.
