Mochilas de protección Aladdin HASP HL Max

jasm · Mensaje por **jasm** » Mar Oct 02, 2007 11:49 pm

/*
* 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 );
}
--

zeasoftware · Mensaje por **zeasoftware** » Mié Oct 03, 2007 12:58 am

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 );
> }
>
>

Rene Flores · Mensaje por **Rene Flores** » Mié Oct 03, 2007 3:27 am

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.

zeasoftware · Mensaje por **zeasoftware** » Mié Oct 03, 2007 5:03 am

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.

desarrollo · Mensaje por **desarrollo** » Mié Oct 03, 2007 6:16 pm

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 );
>> }
>>
>>
>
>

desarrollo · Mensaje por **desarrollo** » Mié Oct 03, 2007 6:18 pm

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.

Carlos Ortiz · Mensaje por **Carlos Ortiz** » Jue Oct 04, 2007 4:10 am

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.

Pedro Amaro · Mensaje por **Pedro Amaro** » Jue Oct 04, 2007 8:56 am

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

jasm · Mensaje por **jasm** » Jue Oct 04, 2007 9:36 am

Pedro,
Las pruebas estas las estoy haciendo con el kit de desarrollo HASP HL
que me enviaron hace unos meses.
Saludos
Jose A. Suarez

PILO · Mensaje por **PILO** » Dom Oct 07, 2007 2:13 pm

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 );
> }
>
>

jasm · Mensaje por **jasm** » Dom Oct 07, 2007 3:40 pm

Pilo,
A tu disposición.
Saludos
Jose A. Suarez

zeasoftware · Mensaje por **zeasoftware** » Lun Oct 08, 2007 5:21 am

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.

zeasoftware · Mensaje por **zeasoftware** » Lun Oct 08, 2007 5:21 am

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