| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

F1! Как прикрутить HASP k ASP у 7.3 (восток)?

St!ff ©   (2003-02-26 21:05:00) 

F1! Как прикрутить HASP k ASP"у 7.3 (восток)?

---

sniknik   (2003-02-27 08:44:00) [1]

а что такое ASP?

как к нему прикручивать не знаю а в программе так (это простейший вариант, без функций, мемо и т.д., работает с ключами всех типов (именно потому что простейший))

IS_HASP = 1;
GET_HASP_CODE = 2;
READ_MEMO = 3;
WRITE_MEMO = 4;
GET_HASP_STATUS = 5;
GET_ID_NUM = 6;
READ_MEMO_BLOCK = 50;
WRITE_MEMO_BLOCK = 51;

procedure hasp (Service, SeedCode, LptNum, Pass1, Pass2 : longint;
var p1,p2,p3,p4 : longint);external;
{$L hasp32b.obj} //идет с драйверами

function CheckHasp : Boolean;
const Pass1: integer = код1;
Pass2: integer = код2;
SeedCode: integer = вашезн.;
LptNum: integer = 0;
p1: integer = 0;
p2: integer = 0;
p3: integer = 0;
p4: integer = 0;
begin
hasp (IS_HASP, SeedCode, LptNum, Pass1, Pass2, p1, p2, p3, p4);
if (p1 = 0) then CheckHasp:= False
else begin
hasp ( GET_HASP_CODE, SeedCode, LptNum, Pass1, Pass2, p1, p2, p3, p4 );
if (p1 = отв1) and (p2 = отв2) and (p3 = отв3) and (p4 = отв4) then CheckHasp:= True
else CheckHasp:= False
end;
end;

код1, код2 - значения которые выдаются аладином при первой покупке (договоре) в дальнейшем не меняются (в основном)

вашезн - от этого зависят ответы.
отв1..4 - собственно ответ ключа.

---

Cobalt   (2003-02-27 08:01:00) [2]

Нууу, батенька, к Alladin"у(кажись, так называется производитель?) не пробовали обратиться?

---

Наверх