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.