Comunidad PHPeros
Lenguajes => Visual Basic => Mensaje iniciado por: Xt3mP en 09 de Marzo de 2010, 07:32:11 am
-
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:
(http://img35.imageshack.us/img35/479/17592371.png)
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):
(http://img59.imageshack.us/img59/4426/92487694.png)
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):
(http://img16.imageshack.us/img16/649/50468504.png)
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:
(http://img23.imageshack.us/img23/1048/85831046.png)
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() * 8)
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() * 8) 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:
(http://img684.imageshack.us/img684/4406/72411924.png)
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):
(http://img697.imageshack.us/img697/3673/73718769.png)
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.
-
Buenn tuto :)
Me gusto el diseño del keygen xDD
Un saludo,
-
Genial, te doy un +1.
¿De pura casualidad vos no sabés C++, o Python? xD.
Es que quiero aprender más, y por lo visto sabés bastante de lenguajes de programación.
Saludos.
-
Python estuve aprendiendo, se lo básico, al igual que C y C++ x) pasa que como mi hermano es programador, pues me intereso esto de la programación, pero preferí aprender de uno por uno para no líarme x).
-
Una pregunta.
Una vez que ya he puesto le código y tal que ya funciona y todo.. ¿Como lo puedo poner a descargar por internet?.
Por cierto, muy buen aporte, un + :)
-
Una pregunta.
Una vez que ya he puesto le código y tal que ya funciona y todo.. ¿Como lo puedo poner a descargar por internet?.
Por cierto, muy buen aporte, un + :)
Imagino que tu pregunta es como generar el exe... porque tonto no eres.
Para eso te vas a archivo -> Generar NOMBRE.exe y listo :)
Lugo subes el exe a megaupload :P
-
Yo pensaba que los keygen generaban las claves como su propio nombre indica (de hecho algunos lo hacen), no que simplemente eligen uno al azar de una lista que el creador ha puesto. ¡Que desilusión!
Saludos!
-
Vale, esta bien tu codigo, sin embargo un par de cosillas:
- Si tienes que poner 9809807 seriales es muy molesto tener que ir numero a numero...
- Es mucho codigo para algo tan simple, mira aqui te lo simplifico
Private Sub Command1_Click()
Dim codigos As String
Dim codigo() As String
codigos = "a-a-a-a;b-b-b-b;c-c-c-c;d-d-d-d;e-e-e-e;f-f-f-f;d-d-d-d"
' en codigos van todos los seriales separados por ;
' serial1;serial2;serial3;serial4; ... serialN
codigo = Split(codigos, ";")
Text1 = codigo(Int(Rnd() * UBound(codigo)))
End Sub
Y otra cosa, cuando postees un código postealo entre las etiquetas [*code][/*code] que para algo están, y además no hace falta que pongas tu nombre en cada post que hagas.
Saludos
-
Yo pensaba que los keygen generaban las claves como su propio nombre indica (de hecho algunos lo hacen), no que simplemente eligen uno al azar de una lista que el creador ha puesto. ¡Que desilusión!
Saludos!
Generán claves para su empresa ó software con un algoritmo, en este caso es una SIMULACIÓN, aqui no tenemos algoritmo ni mucho menos, simplemente seleccionamos al azar.
Y otra cosa, cuando postees un código postealo entre las etiquetas [*code][/*code] que para algo están, y además no hace falta que pongas tu nombre en cada post que hagas.
Saludos
Acaso vez mi nombre en el post? n_n.