PDA

Ver la versión completa : como crear keygen en visual basic



dksoul
24-09-2004, 11:55
hola quiero saber el codigo que se deve de poner para generar los keygen

su puestamente

Private Sub Command1_Click()

Rem como se deve de poner el codigo para que el boton de commando
Rem genere mas seriales al planarle mas vecer

Text1.Text = " w700-4523-4589-3547" ejemplo

End Sub



como se le deve de poner el codigo para que al generar los seriales
y seguir aplanandole mas al boton siga generando mas

diganme como se deve de poner me ayudarian demasioado

atte darksoul

diarrea
24-09-2004, 15:32
Crea una función que genere dicho código. En el evento Command1_click llamas a dicha función y listo.
Para que no salgan codes repetidos crea una subrutine que compruebe que no está repetido... si está repetido vuelve a llamar a la función.
Hay miles de formas.

dksoul
27-09-2004, 08:40
no se mucho de vb
soy novato me estoy enseñando con unlibro que me prestaron
no se que variables puedo poner y me podrias decir un ejemplo de como deve de ser hecho

asi como el ejemplo que puse podrias ponerme un ejemplo pero ya con el codigo escrito yo solo lo tendria que modificar

atte darksoul si me puedes ayudar contacteme por msn

[email protected]

eXcalibur
27-09-2004, 13:56
¿Has probado a seguir una guia para aprender VB antes de esto?
Creo que te quieres saltar varios capítulos de golpe...

dksoul
28-09-2004, 23:16
bueno um en que manual me puedo vasar para aprender visual basic tengo uno que es de la prepa de un amigo pero este libro es un poco avanzado
no tengo un manual de principiante hay unas cosas que si les entiendo pero
no tengo tanto conocimiento

espero que alguien me puede poner un ejemplo de lo que estoy pidiendo

atte darksoul

Markitos1024
28-09-2004, 23:43
me parece que lo que debes hacer es saber que quieres hacer. Dices que quieres un codigo que te genere seriales pero para eso debes usar un criterio osea una expresion algebraica ¿no? sino calcularias la cantidas de permutaciones en 16.
a000-0000-0000-0000
a000-0000-0000-0001
............................
.............................
w700-4523-4589-3547
.............................
.............................
z999-9999-9999-9999

eso no sirve para mucho

dksoul
29-09-2004, 04:41
mejor cierro ya el tema porque nadien supo darme la respuesta a mi duda espero antes de que se cierre este tema alguien podriam darme un ejemplo de un generador de seriales en visual basic

y a todos lo que postiearon aqui gracias por contestar
aunque no fue de mucha duda deja buscar en otro foro aver si me puede dar la solucion

atte darksoul


tema cerrado

<PICCOLO>
29-09-2004, 07:19
yo esque directamente no entiendo lo que dices, si intentas explicarte un poco mejor...

No esperes

<PICCOLO>
29-09-2004, 07:22
yo esque directamente no entiendo lo que dices, si intentas explicarte un poco mejor...

No esperes que nadie te lo de hecho, el código que pides puede realizarse con visual basic con aprender un poco sobre el. (si esque has sido capaz de sacar el algoritmo).

En vez de buscar "codigo VB de keygen" busca "manual de VB" en google, te será de mayor utilidad.

eXcalibur
29-09-2004, 09:29
No, si yo tampoco lo he entendido muy bien, pero la cosa está en que nadie te va a dar el programa para que tu le pongas tu nombre (mmmmmmmm..., no serás Bill Gates? XD )

Markitos1024
29-09-2004, 20:38
querido amigo dksoul escribo este post porque te note amargado ya que no obtienes una respuesta a tu pregunta y yo te la voya responder detalladamente, pero antes tienes que responderte a vos algunas preguntas
1¿que conocimientos de programacion tienes?
2¿que conocimientos de vbasic has obtenido?
3¿Conoces sobre la matematica discreta y el calculo combinatorio?
4¿ que sentido tiene este codigo?
Private Sub Command1_Click()
Text1.Text = " w700-4523-4589-3547"
5 ¿sabes que tan grande es este numero 16!?

1La programacion es la tecnica que nos permite resolver este tipo de problemas a travez de sistemas de computos
2 el vbasic es un lenguaje osea es una herramienta para codificar tu algoritmo.
3es la ciencia o la parte de la matematica que estudia la cantidad de combinaciones o permutacion que hay de un elemento en anillo, grupo o el sistema en el que estes tabajando.
5 Ninguno
6 20922789888000
bueno lo que tu querias es esto
Private Sub Command1_Click()
Dim serial
serial = 1
Do While serial = 999999999999999999999
Text1.Text = serial
serial = serial + 1
Loop


¿?¿?¿?¿¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿ esto era ¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?
hay que saber que se quiere antes de pedir ¿no?

diarrea
29-09-2004, 21:11
Postea la función matemática que genera las claves y te diremos que tienes que poner exactamente.. otra cosa ya no se me ocurre.
No se porque tengo la extraña sensación que tu lo que has hecho ha sido coger varios serials de aquí y de allá y con eso quieres hacer un keygen... xD

Scar_T
29-09-2004, 22:21
Yo mas bien pienso que lo quiere es algo como:

Dim MyKeygen as Keygen

Text1.Text = MyKeygen.generate()

dksoul
03-10-2004, 14:21
hola a los que respondieron me an dado algunos ejemplo pero noson los que necesito a no les entiendo muy apenas tengo como 20 dias de averme metido a esto de la programacion ya havia tratado de programar o estudiar pero no entendia ni madre todo era por mi cuenta hasta que me prestaron un libro pero igualno len entiendo jejeje creo que tendria que ponerme a estudiar estps son algunos de los ejemplo
--------------------------------------
Private Sub Command1_Click()
Dim x As Integer
For x = 1 To 30
Randomize
d = Int(Rnd * 255) + 1
h = Chr(d)
Text1.Text = Text1.Text & h
Next
End Sub
----------------------------------------
Private Sub Command1_Click()
Text1.Text = ""
Randomize
d = Int(Rnd * 255) + 1
H = Chr(d)
x = "H"
Randomize
L = Int(Rnd * 255) + 1
C = Chr(L)
M = "2"
Text1.Text = Text1.Text & H & x & C & M
End Sub
-----------------------------------------------------

Private Sub Form_Load()
List1.AddItem "XXX"
List1.AddItem "YYY"
End Sub

Private Sub List1_Click()
Select Case List1.Text
Case "XXX"
Text1.Text = "Serial de X"
Case "YYY"
Text1.Text = "Serial de Y"
End Select
End Sub
---------------------------------------
al tercero si le entendi pero no era lo que yo queria con textbox no con list1box


aqui esta el ejeplo que ise

http://www.sailent.com/keygen/macromedia%20mx%202004%20serial.exe

y aqui esta el proyecto
http://www.sailent.com/keygen/macromedia%20studio%20mx%202004.rar

solo quiero saber que funcion se le deve de poner al commando para al hacerle varias veces click me genere textos diferentes a los cuales yo ponga
ejemplo
doy un click generar
WPD700-59309-14394-64786 esto me aparece y quiero darle otro
click quisiera que apareciera otro texto digamos
WPD700-59309-14394-00000 y cana ves que siga aplanandole me genere otro
WPD700-59309-14394-32154 otro click
WPD700-59309-14394-68977 otro click
WPD700-59309-14394-68976 otro click


aver si me entienden
ya lo demas como poner un icono imagenes fondo imagenes a los texto eso ya vi como era jejej


:D :D :D :D :D