Форум: "Система";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Вниз

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

← →
St!ff   (2003-02-26 21:05) [0]

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

---

← →
Cobalt   (2003-02-27 08:01) [1]

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

---

← →
sniknik   (2003-02-27 08:44) [2]

а что такое 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 - собственно ответ ключа.

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c