|
Mostrar Mensajes
|
Páginas: [1]
|
1
|
Programación / Programación General / freelance dbase
|
en: 11 Diciembre 2017, 15:06 pm
|
Hola os explico,
nosotros somos una cadena hotelera en Barcelona, nosotros desarrollamos nuestro propio software hotelero en dbase plus 2.7.3. Necesitaríamos que nuestro pms(programa de gestión hotelera) se comunique con un programa de creador de llaves para las puertas de las habitaciones. Este programa para hacer llaves necesita recibir tramas de texto por tcp/ip para crear las llaves automáticamente de nuestro pms, una vez se haga el check-in.
Y necesitaríamos el desarrollo de un "programa" para que haga tal cosa bajo dbase plus 2.7.3. Todo bajo un presupuesto previo etc...
Cualquiera que este sepa programar en dbase y este interesado más información por privado.
Un saludo
|
|
|
2
|
Seguridad Informática / Criptografía / Re: Numero cifrados
|
en: 3 Abril 2017, 09:34 am
|
Hola de nuevo,
Gracias por vuestros comentarios y aportaciones, lo agradecemos mucho.
Pero nos gustaría saber si habría algún programa que poniéndole "los números cifrados", sin tener el código claro, pudiera resolverlo.
Muchisimas gracias por anticipado.
Un saludo
|
|
|
3
|
Seguridad Informática / Criptografía / Re: Numero cifrados
|
en: 31 Marzo 2017, 15:32 pm
|
STORE SPAC(0) TO MINTERESA1A ,MINTERESA2A ,MINTERESA3A ,MINTERESA4A ,MINTERESA5A ,MINTERESA6A ,MINTERESA7A ,MINTERESA8A ,MINTERESA9A ,MINTERESA10A
STORE SPAC(0) TO MINTERESA11A,MINTERESA12A,MINTERESA13A,MINTERESA14A,MINTERESA15A,MINTERESA16A,MINTERESA17A,MINTERESA18A,MINTERESA19A,MINTERESA20A
DO CORTAR DO MOSTRAR
RETURN
*------------------------------------------------------------------------------------------------------------ *------------------------------------------------------------------------------------------------------------ PROCEDURE CORTAR
STORE MIO_TARJETA TO MIO_TARJETA1
*DO WHILE .T.
STORE SUBSTR(MIO_TARJETA1,1,1) TO MINTERESA1 STORE CHR(ASC(MINTERESA1)+20) TO MINTERESA1A
STORE LTRIM(RTRIM(SUBSTR(MIO_TARJETA1,2,1))) TO MINTERESA2 STORE CHR(ASC(MINTERESA2)+22) TO MINTERESA2A
STORE LTRIM(RTRIM(SUBSTR(MIO_TARJETA1,3,1))) TO MINTERESA3 STORE CHR(ASC(MINTERESA3)+24) TO MINTERESA3A
STORE SUBSTR(MIO_TARJETA1,4,1) TO MINTERESA4 STORE CHR(ASC(MINTERESA4)+24) TO MINTERESA4A
STORE SUBSTR(MIO_TARJETA1,5,1) TO MINTERESA5 STORE CHR(ASC(MINTERESA5)+23) TO MINTERESA5A
IF LTRIM(RTRIM( SUBSTR(MIO_TARJETA1,6,1) )) = SPAC(0) *----------------NO HAY NADA------------PARO RETURN
ENDIF
*-----------------------------2 BUCLE-------------- STORE SUBSTR(MIO_TARJETA1,6,1) TO MINTERESA6 STORE CHR(ASC(MINTERESA6)+20) TO MINTERESA6A
STORE SUBSTR(MIO_TARJETA1,7,1) TO MINTERESA7 STORE CHR(ASC(MINTERESA7)+21) TO MINTERESA7A
STORE SUBSTR(MIO_TARJETA1,8,1) TO MINTERESA8 STORE CHR(ASC(MINTERESA8)+20) TO MINTERESA8A
STORE SUBSTR(MIO_TARJETA1,9,1) TO MINTERESA9 STORE CHR(ASC(MINTERESA9)+21) TO MINTERESA9A
STORE SUBSTR(MIO_TARJETA1,10,1) TO MINTERESA10 STORE CHR(ASC(MINTERESA10)+22) TO MINTERESA10A
*-------------------3BUCLE------------------------------------------ STORE SUBSTR(MIO_TARJETA1,11,1) TO MINTERESA11 STORE CHR(ASC(MINTERESA11)+21) TO MINTERESA11A
STORE SUBSTR(MIO_TARJETA1,12,1) TO MINTERESA12 STORE CHR(ASC(MINTERESA12)+22) TO MINTERESA12A
STORE SUBSTR(MIO_TARJETA1,13,1) TO MINTERESA13 STORE CHR(ASC(MINTERESA13)+21) TO MINTERESA13A
STORE SUBSTR(MIO_TARJETA1,14,1) TO MINTERESA14 STORE CHR(ASC(MINTERESA14)+20) TO MINTERESA14A
STORE SUBSTR(MIO_TARJETA1,15,1) TO MINTERESA15 STORE CHR(ASC(MINTERESA15)+21) TO MINTERESA15A
*-------------------4BUCLE------------------------------------------ STORE SUBSTR(MIO_TARJETA1,16,1) TO MINTERESA16 STORE CHR(ASC(MINTERESA16)+20) TO MINTERESA16A
STORE SUBSTR(MIO_TARJETA1,17,1) TO MINTERESA17 STORE CHR(ASC(MINTERESA17)+22) TO MINTERESA17A
STORE SUBSTR(MIO_TARJETA1,18,1) TO MINTERESA18 STORE CHR(ASC(MINTERESA18)+22) TO MINTERESA18A
STORE SUBSTR(MIO_TARJETA1,19,1) TO MINTERESA19 STORE CHR(ASC(MINTERESA19)+21) TO MINTERESA19A
STORE SUBSTR(MIO_TARJETA1,20,1) TO MINTERESA20 STORE CHR(ASC(MINTERESA20)+21) TO MINTERESA20A
STORE MINTERESA1A+MINTERESA2A+MINTERESA3A+MINTERESA4A+MINTERESA5A+MINTERESA6A+MINTERESA7A+MINTERESA8A+MINTERESA9A+MINTERESA10A+MINTERESA11A+MINTERESA12A+MINTERESA13A+MINTERESA14A+MINTERESA15A+MINTERESA16A+MINTERESA17A+MINTERESA18A+MINTERESA19A+MINTERESA20A TO MIO_TARJETA_ENCRIPTADA
RETURN *----------------------------------------------------------------------------------------------------------------------- *-----------------------------------------------------------------------------------------------------------------------
PROCEDURE MOSTRAR ? ? ?
?MINTERESA1A +""+MINTERESA2A+""+MINTERESA3A+""+MINTERESA4A+""+MINTERESA5A ??MINTERESA6A +""+MINTERESA7A+""+MINTERESA8A+""+MINTERESA9A+""+MINTERESA10A ??MINTERESA11A+""+MINTERESA12A+""+MINTERESA13A+""+MINTERESA14A+""+MINTERESA15A ??MINTERESA16A+""+MINTERESA17A+""+MINTERESA18A+""+MINTERESA19A+""+MINTERESA20A
RETURN
*ENDD
Este seria el código que se a usado para "cifrar" esto. Lo hacemos en dbase plus, y nos gustaría saber cuanto costaría "descifrar" esto. Lo que "cifra" son números.
|
|
|
|
|
|
|