Форум: "Потрепаться";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
Вниз
компоненты для 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]Ну не лажа, а сильно устаревшая технология.
← →
Евген (2003-08-08 19:39) [8]
> AlexRush ©
Может всетаки ссылочку дашь на инфу или софт, а то есть ну очень занятная софтинка, защищенная LPT или USB ключиком (как продавец решит). А суть такова, что практически за 40$ можно получить систему цифрового видеонаблюдения и аудиоконтроля (деньги нужны для приобретения карточки видеозахвата). А софтинка стоит на порядок дороже, ой как хочется поюзать. Всем, кто поможет и изъявит желание обещаю слить софт и рассказать какие карточки с ним работают!
← →
AlexRush (2003-08-08 19:40) [9]2Anatoly Podgoretsky © (08.08.03 17:38) Я это и имел ввиду. На настоящий момент это лажа.
← →
AlexRush (2003-08-08 19:58) [10]2Евген © (08.08.03 19:39) Я тебе теорию рассказал. А с "подобными" вопросами попрошу впредь не беспокоить. Мне проблем на }|{0пу не надо.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.011 c
