Autor Tema: Protejer Una Aplicacion Con Un Metodo Efectivo (Leído 1195 veces)

COSERVITEL · « **en:** Jueves 22 de Abril de 2004, 23:24 »

saludos amigos, quisiera que mis aplicaciones tuviesen un tipo de archivo de seguridad como algunos programas de mi pais los cuales son dificiles o al menos casi imposibles de cracker por ejemplo..

algunos programas leen un archivo .sis el cual contiene lo siguiente :

00-1101-307774-ADM ---> numero de licencia de la aplicacion
LIA CELULAR, C.A. ---> nombre de la empresa o cliente que compro el sistema
20031228 ---> fecha de la creacion del .sis
180351512451141132235215414211 ---> ni idea imagino que codigo encryptado
471722357415211831350024962311 ---> ni idea imagino que codigo encryptado
823123221193524344861531618421 ---> ni idea imagino que codigo encryptado
047624610664435256200318502422 ---> ni idea imagino que codigo encryptado
712362212231251763027357462118 ---> ni idea imagino que codigo encryptado
151444415211124613134431314180 ---> ni idea imagino que codigo encryptado

este es un archivo el cual es leido por el .exe y el cual puede ser editado hasta por el block de notas pero al modificar cualquier cosa al menos un numero o una letra al ejecutar el .exe coloca el sistema en modo demostracion y solo puede ejecutar algunas cosas , etc pero en modo normal coloca el nombre de la empresa en la barra de titulos y en los informes y ejecuta todo,,, ahora el programa igualmente se le vence el .sis cada 6 meses por lo cual ahi que renovarlo llamando al creador del sistema y envia un .sis nuevo el cual funciona perfectamente con el .exe alguien tiene alguna idea de como hacer esto por lo que dije es una buena forma de proteger aplicaciones aqui en mi pais todas las aplicaciones comerciales funcionan de ese modo y todavia no he visto que las crackeen unicamente si tienen el archivo generador del .sis

COSERVITEL

me explico en resumen ....

1. - entro en la pagina del creador del software lo descargo lo instalo lo ejecuto me aparece en modo demo por supuesto por todos lados dice demostracion hasta en los informes y solo me deja hacer par de operaciones.

2.- me gusto el software lo compro me envian el archivo .sis por correo

3.- copio el software .sis en la carpeta principal del programa

4.- al ejecutar la aplicacion que baje como demo funciona perfectamente colocando el nombre de la empresa en todos lados y hasta en los informes

nota : en modo demo si quiero cambiarles a los informes el nombre de la empresa me da error

por eso me parece una excelente forma de proteger la aplicaciones........

Brroz

Hola COSERVITEL.

Es una forma más de complicar un poco las cosas, pero no podrías evitar el uso ilegal del soft. Me explico:

1- Nada impediría distribuir copias ilegales del ejecutable junto con el archivo .SIS. Desde luego que en la misma empresa la aplicación se podría instalar en tantos puesto como se deseara sin mayor problema.

2- Dependiendo de como se calcule la clave según la fecha actual y los datos de entrada del archivo de texto (encriptados o no), podría ocurrir que alguien utilizase un programa para debuguear tu aplicación, agregando puntos de interrupción a las llamadas a las funciones de MSVMVB60.DLL, lograse indentificar el algoritmo de comprobación de esas claves. A continuación sólo tendría que crear un programita que crease un archivo .SIS a gusto y llamar a tu aplicación.

Yo desde luego que no sabría hacerlo, pero no dudes que mucha gente si sería capaz...
De todas formas, para implementar una solución de este estilo, lo principal es crear el algoritmo que a partir de la fecha actual y una serie de valores, aplicando ciertas operaciones, obtenga un valor con el que comparar y así decidir si la copia es legal o no. Algo así (por supuesto que supersimplificado, sólo para que te hagas una idea).

Para probar añádelo a un Form con un CommandButton

Código: Text

 
Option Explicit
 
Private Sub Command1_Click()
    
    Dim str1 As String, str2 As String
    str1 = InputBox(&#34;Introducir fecha instalación&#34;, , Now)
    str2 = CamuflarFecha(str1)
    
    MsgBox &#34;Fecha de instalación: &#34; & vbCrLf _
    & str1 & String(2, vbCrLf) & &#34;Camuflada: &#34; & vbCrLf & str2 _
    & String(2, vbCrLf) & &#34;Esta cadena la leerías desde archivo de texto&#34;
        
    MsgBox &#34;Dias que han pasado: &#34; & DateDiff(&#34;d&#34;, DescubrirFecha(str2), Now)
 
End Sub
 
Private Function CamuflarFecha(ByVal Fecha As Date) As String
 
    Dim bytDia As Byte
    Dim bytMes As Byte
    Dim bytAnho1 As Byte
    Dim bytAnho2 As Byte
   
    bytDia = CByte(Day(Fecha))
    bytMes = CByte(Month(Fecha))
    bytAnho1 = CByte(Left(Year(Fecha), 2))
    bytAnho2 = CByte(Right(Year(Fecha), 2))
    
    Randomize Timer
    
    Dim int1 As Integer, str1 As String
    For int1 = 1 To bytDia + 31
        str1 = str1 & Chr(Rnd * 255)
    Next int1
    
    CamuflarFecha = Chr(bytDia + 61) & str1 & Chr(bytAnho1 + 10)
    
    str1 = &#34;&#34;
    For int1 = 1 To bytDia + 11
        str1 = str1 & Chr(Rnd * 255)
    Next int1
    
    CamuflarFecha = CamuflarFecha & str1 & Chr(bytMes + 13)
    
    str1 = &#34;&#34;
    For int1 = 1 To bytMes + 5
        str1 = str1 & Chr(Rnd * 255)
    Next int1
    
    CamuflarFecha = CamuflarFecha & str1 & Chr(bytAnho2)
    
    For int1 = 1 To bytMes + 3
        CamuflarFecha = CamuflarFecha & Chr(Rnd * 255)
    Next int1
    
End Function
 
Private Function DescubrirFecha(ByVal Clave As String) As Date
   
    Dim bytDia As Byte
    Dim bytMes As Byte
    Dim bytAnho1 As Byte
    Dim bytAnho2 As Byte
            
    bytDia = Asc(Left(Clave, 1)) - 61
    Clave = Mid(Clave, bytDia + 33)
    bytAnho1 = Asc(Left(Clave, 1)) - 10
    Clave = Mid(Clave, bytDia + 13)
    bytMes = Asc(Left(Clave, 1)) - 13
    Clave = Mid(Clave, bytMes + 7)
    bytAnho2 = Asc(Left(Clave, 1))
 
    DescubrirFecha = String(2 - Len(CStr(bytDia)), &#34;0&#34;) & bytDia _
    & &#34;/&#34; & String(2 - Len(CStr(bytMes)), &#34;0&#34;) & bytMes _
    & &#34;/&#34; & String(2 - Len(CStr(bytAnho1)), &#34;0&#34;) & bytAnho1 _
    & String(2 - Len(CStr(bytAnho2)), &#34;0&#34;) & bytAnho2
    
End Function
 
 

Suerte.

SoloCodigo

Autor Tema: Protejer Una Aplicacion Con Un Metodo Efectivo (Leído 1195 veces)

COSERVITEL

Protejer Una Aplicacion Con Un Metodo Efectivo

COSERVITEL

Re: Protejer Una Aplicacion Con Un Metodo Efectivo

Brroz

Re: Protejer Una Aplicacion Con Un Metodo Efectivo