Cómo hacer una URL Keygen en VB6

by admin

Un keygen genera un valor de cadena aleatoria que permite mostrar a sus lectores. Si aloja un servicio acortador de URL debe crear un valor generado aleatoriamente que contiene el dominio a la que apunta la URL generada. Puede generar aleatoriamente una serie de cualquier longitud en Visual Basic 6 para facilitar la generación del servicio URL keygen. El servicio utiliza la función VB6 "rnd" para generar un número aleatorio que apunta a una letra del alfabeto.

Instrucciones

1 Abra el archivo de código VB6 que desea utilizar para generar el valor keygen. Puede ser cualquier archivo que aloja el código de servicio acortador de URL. Por lo general, se coloca este código en la sección de envío de formulario cuando el lector de página web presenta el dominio para acortar.

2 Definir las letras del alfabeto que desea utilizar para generar la cadena. La matriz se crea asociados cada letra con un número y estos números recuperar una carta al azar de la matriz. Agregue el código siguiente para crear la matriz de letras:

Dim LettersArray como CHAR ()
LettersArray = "abcdefghijklmnopqrstuvwxyz"

3 Crear una variable de cadena para contener las letras aleatorios; esta cadena en última instancia se convierte en su valor keygen vuelto, pero debe recorrer cada letra y recuperar un personaje que se anexa a la variable de cadena. Agregue el código siguiente para crear la variable:

Dim como secuencia keygen

4 Crea un bucle que genera un número al azar y utiliza ese número para recuperar una carta de la matriz de caracteres. Después de recuperar la carta, lo añadirá a la variable "keygen". El código siguiente genera la cadena de URL:

Para i = 0 a 10
Selección aleatoria ()

Random1 = Rnd()

keygent = keygen y LettersArray (Random1)
Lazo

5 Imprimir la cadena generada en la página Web. Por ejemplo, si su servicio acortador tiene el dominio "domain.com", los siguientes código imprime fuera del keygen URL creada para la dirección URL abreviada:

Response.Write "http://domain.com/" & keygen

ETIQUETA: