Antes de continuar quisiera mencionar que mis conocimientos acerca de Visual Basic 6.0 son casi núlos, por lo tanto espero comentarios constructivos >.<, simplemente aporto para agarrar mas cotorreo entre todos.
#########################################################################
Video por si no quieren leer:
http://www.youtube.com/watch?v=q2OkR53bTvU#########################################################################
En este tutorial aprenderemos a lo que seria como simular el funcionamiento de un Generador de Serial Numbers en el lenguaje de programacion llamado Visual Basic 6.0 ya que muchos tienen curiosidad de crear sus propios KeyGens (Key Generator/Generador de llaves).
Cabe mencionar que no es un KeyGen original ya que uno Empresarial (Literalmente) contiene el algoritmo que los genera aleatoriamente para validar el programa, esta ocasion no haremos el algoritmo, simplemente haremos un "simulador" a simple vista, obviamente si pasan el source se daran cuenta que no es uno original, pero cualquier cybernauta que lo utilize creara que si lo es.
Lamento no ponerles un link de descarga pero yo lo tenia en un USB y son 4 partes; no tengo tiempo para subirlas.
Lo primero que haremos una vez instalado el VB6 sera abrir un nuevo projecto "Standart EXE/ EXE Estandar" como lo muestra la siguiente imagen:
Una vez que hallamos hecho el primero paso, nos iremos a el panel izquierdo de herramietnas (Esta de ese lado por Default) y daremos un click en el TextBox/Casilla de texto como lo muestra la siguiente imagen y haremos una casilla de texto en el Form1 (Default):
Despues, nos iremos al mismo panel pero esta vez buscaremos el Boton "CommandButton/Boton de Comando" y haremos lo mismo que el paso 2, haremos un CommandButton en el Form1 (Default):
Por lo tanto ya tendriamos un TextBox y un CommandButton en nuestro Form1, seguido de estos pasos daremos doble click en el CommandButton/Boton de Comando para comenzar a escribir el codigo, nos mostrara algo asi:
Hare una breve pausa, esto en si no es un KeyGen ya que no tiene el algoritmo de uno, lo que hara es que nosotros le guardaremos en variables valores que equivaldran a nuestros SN (Serials Numbers), me refiero a que por ejemplo, X = Uno y Y = Dos, cuando de un Click mostrara el Valor de X, despues otro click y mostrara el valor de Y.
Ok, seguimos, nosotros debemos ordenarle los valores de nuestros SN (Serials Numbers) y lo haremos con el siguiente codigo:
Private Sub Command1_Click()
Text1.Text = Int(Rnd() *
Select Case Text1.Text
Case 0
Text1.Text = "Serial 1"
Case 1
Text1.Text = "Serial 2"
Case 2
Text1.Text = "Serial 3"
Case 3
Text1.Text = "Serial 4"
Case 4
Text1.Text = "Serial 5"
Case 5
Text1.Text = "Serial 6"
Case 6
Text1.Text = "Serial 7"
Case 7
Text1.Text = "Serial 8"
Case 8
Text1.Text = "Serial 9"
End Select
End Sub
// La linea Text1.Text = Int(Rnd() *
es Text1.Text = Int(Rnd() * 8 ) solo que el 8 y ) van juntos, solo que los separe por que si no muestra icono.
Como podran observar indicamos que el caso 0 es igual a el Serial 1, el caso 1 es igual a el Serial 2 y asi sucesivamente, es cuestion de que ustedes solo cambien "Serial Numero" por el verdadero Serial Number de "x" programa que quieran generar.
Rnd es para generar un valor entero aleatorio, (En este caso, seria el serial number) y pues los "Cases" es depende de cuantos clicks des cual Serial mostrara, aunque como mencione ahorita no es una secuencia de escalera, se selecciona un Serial aleatorio y lo muestra.
Deberan tener algo asi:
Y pues solo es cuestion que ustedes le metan diseño para que les quede algo asi (Este KeyGen es para DreamWeaver 8.0 creado por mi):
Espero que entiendan ya que no es mucha ciencia realmente, obviamente los invito a que estudien VB6 para ya ponerle Api's, entre otras cosas.
Suerte.
