elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Como Crear un archivo demo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Como Crear un archivo demo  (Leído 4,492 veces)
Zeroql


Desconectado Desconectado

Mensajes: 957


Todo lo k sucede sucede por una razon


Ver Perfil WWW
Re: Como Crear un archivo demo
« Respuesta #10 en: 6 Junio 2007, 22:49 pm »

mira puedes hacar un contador de veces que habran el programa..... es  decir que los limitarias a unas cuantas veces que habran el programa


En línea

Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: Como Crear un archivo demo
« Respuesta #11 en: 6 Junio 2007, 22:58 pm »

Código:
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.


En línea

satan69


Desconectado Desconectado

Mensajes: 341



Ver Perfil
Re: Como Crear un archivo demo
« Respuesta #12 en: 7 Junio 2007, 02:25 am »

Código:
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
En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[AYUDA] Crear un Demo de un archivo .exe
Ingeniería Inversa
MetaleroBK 5 4,558 Último mensaje 2 Abril 2011, 04:32 am
por tincopasan
como liberar un programa demo
Ingeniería Inversa
kohkin 2 6,242 Último mensaje 26 Mayo 2011, 14:39 pm
por MCKSys Argentina
Como crear Archivo EXE Vacio « 1 2 »
Programación Visual Basic
x64core 10 7,812 Último mensaje 26 Junio 2011, 19:25 pm
por x64core
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines