компоненты для HASP

← →
rdv © (2003-08-06 11:14) [0]

Дамы и Господа!
если кто-нть может поделиться компонентой для работы с HASP для нашей родной Дельфи, - буду очень признателен.
За рабочую ссылку тоже спасибо!

← →
AlexRush © (2003-08-06 11:42) [1]

Дак если ты HASP покупал, то к нему всё и идет (API). Компонеты там и ни к чему. А вообще-то хасп - дряная защита. Методы взлома не то что наработаны - они автоматизированы.

← →
I.C. (2003-08-06 13:21) [2]

Alladin....сайт и софт там же

← →
Евген © (2003-08-06 15:31) [3]

> AlexRush ©

А поподробнее о методах взлома, пожалуйста. Или ссылочку кинь на мыло плз :-) !!!

← →
Затейник - некрофил (клоны суксь) (2003-08-06 16:04) [4]

Не, если алладином с умом пользоваца, то взломает далеко не каждый хацкер.

← →
sniknik © (2003-08-06 16:13) [5]

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

IS_HASP = 1; GET_HASP_CODE = 2; procedure hasp (Service, SeedCode, LptNum, Pass1, Pass2 : longint; var p1,p2,p3,p4 : longint);external; {$L hasp32b.obj} function CheckHasp : Boolean; const Pass1: integer = xxxxx; Pass2: integer = xxxxx; SeedCode: integer = xxxxx; 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 ); ( p1 = xxxxx) простейшая проверка на то что хасп есть и он "наш", хочеш в виде компонента сам оформляй. (хасп алладин, у других может быть по другому (в документации прописано как)) IS_HASP = 1; GET_HASP_CODE = 2; procedure hasp (Service, SeedCode, LptNum, Pass1, Pass2 : longint; var p1,p2,p3,p4 : longint);external; {$L hasp32b.obj} function CheckHasp : Boolean; const Pass1: integer = xxxxx; Pass2: integer = xxxxx; SeedCode: integer = xxxxx; 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 = xxxxx) and (p2 = xxxxx) and (p3 = xxxxx) and (p4 = xxxxx) then CheckHasp:= True else CheckHasp:= False end; end;

← →
AlexRush © (2003-08-08 17:11) [6]

2Евген © (06.08.03 15:31) Эмуляторы. Стандартные заглушки, которые затачиваются под каждую конкретную железку. Заметь, не модель, а железку. Любой хитрожелтый хасп вскрывается потолок за 2 недели.
Щас есть (начинаются) более прогрессивные зашиты на девайсах. Основаны на том, что кусок ПРИКЛАДНОГО кода выносится в девайс. А девайс имеет в себе процессор и сам этот кусок процессит. Считать код с девайса вроде-как низя - аппаратная защита (?). А если кусок встраиваемого кода выбран правильно, то и снифанье ничего не принесет.
А хасп - лажа.

← →
Anatoly Podgoretsky © (2003-08-08 17:38) [7]

Ну не лажа, а сильно устаревшая технология.

> AlexRush ©

Может всетаки ссылочку дашь на инфу или софт, а то есть ну очень занятная софтинка, защищенная LPT или USB ключиком (как продавец решит). А суть такова, что практически за 40$ можно получить систему цифрового видеонаблюдения и аудиоконтроля (деньги нужны для приобретения карточки видеозахвата). А софтинка стоит на порядок дороже, ой как хочется поюзать. Всем, кто поможет и изъявит желание обещаю слить софт и рассказать какие карточки с ним работают!

2Евген © (08.08.03 19:39) Я тебе теорию рассказал. А с "подобными" вопросами попрошу впредь не беспокоить. Мне проблем на }|{0пу не надо.

компоненты для HASP Найти похожие ветки