hola, ya acabe el codigo para poder poner a tus programas un tiempo de prueba y luego activarlo con el serial, dejo aqui el enlace, espero comentarios
http://sorucreations.gratishost.com/
hola, el problema que le veo es que si es para protejer algo es bastante debil la proteccion. meter el serial tal cual para proteger una aplicacion no es buena idea pues se ve sin mas. si es por gusto esta bien, si es para algo comercial no te lo aconsejo.
ya hombre, pero yo lo que haria si lo usara es cambiar la ruta de los archivos del cronometro y el que te hace cuando metes el serial a por ejemplo C:/Windows/system/miprograma
y asi es muy dificil que te lo encuentren
no se trata de la ruta, se ve claramente el serial.
el serial no se ve porque esta en el codigo fuente del programa
Debugueando con el ollydb, el serial si se vee, ya que esta en memoria y el programa lo maneja, asi que si se ve, da igual si lo encriptas o lo que sea, el serial se vera....
Un Saludo.
PD: Este es mi mensage nº 1000 en el foro....ya soy milenario...xDDD Como pasa el tiempo... :-( :-(
Citarel serial no se ve porque esta en el codigo fuente del programa
ahora te pongo una imagen para que veas que si se ve, solo mirando las strings sin tener que depurar nada.
(http://img124.imageshack.us/img124/2326/dibujowq5.jpg)
Otro fallo que le veo es que si creamos el archivo licencia.txt sin tener que meter nada dentro lo da como bueno.
Cita de: - en 29 Abril 2007, 13:17 PM
Otro fallo que le veo es que si creamos el archivo licencia.txt sin tener que meter nada dentro lo da como bueno.
ya, eso lo tengo que arreglar
edit: ya lo arregle
en el formulario splash cambia el form load por este
CitarPrivate Sub Form_Load()
On Error Resume Next
If Dir("./licencia.txt") <> "" Then
Dim n_File As Integer
Dim Contenido As String
n_File = FreeFile
Open "./licencia.txt" For Input As n_File
Contenido = Input$(LOF(n_File), #n_File)
Close n_File
Text4 = Contenido
End If
If Text4.Text = "VGV4dDE" Then Me.Hide
If Text4.Text = "VGV4dDE" Then programaTrial.Show
End Sub
Cita de: soru13 en 29 Abril 2007, 18:11 PM
Cita de: - en 29 Abril 2007, 13:17 PM
Otro fallo que le veo es que si creamos el archivo licencia.txt sin tener que meter nada dentro lo da como bueno.
ya, eso lo tengo que arreglar
edit: ya lo arregle
en el formulario splash cambia el form load por este
CitarPrivate Sub Form_Load()
On Error Resume Next
If Dir("./licencia.txt") <> "" Then
Dim n_File As Integer
Dim Contenido As String
n_File = FreeFile
Open "./licencia.txt" For Input As n_File
Contenido = Input$(LOF(n_File), #n_File)
Close n_File
Text4 = Contenido
End If
If Text4.Text = "VGV4dDE" Then Me.Hide
If Text4.Text = "VGV4dDE" Then programaTrial.Show
End Sub
por cierto en el codigo fuente no esta el splash!
interesante...
Cita de: satan69 en 7 Mayo 2007, 04:19 AM
interesante...
aun no colocas el form del splash....
en el codigo que dejaste no aparece por ningun lado.
perdon, ya lo subi bien....
http://www.sorucreations.gratishost.com/des_trialer.htm