Crear Un keygen personal ( En Visual Basic 6.0 )

Mensajes : 5 Fecha de inscripción : 08/02/2010

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...