-=[ Crear Un Keygen En VB6 ]=-

Bueno amigos ilegales primero que nada deben de tener instalado el Visual Studio 6.0 xD!

---

Ok Comenzemos ...

---

Primero Abrimos Nuestro Amigo VB6 (Visual Basic 6)

1) Bueno nos va a aparecer un cuadro que dice que tipo de formato a elegir y seleccionamos Exe Standar cual se selecciona por DEFECTO (Predeterminado)


2) Ahora al costado vemos un par de herramientas, etc , seleccionamos Un Boton, un TextBox y lo mandamos al cuadro lo ajustamos a nuestro modo, puiden poner un label yponer un texto... como vemos aca:



3) Luego de hacer todo, etc... le damos DOBLE CLICK a el boton, la cual debe decir generar,algo.. y nos va a salir esto..



Entre medio despues dela primera oracion pegamos el siguiente codigo y que el END SUB, que abajo del ultima oracion, que no haya espacios PLZ...


sel = Int(Rnd() * 10)
Select Case sel
Case 0 Text1.Text = "CODIGO"
Case 1 Text1.Text = "CODIGO"
Case 2 Text1.Text = "CODIGO"
Case 3 Text1.Text = "CODIGO"
Case 4 Text1.Text = "CODIGO"
Case 5 Text1.Text = "CODIGO"
Case 6 Text1.Text = "CODIGO"
Case 7 Text1.Text = "CODIGO"
Case 8 Text1.Text = "CODIGO"
Case 9 Text1.Text = "CODIGO"
End Select

y Nos quedaria algo asi



Bueno, cada uno agrega un codigo, claro.. no texto depende lo que quieran hacer xD.. es decir explicando el codigo seria lo siguiente:

el rnd() genera numeros aleatorios entre 0 y 1, nunca va a ser ni 0 ni 1, por lo que lo multiplico por dies para que sean numeros entre 0 y 10 osea : 0.1 * 10 = 10 y con el select case miro que valor tiene la variable "sel" y segun el valor muestro x serial

Bueno Luego de todo esto, vamos a nuestro formulario... le damos Inciar,con F5 sino me equivoko, y se incia para ver si anda... y le damos a nuestro boton y vamos probando xD...

Luego si queresmos sacarlo a la NET O RED XD,, vamos a archivos - Generar Proyecto, le damos el nombre y listo xD....

y listo tendremos un Keygen 100% libre de viruz o trayanos o turkojan o otro viruz raro =S

Espero les sirva de algo dejen comentarios...