13-й квартал,
Не получилось вместо
1.
Declare Function apiGetTrialDays Lib "asprotect.dll" () As Long
(как у них в документации по VB6)
написать и как-то это использовать, т.е. получить результат
1.
Declare Function GetTrialDays Lib "asprotect.dll" (ByVal Total as Long, ByVal Left as Long) As Long
(как "следует" из документации по C++)
И думаю не получится. Я думаю это абсолютно разные API с абсолютно другими механизмами.
Я накатал тестовый примитивный Win32 Console exe в C++ и он полностью рабочий:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
// LicenceC.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
char* LocalHardwareID = NULL;
char* UserName = NULL;
int TrialDaysTotal = -1,
TrialDaysLeft = -1;
int TrialExpireDay = -1,
TrialExpireMonth = -1,
TrialExpireYear = -1;
int KeyExpireDay = -1,
KeyExpireMonth = -1,
KeyExpireYear = -1;
//---------------------------------------------------------------------
// This procedure will be called by ASProtect for
// setting of hardware key
//---------------------------------------------------------------------
void __declspec(dllexport) __stdcall GetHardwareID(char* HardwareID){
LocalHardwareID = HardwareID;
}
//---------------------------------------------------------------------
//----------------------------------------------------------------------
// Try to get a registration information.
// ASProtect will set this information after a checking of a registraion
// key
//----------------------------------------------------------------------
void __declspec(dllexport) __stdcall GetRegistrationInformation(char* NewUserName){
UserName = NewUserName;
}
//----------------------------------------------------------------------
// ASProtect will set a trial information after a checking of a registraion
// key
//----------------------------------------------------------------------
void __declspec(dllexport) __stdcall GetTrialDays(int Total, int Left){
TrialDaysTotal = Total;
TrialDaysLeft = Left;
}
//---------------------------------------------------------------------
void __declspec(dllexport) __stdcall GetExpirationDate(int Day, int Month, int Year){
TrialExpireDay = Day;
TrialExpireMonth = Month;
TrialExpireYear = Year;
}
void __declspec(dllexport) __stdcall GetKeyExpirationDate(int Day, int Month, int Year){
KeyExpireDay = Day;
KeyExpireMonth = Month;
KeyExpireYear = Year;
}
int _tmain(int argc, _TCHAR* argv[])
{
printf("HardwareID= %s\n", LocalHardwareID);
printf("UserName= %s\n", UserName);
printf("TrialDaysTotal= %d, TrialDaysLeft= %d\n",TrialDaysTotal, TrialDaysLeft);
printf("TrialExpire= %d.%d.%d\n", TrialExpireDay,TrialExpireMonth,TrialExpireYear);
printf("KeyExpire= %d.%d.%d\n", KeyExpireDay,KeyExpireMonth,KeyExpireYear);
return 0;
}
Т.е. идея такая: при запуске защищенного exe, Asprotect сам вызывает свои "API" c нужными аргументами и при исполнении (см. код) эти аргументы сохраняются в независимых переменных в программе, и программа знает UserName,KeyExpireDay и т.п. И сдается мне, в VB6 такой механизм просто не работает.
А что касается VB-шных 4-рех API, они вызываются из программы пользовательским кодом.
1.
2.
3.
Sub Form_Load()
TrialDaysLeft=apiGetTrialDays() 'вызов API
End Sub
в режиме вопрос-ответ.
В VB-шных API проблема с пониманием лицензии с "Expiration Date"
Т.е. если
Expiration Date = "1 августа", а лицензия на имя "Vasja"
то C-шный (см. выделенные строчки) код 30 июля будет выдавать:
1.
2.
UserName="Vasja" //есть лицензия для Васи
KeyExpire = 01.08.2013 //1 августа она истекает
а 2 августа выдаст
1.
2.
UserName="" //нет лицензии (если и есть, то недействительна) Имя пустое!!!
KeyExpire = 01.08.2013 //1 августа временная лицензия истекла
Т.е. по сути у меня аж 2 ф-ции (GetKeyExpirationDate -могу сравнить с тек. датой и GetRegistrationInformation -пустое имя означает что лицензии нет или она истекла) чтоб понять что лицензия истекла
А в VB6 у меня единственная ф-ция
1.
2.
3.
4.
5.
6.
7.
Declare Function apiGetRegistrationBuffer Lib "asprotect.dll" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetRegName() As String
Dim RegName As String
' Receive a Registration Info from API's apiGetRegInfo function
RegName = String$(255, 0)
GetRegName = Left(RegName, apiGetRegistrationBuffer(RegName, InStr(RegName, Chr(0)) - 1))
End Function
И мало того что я не знаю KeyExpire = 01.08.2013, так эта ф-ция еще и не работает правильно, т.е.
VB6 30 июля будет выдавать
и 2 августа будет выдавать
Невозможно различить ВРЕМЕННАЯ ЛИЦЕНЗИЯ ЕЩЕ ДЕЙСТВИТЕЛЬНА и СРОК ВРЕМЕННОЙ ЛИЦЕНЗИИ ИСТЕК.
Т.е. временный ключ воспринимается как постоянный.
По идее я могу запускать C-шный exe шник и возвращать недостающую информацию в VB6
Либо через return (ExitCode=число содержащее результат)
Либо через return (ExitCode=Ptr на ячейку памяти где хранится структура с результатом)
Вопрос: как из C(++) реализовать запись структуры в область памяти с указателем Ptr чтоб не стерлось при выходе из программы?
Либо надо преобразовать C++.exe в C++.dll, наделить эту dll API-ф-цией GetLicence(...) и вызывать тупо из VB6.
Но здесь потенциальная проблема: надо чтоб при вызове GetLicence(...) из dll автоматически исполнялись ф-ции защиты, которые сбрасывают нужные значения в UserName, KeyExpire и т.д. в переменные внутри dll (как это делает exe-шник код которого выше) чтоб моя API смогла их вернуть.
Вопрос: как сделать такую dll? Содержащую API кот. можно вызвать из VB6? Простенький пример?
Но. Есть проблема. То о чем я пишу, НЕ ЗАЩИЩЕНО.
Т.е. exe или dll тупо подменяется "ломаным вариантом", кот. возвращает через return или через API желаемый результат вместо настоящего(содержащего статус лицензии).
Вопрос: как проверить, что exe-шник кот. я запускаю или dll из кот. я вызываю API именно МОИ РОДНЫЕ а не ХАКЕР ПРОДАКШН?
