Marcofbb Noticias y Artículos Webmasters



Publicidad marcored

Crear keygen en visual basic 6

  • 29/08/2010
  • 4:21 pm
  • marcofbb

En este tutorial le mostraré como crear un keygen con visual basic 6

- ¿Qué es un keygen?

Un KeyGen es un Generador de "Llaves" o "Seriales", que por lo general violan los derechos de autor de un programa.

keygen vb6

Empezemos

Creamos un nuevo proyecto en el cual agregaremos
- 2 CommandButton
- Command1
* Caption: Generar
- Command2
* Caption: Salir
- 1 TextBox

Y ponemos el siguiente código

Private Sub Command1_Click()
sel = Int(Rnd() * 5)
Select Case sel
Case 0
Text1.Text = "JCRZ-YCAH-Q2PG-WDAZ-4M5T"
Case 1
Text1.Text = "CVC4-YHX5-DVKN-PA47-VCT7"
Case 2
Text1.Text = "9JJJ-W64M-32WK-S69N-ZT9W"
Case 3
Text1.Text = "GJQQ-8W8U-S6CA-7JZD-CQCM"
Case 4
Text1.Text = "JCRZ-YCAH-Q2PG-WDAZ-4M5T"
End Select
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

El código lo que hace es generar texto aleatorios e imprimirlos en Text1,
sel = Int(Rnd() * 5) esto lo que hace es un numero aleatorio entre 0 y 5 y esto Select Case sel lo que hace es seleccionar el case según el numero aleatorio que salio

Descargar

Share

¿Necesitas ayuda? o ¿Asesoramiento webmaster? Registrate en nuestro foro de consultas

Posts Relacionados

Total de Comentarios: 5

Avatar
21/03/2012
5:37 pm

Como hago para que no de numeros aleatorios pero si numeros dependiendo de la lista de los "Case"
Es decir primero el Case 0 despues el Case 1 y despues el Case 2, no aleatorio...

    Avatar
    27/03/2012
    12:43 am

    Haces un incremento, Salu2

Avatar
Carl
16/07/2012
4:59 pm

Muy bueno, pero te falto declarar la vaiable sel
con Dim sel as integer.
Suerte

Avatar
16/07/2012
6:10 pm

¿¿Como hago el incremento??

Avatar
09/11/2013
9:59 pm

Pablo:
este tema es algo viejo, y aunque no se mucho de VB6 por la simplicidad del codigo pienso que el incremento va en la parte:

sel = Int(Rnd() * 5)

cambiandola por
sel = Int(sel + 1)

obviamente poniendo el valor de sel a 1 previamente, o si no no tengo idea del tipo de error que pueda causar.

Saludos.


Enviar Comentario

(*)

(*)