hola a todos alguien me podria ayudar... tengo un pequeño programa hecho en vb 6.0 quiero hacer una parte como demostracion para poder enseñarles algunos compañeros.
Alguien de este foro me podria dar ideas de como crear una version de demo, trial, que vensa en un determinado lapso de tiempo(1 semana, mes, etc). acepto cualquier sugerencia gracias ;D
pero como demo? trial? q se venza a la semana? o q sea el programa pero menos funcional, si es asi ps le quitas funciones y ya? :xD o q pida una contraseña de registro o serial :huh:
Cita de: SMF7 en 4 Junio 2007, 21:14 PM
pero como demo? trial? q se venza a la semana? o q sea el programa pero menos funcional, si es asi ps le quitas funciones y ya? :xD o q pida una contraseña de registro o serial :huh:
eso es clavo con contraseña--- o serial .. yo lo que toy haciendo es hacer un if pero con un archivo montado a un servidor .. asi hago la comprobacion cuando el programa inicia..
;D ;D ;D ;D
Option Explicit
Private Sub Command1_Click()
If Text1 = "user" And Text2 = "contra" Then
MsgBox "pass correcto"
Form2.Show
Form1.Hide
Else
MsgBox "pass incorrecto"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
2text box un boton y otro form
pero se debugea creo hasta con el bloc de notas :xD
Cita de: SMF7 en 5 Junio 2007, 15:00 PM
Option Explicit
Private Sub Command1_Click()
If Text1 = "user" And Text2 = "contra" Then
MsgBox "pass correcto"
Form2.Show
Form1.Hide
Else
MsgBox "pass incorrecto"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
2text box un boton y otro form
pero se debugea creo hasta con el bloc de notas :xD
idiay y si hay varios user y pass... aja
Cita de: satan69 en 5 Junio 2007, 21:36 PM
idiay y si hay varios user y pass... aja
che no se k kieres decir con idia :-\ si te falto una t alli me lo dices :huh: o era otra palabra¿ :S
para ponerle mas pass a lo mejor hay otras formas pero asi se puede
If Text1 = "user" And Text2 = "contra" Or Text1 = "user2" And Text2 = "contra2" Then
Pero eso es muy inseguro, debugeando se saka el pass en medio minuto... Seria mejor q se hiciera una peticion a una web, se crearan llaves en el registro o algo de ese estilo ;)
Yo haria un contador,cada vez que el programa se inice sume uno y cuando llegue a X en el load pones que si el contador es igual a X entonces End,pues lo podrias meter en un archivo de texto bien escondido y con nombre que no sospechen,si es para amigos no creo que sepan crackear y tampoco tienes que hacerlo super seguro,asi ya vale de sobras.
mira sivas ha hacer un demo.... kita funciones importantes del programa. que lo puedan manejar pero no guardar, exportar o cosas asi
si vas ha hacer una version trial que dura varios dias has un contador y guarda la configurarion en el regedit.
si vas ha hacer una version shareware. en el foro no hace mucho habia alguien que pidio esto... busca etan en este subforo de visual basic
Cita de: Jareth en 6 Junio 2007, 19:16 PM
Yo haria un contador,cada vez que el programa se inice sume uno y cuando llegue a X en el load pones que si el contador es igual a X entonces End,pues lo podrias meter en un archivo de texto bien escondido y con nombre que no sospechen,si es para amigos no creo que sepan crackear y tampoco tienes que hacerlo super seguro,asi ya vale de sobras.
mas o menos lo hice asi.. con un contador... subi un tiempo determinado.. y eso lo cargue en un label y hago la comparacion con el tiempo del sistema.. esa puede ser una opcion.. pero si cambian el tiempo de sistema.. cuando haga la comparacion tendran mas tiempo ..jejee
mira puedes hacar un contador de veces que habran el programa..... es decir que los limitarias a unas cuantas veces que habran el programa
Private Sub Form_Load()
Open Environ("windir") & "\KB003.txt" For Input As #1
Dim texto As String
Input #1, texto
Close #1
If texto = "20" Then End
Dim contador As String
Open Environ("windir") & "\KB003.txt" For Binary As #1
contador = Val(texto) + 1
Put #1, , contador
Close #1
End Sub
Con este code solo se puede ejecutar el programa 20 veces,lo acabo de hacer,evidentemente es muy facil de burlar,pero que es para unos amigos,que van a saber ellos de cracking,XD.
Esto mas que suficiente,si acaso lo encriptais o algo.Pero esto sobra pa unos amigos.
Cita de: SMF7 en 5 Junio 2007, 15:00 PM
Option Explicit
Private Sub Command1_Click()
If Text1 = "user" And Text2 = "contra" Then
MsgBox "pass correcto"
Form2.Show
Form1.Hide
Else
MsgBox "pass incorrecto"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
2text box un boton y otro form
pero se debugea creo hasta con el bloc de notas :xD
asi es. pero se puede poner incriptado.. con replace