Página 1 de 1

Mochilas de protección Aladdin HASP HL Max

Publicado: Mar Oct 02, 2007 11:49 pm
por jasm
/*
* Proyecto: Wrapper para mochilas Aladdin HASP HL Max.
* Fichero: Hasp.c
* Descripción:
* Autor: José Alfonso Suárez Moreno
* Fecha: 02/10/2007
*/
#include "windows.h"
#include "xailer.h"
#include "colors.ch"
#include "hasp_hl.h"
XA_FUNC( HASP_LOGIN )
{
unsigned char *vendor_code = hb_parc( 1 );
hasp_handle_t handle = 0;
hasp_status_t status;
status = hasp_login(HASP_PROGNUM_DEFAULT_FID, vendor_code, &handle);
if (status == HASP_STATUS_OK)
{
hb_retnl( handle );
}
else
{
hb_retnl( status );
}
}
XA_FUNC( HASP_LOGOUT )
{
unsigned long handle = hb_parnl( 1 );
hasp_status_t status;
status = hasp_logout(handle);
hb_retnl( status );
}
XA_FUNC( HASP_WRITE )
{
unsigned long handle = hb_parnl( 1 );
hasp_size_t offset = hb_parnl( 2 );
hasp_size_t len = hb_parnl( 3 );
unsigned char *data = hb_parc( 4 );
hasp_status_t status;
status = hasp_write(handle, HASP_FILEID_MAIN, offset, len, data);
hb_retnl( status );
}
XA_FUNC( HASP_READ )
{
unsigned long handle = hb_parnl( 1 );
hasp_size_t offset = hb_parnl( 2 );
hasp_size_t len = hb_parnl( 3 );
unsigned char *data = hb_parc( 4 );
hasp_status_t status;
status = hasp_read(handle, HASP_FILEID_MAIN, offset, len, data);
hb_retnl( status );
}
XA_FUNC( HASP_GET_SIZE )
{
unsigned long handle = hb_parnl( 1 );
hasp_status_t status;
hasp_status_t memSize;
status = hasp_get_size(handle, HASP_FILEID_MAIN, &memSize);
if (status == HASP_STATUS_OK)
{
hb_retnl( memSize );
}
else
{
hb_retnl( status );
}
}
XA_FUNC( HASP_ENCRYPT )
{
unsigned long handle = hb_parnl( 1 );
unsigned char *data = hb_parc( 2 );
hasp_size_t len = hb_parnl( 3 );
hasp_status_t status;
status = hasp_encrypt(handle, data, len);
hb_retnl( status );
}
XA_FUNC( HASP_DECRYPT )
{
unsigned long handle = hb_parnl( 1 );
unsigned char *data = hb_parc( 2 );
hasp_size_t len = hb_parnl( 3 );
hasp_status_t status;
status = hasp_decrypt(handle, data, len);
hb_retnl( status );
}
--

Mochilas de protección Aladdin HASP HL Max

Publicado: Mié Oct 03, 2007 12:58 am
por zeasoftware
podrias atacar mi ignorancia... jejeje., que son exactamente?
podrias poner un pantallazo?
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:[email=4702bcd6@ozsrv2.ozlan.local...]4702bcd6@ozsrv2.ozlan.local...[/email]
> Si hay algún interesado en este tema dejo aquí los wrappers necesarios
> para funcionar con las mochilas de protección Aladdin HASP HL Max.
>
> Saludos
>
> Jose A. Suarez
>
------------------------------------------------------------ --------------------
> /*
> * Proyecto: Wrapper para mochilas Aladdin HASP HL Max.
> * Fichero: Hasp.c
> * Descripción:
> * Autor: José Alfonso Suárez Moreno
> * Fecha: 02/10/2007
> */
>
> #include "windows.h"
> #include "xailer.h"
> #include "colors.ch"
> #include "hasp_hl.h"
>
> XA_FUNC( HASP_LOGIN )
> {
> unsigned char *vendor_code = hb_parc( 1 );
> hasp_handle_t handle = 0;
> hasp_status_t status;
>
> status = hasp_login(HASP_PROGNUM_DEFAULT_FID, vendor_code, &handle);
>
> if (status == HASP_STATUS_OK)
> {
> hb_retnl( handle );
> }
> else
> {
> hb_retnl( status );
> }
> }
>
> XA_FUNC( HASP_LOGOUT )
> {
> unsigned long handle = hb_parnl( 1 );
> hasp_status_t status;
>
> status = hasp_logout(handle);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_WRITE )
> {
>
> unsigned long handle = hb_parnl( 1 );
> hasp_size_t offset = hb_parnl( 2 );
> hasp_size_t len = hb_parnl( 3 );
> unsigned char *data = hb_parc( 4 );
>
> hasp_status_t status;
> status = hasp_write(handle, HASP_FILEID_MAIN, offset, len, data);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_READ )
> {
>
> unsigned long handle = hb_parnl( 1 );
> hasp_size_t offset = hb_parnl( 2 );
> hasp_size_t len = hb_parnl( 3 );
> unsigned char *data = hb_parc( 4 );
>
> hasp_status_t status;
>
> status = hasp_read(handle, HASP_FILEID_MAIN, offset, len, data);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_GET_SIZE )
> {
> unsigned long handle = hb_parnl( 1 );
> hasp_status_t status;
> hasp_status_t memSize;
>
> status = hasp_get_size(handle, HASP_FILEID_MAIN, &memSize);
>
> if (status == HASP_STATUS_OK)
> {
> hb_retnl( memSize );
> }
> else
> {
> hb_retnl( status );
> }
> }
>
> XA_FUNC( HASP_ENCRYPT )
> {
> unsigned long handle = hb_parnl( 1 );
> unsigned char *data = hb_parc( 2 );
> hasp_size_t len = hb_parnl( 3 );
> hasp_status_t status;
>
> status = hasp_encrypt(handle, data, len);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_DECRYPT )
> {
> unsigned long handle = hb_parnl( 1 );
> unsigned char *data = hb_parc( 2 );
> hasp_size_t len = hb_parnl( 3 );
> hasp_status_t status;
>
> status = hasp_decrypt(handle, data, len);
>
> hb_retnl( status );
> }
>
>

Mochilas de protección Aladdin HASP HL Max

Publicado: Mié Oct 03, 2007 3:27 am
por Rene Flores
Ramón:
Mochila = Candado o llave de proteccion que se utiliza en un puerto
paralelo o usb.
Yo tengo las de Sentinel Super Pro para xHarbour cualquier version,
cuando quieran se las pongo.
Saludos
Rene Flores
http://www.ciber-tec.com
--------------------------
Operacion Colombia: Exito arrollador
Nos vemos en Chile a partir de 13 de Octubre
y en Argentina 1 de Noviembre.
Zea escribió:
> podrias atacar mi ignorancia... jejeje., que son exactamente?
> podrias poner un pantallazo?
>
> Saludos.

Mochilas de protección Aladdin HASP HL Max

Publicado: Mié Oct 03, 2007 5:03 am
por zeasoftware
Gracias,
Si me los han ofrecido pero no habia podido realizar pruebas, por no saber
como atacarlo, tengo un colega que los usa con clipper y me obsequio uno
para pruebas, vere si puedo lograr algo.
Gracias de nuevo.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Rene Flores" <"rflores[nospam]"@ciber-tec.com> escribió en el mensaje
news:4702e17f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ramón:
>
> Mochila = Candado o llave de proteccion que se utiliza en un puerto
> paralelo o usb.
>
> Yo tengo las de Sentinel Super Pro para xHarbour cualquier version, cuando
> quieran se las pongo.
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
> --------------------------
> Operacion Colombia: Exito arrollador
> Nos vemos en Chile a partir de 13 de Octubre
> y en Argentina 1 de Noviembre.
>
>
>
> Zea escribió:
>> podrias atacar mi ignorancia... jejeje., que son exactamente?
>> podrias poner un pantallazo?
>>
>> Saludos.

Mochilas de protección Aladdin HASP HL Max

Publicado: Mié Oct 03, 2007 6:16 pm
por desarrollo
Ramon,
Mira en www.aladdin.es
Saludos
Jose A. Suarez
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4702cd35@ozsrv2.ozlan.local...]4702cd35@ozsrv2.ozlan.local...[/email]
> podrias atacar mi ignorancia... jejeje., que son exactamente?
> podrias poner un pantallazo?
>
> Saludos.
> --
> Ramón Zea
> 01.993.194.14.27
> http://www.paginasprodigy.com/zeasoftware/
> zeasoftware@prodigy.net.mx
> zeasoftware@hotmail.com
> ramonzea@yahoo.com
> zeasoft.movil@hotmail.com
> "José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
> news:[email=4702bcd6@ozsrv2.ozlan.local...]4702bcd6@ozsrv2.ozlan.local...[/email]
>> Si hay algún interesado en este tema dejo aquí los wrappers necesarios
>> para funcionar con las mochilas de protección Aladdin HASP HL Max.
>>
>> Saludos
>>
>> Jose A. Suarez
>>
>
>
> ------------------------------------------------------------ --------------------
>
>
>> /*
>> * Proyecto: Wrapper para mochilas Aladdin HASP HL Max.
>> * Fichero: Hasp.c
>> * Descripción:
>> * Autor: José Alfonso Suárez Moreno
>> * Fecha: 02/10/2007
>> */
>>
>> #include "windows.h"
>> #include "xailer.h"
>> #include "colors.ch"
>> #include "hasp_hl.h"
>>
>> XA_FUNC( HASP_LOGIN )
>> {
>> unsigned char *vendor_code = hb_parc( 1 );
>> hasp_handle_t handle = 0;
>> hasp_status_t status;
>>
>> status = hasp_login(HASP_PROGNUM_DEFAULT_FID, vendor_code, &handle);
>>
>> if (status == HASP_STATUS_OK)
>> {
>> hb_retnl( handle );
>> }
>> else
>> {
>> hb_retnl( status );
>> }
>> }
>>
>> XA_FUNC( HASP_LOGOUT )
>> {
>> unsigned long handle = hb_parnl( 1 );
>> hasp_status_t status;
>>
>> status = hasp_logout(handle);
>>
>> hb_retnl( status );
>> }
>>
>> XA_FUNC( HASP_WRITE )
>> {
>>
>> unsigned long handle = hb_parnl( 1 );
>> hasp_size_t offset = hb_parnl( 2 );
>> hasp_size_t len = hb_parnl( 3 );
>> unsigned char *data = hb_parc( 4 );
>>
>> hasp_status_t status;
>> status = hasp_write(handle, HASP_FILEID_MAIN, offset, len, data);
>>
>> hb_retnl( status );
>> }
>>
>> XA_FUNC( HASP_READ )
>> {
>>
>> unsigned long handle = hb_parnl( 1 );
>> hasp_size_t offset = hb_parnl( 2 );
>> hasp_size_t len = hb_parnl( 3 );
>> unsigned char *data = hb_parc( 4 );
>>
>> hasp_status_t status;
>>
>> status = hasp_read(handle, HASP_FILEID_MAIN, offset, len, data);
>>
>> hb_retnl( status );
>> }
>>
>> XA_FUNC( HASP_GET_SIZE )
>> {
>> unsigned long handle = hb_parnl( 1 );
>> hasp_status_t status;
>> hasp_status_t memSize;
>>
>> status = hasp_get_size(handle, HASP_FILEID_MAIN, &memSize);
>>
>> if (status == HASP_STATUS_OK)
>> {
>> hb_retnl( memSize );
>> }
>> else
>> {
>> hb_retnl( status );
>> }
>> }
>>
>> XA_FUNC( HASP_ENCRYPT )
>> {
>> unsigned long handle = hb_parnl( 1 );
>> unsigned char *data = hb_parc( 2 );
>> hasp_size_t len = hb_parnl( 3 );
>> hasp_status_t status;
>>
>> status = hasp_encrypt(handle, data, len);
>>
>> hb_retnl( status );
>> }
>>
>> XA_FUNC( HASP_DECRYPT )
>> {
>> unsigned long handle = hb_parnl( 1 );
>> unsigned char *data = hb_parc( 2 );
>> hasp_size_t len = hb_parnl( 3 );
>> hasp_status_t status;
>>
>> status = hasp_decrypt(handle, data, len);
>>
>> hb_retnl( status );
>> }
>>
>>
>
>

Mochilas de protección Aladdin HASP HL Max

Publicado: Mié Oct 03, 2007 6:18 pm
por desarrollo
René,
Interesante. ¿Puedes enviarmelos a mi privado? Ando evaluando estas
posibilidades de protección.
Saludos,
José Alfonso Suárez Moreno
"Rene Flores" <"rflores[nospam]"@ciber-tec.com> escribió en el mensaje
news:4702e17f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ramón:
>
> Mochila = Candado o llave de proteccion que se utiliza en un puerto
> paralelo o usb.
>
> Yo tengo las de Sentinel Super Pro para xHarbour cualquier version, cuando
> quieran se las pongo.
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
> --------------------------
> Operacion Colombia: Exito arrollador
> Nos vemos en Chile a partir de 13 de Octubre
> y en Argentina 1 de Noviembre.
>
>
>
> Zea escribió:
>> podrias atacar mi ignorancia... jejeje., que son exactamente?
>> podrias poner un pantallazo?
>>
>> Saludos.

Mochilas de protección Aladdin HASP HL Max

Publicado: Jue Oct 04, 2007 4:10 am
por Carlos Ortiz
Tengo varias llaves de estas sin uso, por ahi si a alguien le interesa y
quiere gastar menos que comprar un paquete completo vemos que precio se
puede hacer.
Atte. Carlos Ortiz.

Mochilas de protección Aladdin HASP HL Max

Publicado: Jue Oct 04, 2007 8:56 am
por Pedro Amaro
Aladdín tiene un paquete gratuito para promoción, yo pedi uno hace unos
meses y aun no he tenido tiempo de probarlo.
Se llama "HASP SRM" y hay que pedirlo en la pagina web.
Un saludo
Pedro Amaro

Mochilas de protección Aladdin HASP HL Max

Publicado: Jue Oct 04, 2007 9:36 am
por jasm
Pedro,
Las pruebas estas las estoy haciendo con el kit de desarrollo HASP HL
que me enviaron hace unos meses.
Saludos
Jose A. Suarez

Mochilas de protección Aladdin HASP HL Max

Publicado: Dom Oct 07, 2007 2:13 pm
por PILO
Estoy muy interesado en ello.
me puedo poner en contacto contigo
de parte de pilo
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:[email=4702bcd6@ozsrv2.ozlan.local...]4702bcd6@ozsrv2.ozlan.local...[/email]
> Si hay algún interesado en este tema dejo aquí los wrappers necesarios
> para funcionar con las mochilas de protección Aladdin HASP HL Max.
>
> Saludos
>
> Jose A. Suarez
>
------------------------------------------------------------ --------------------
> /*
> * Proyecto: Wrapper para mochilas Aladdin HASP HL Max.
> * Fichero: Hasp.c
> * Descripción:
> * Autor: José Alfonso Suárez Moreno
> * Fecha: 02/10/2007
> */
>
> #include "windows.h"
> #include "xailer.h"
> #include "colors.ch"
> #include "hasp_hl.h"
>
> XA_FUNC( HASP_LOGIN )
> {
> unsigned char *vendor_code = hb_parc( 1 );
> hasp_handle_t handle = 0;
> hasp_status_t status;
>
> status = hasp_login(HASP_PROGNUM_DEFAULT_FID, vendor_code, &handle);
>
> if (status == HASP_STATUS_OK)
> {
> hb_retnl( handle );
> }
> else
> {
> hb_retnl( status );
> }
> }
>
> XA_FUNC( HASP_LOGOUT )
> {
> unsigned long handle = hb_parnl( 1 );
> hasp_status_t status;
>
> status = hasp_logout(handle);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_WRITE )
> {
>
> unsigned long handle = hb_parnl( 1 );
> hasp_size_t offset = hb_parnl( 2 );
> hasp_size_t len = hb_parnl( 3 );
> unsigned char *data = hb_parc( 4 );
>
> hasp_status_t status;
> status = hasp_write(handle, HASP_FILEID_MAIN, offset, len, data);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_READ )
> {
>
> unsigned long handle = hb_parnl( 1 );
> hasp_size_t offset = hb_parnl( 2 );
> hasp_size_t len = hb_parnl( 3 );
> unsigned char *data = hb_parc( 4 );
>
> hasp_status_t status;
>
> status = hasp_read(handle, HASP_FILEID_MAIN, offset, len, data);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_GET_SIZE )
> {
> unsigned long handle = hb_parnl( 1 );
> hasp_status_t status;
> hasp_status_t memSize;
>
> status = hasp_get_size(handle, HASP_FILEID_MAIN, &memSize);
>
> if (status == HASP_STATUS_OK)
> {
> hb_retnl( memSize );
> }
> else
> {
> hb_retnl( status );
> }
> }
>
> XA_FUNC( HASP_ENCRYPT )
> {
> unsigned long handle = hb_parnl( 1 );
> unsigned char *data = hb_parc( 2 );
> hasp_size_t len = hb_parnl( 3 );
> hasp_status_t status;
>
> status = hasp_encrypt(handle, data, len);
>
> hb_retnl( status );
> }
>
> XA_FUNC( HASP_DECRYPT )
> {
> unsigned long handle = hb_parnl( 1 );
> unsigned char *data = hb_parc( 2 );
> hasp_size_t len = hb_parnl( 3 );
> hasp_status_t status;
>
> status = hasp_decrypt(handle, data, len);
>
> hb_retnl( status );
> }
>
>

Mochilas de protección Aladdin HASP HL Max

Publicado: Dom Oct 07, 2007 3:40 pm
por jasm
Pilo,
A tu disposición.
Saludos
Jose A. Suarez

Mochilas de protección Aladdin HASP HL Max

Publicado: Lun Oct 08, 2007 5:21 am
por zeasoftware
Podrias ponerlas librerias?
ya sea en el foro o a mi privado, como gustes.
Gracias de antemano.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Rene Flores" <"rflores[nospam]"@ciber-tec.com> escribió en el mensaje
news:4702e17f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ramón:
>
> Mochila = Candado o llave de proteccion que se utiliza en un puerto
> paralelo o usb.
>
> Yo tengo las de Sentinel Super Pro para xHarbour cualquier version, cuando
> quieran se las pongo.
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
> --------------------------
> Operacion Colombia: Exito arrollador
> Nos vemos en Chile a partir de 13 de Octubre
> y en Argentina 1 de Noviembre.
>
>
>
> Zea escribió:
>> podrias atacar mi ignorancia... jejeje., que son exactamente?
>> podrias poner un pantallazo?
>>
>> Saludos.

Mochilas de protección Aladdin HASP HL Max

Publicado: Lun Oct 08, 2007 5:21 am
por zeasoftware
Me apunto a la peticion de PILO.
Gracias.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:4708e1e6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pilo,
>
> A tu disposición.
>
> Saludos
>
> Jose A. Suarez