rem // ___VISUAL CONTABILIDAD Y GESTION 2.10___
rem // ----------------------------------------
rem // 31/01/99 20:23

rem // Holasssss.  ;)))))))))))))))))))

rem // El sistema de proteccion de este programa, consiste
rem // en pedir un numero de serie si detecta 
rem // que la fecha y la hora de los directorios ha cambiado:
rem // c:\visual\conta --> Para contabilidad
rem // c:\visual\gesco --> Para gestion

rem // Cada vez es un numero distinto (calculado a partir de la fecha
rem // y la hora).

rem // Si el numero introducido es incorrecto, entonces el programa
rem // arranca normalmente, pero con la limitacion de que la unica fecha
rem // que permite introducir en todos los datos es 1-1-1990.
rem // O sea, que dejan el programa inutilizable.

rem // Si el numero es correcto, el programa arranca, y ya no vuelve a pedirle 
rem // otra vez.
rem // Esto ocurre, porque queda almacenado en un fichero llamado serial.mem

rem // Esto es lo que hace el programa al ejecutarse:

rem // 1-Obtiene la fecha del directorio /visual/conta
rem // 2-Genera el numero base (a partir de la fecha y hora)
rem // 3-Genera el numero de serie (a partir del numero base)
rem // 4-Compara el numero serie con el que este almacenado en el fichero serial.mem
rem // 	>Si es igual: Continua
rem // 	>Si son distintos: Aparece la ventanita para introducir el numero correcto
rem // ...
rem // y lo mismo para el directorio gesco.
rem // ...

rem // Conociendo esto, la solucion para saltarse la proteccion es muy simple...
rem // A partir de un numero serie conocido, se guarda el fichero serial.mem
rem // y cuando se presente el problema de los numeritos,
rem // se crean los directorios con la fecha y hora que tenian (para el numero conocido)
rem // y se sobreescribe el fichero serial.mem.

rem // Esto es lo que hace el BAT:
rem // Pone fecha 1-1-2001 y hora 12:00 a los directorios conta y gesco
rem // Copia el fichero serial.mem (que contiene los numeros para esta fecha y hora).
rem //  

rem // ah, para conseguir los numeros correspondientes a cualquier fecha y hora
rem // simplemente hay que buscar un poco por los por los dimms.

rem // Tambien se puede programar un generador de numeros... es bastante simple.

rem // ------------------------N_BASE---N_CORRECTO
rem // 1-1-90 0:00    CONTA    099831 -   032702
rem //                GESCO    199703 -   045788
rem // 1-1-90 0:01    CONTA    097655 -   032376
rem //                GESCO    197783 -   045607
rem // ...etcetc

rem // Otro metodo para saltarse la proteccion es,
rem // Crackear el programa... no es dificil, pero es un rollo, porque al funcionar
rem // con modulos (fox), procesa todo en memoria y el crack tendria que ser TSR.

rem // Le consegui crackear, pero no se como hacer un crack residente en memoria
rem // que modifique un registro cuando tenga un valor determinado...
rem // (cuando leas estas lineas puede que ya sepa hacerlo ;))

rem // Da igual, esto funciona.

rem // Bueno, nada mas...
rem // Salu2

rem // [Xasx]
rem // xasx@polbox.com

rem // ____________________________________________________________

Copia los ficheros de este zip a un diskette...
hay que ejecutarlo desde la unidad A:


* POSIBLES FALLOS

- No he probado el crack en ningun sistema aparte del mio, puede ser que debido
  a la velocidad entre que se pone el time a 12:00:00 y se crea el directorio,
  se llegue a producir una desviacion en los segundos +1,2... pero no creo que 
  pase a no ser que uses el crack en un XT. ;)
 
  Si pasa esto modifica la fecha del directorio manualmente con algun programa,
  (p.ej. pctools antiguas, far, wcommander... etc etc.)

- //rem? los puse porque iba a meter esto en el bat, pero se ha hecho demasiado largo XD.

- alguno mas probablemente.

....................................................................................

byexx

******************************************************
  ESTE ES EL SISTEMA DE PROTECCION DEL VISUAL 2.10
******************************************************
 - A partir de estos datos es facil programar un 
   generador de numeros.


PARA campo, tipo
 PRIV campo, tipo, clave, ser, claser, mensa, o, raiz
 IF VAL(campo)=0
      RETU '0'
 ENDI
 ser= 1
 claser= 0
 campo= VAL(campo)-DAY(DATE())
 campo= RIGHT(STR(1000000+campo),6)
 DO WHILE ser<7
      claser= claser+(ASC(SUBSTR(campo,ser,1))*ser)
      ser= ser+1
 ENDD
 raiz= ROUND(SQRT(VAL(campo))*100,0)
 claser= claser+raiz
 claser= RIGHT(STR(1000000+claser),6)
 DO CASE
      CASE tipo='C'
           clave= LEFT(u,6)
           mensa= 'Contabilidad'
      CASE tipo='G'
           clave= SUBSTR(u,7,6)
           mensa= 'Gesti≤n     '
      CASE tipo='T'
           clave= RIGHT(u,6)
           mensa= 'Utilidades  '
 ENDC
 IF clave<>claser
      CLEA
      @ 10, 20 TO 13, 56 DOUBLE
      @ 11, 22 SAY 'N·mero Serie : ['+campo+'] Ver. 2.10'
      @ 12, 22 SAY 'Clave de '+mensa+':[      ]'
      DO WHILE .T.
           clave= 0
           SET CONFIRM ON
           @ 12, 45 GET clave PICTURE '@Z 999999' RANGE 0, 999999
           READ
           clave= RIGHT(STR(1000000+clave),6)
           @ 12, 45 SAY clave PICTURE '@Z 999999'
           SET CONFIRM OFF
           o= MOD(READKEY(),256)
           IF o=15
                EXIT
           ENDI
      ENDD
      IF clave<>claser
           RETU '1'
      ENDI
 ENDI
 DO CASE
      CASE tipo='C'
           u= clave+SUBSTR(u,7,6)+RIGHT(u,6)
      CASE tipo='G'
           u= LEFT(u,6)+clave+RIGHT(u,6)
      CASE tipo='T'
           u= LEFT(u,12)+clave
 ENDC
 RETU '2'
*


xasx/TNT!Crack!Team'99 - alx10@hotmail.com