Crear keygen en visual basic 6
- 29/08/2010
- 4:21 pm
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.
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
Posts Relacionados