Cómo hacer un Keygen URL en VB6

A keygen genera un valor de cadena aleatoria que se muestra a sus lectores. Si usted recibe un servicio acortador de URL debe crear un valor generado aleatoriamente que contiene el dominio al que apunta el URL generadas . Se puede generar de forma aleatoria una cadena de cualquier longitud en Visual Basic 6 para facilitar la generación del servicio keygen URL . El servicio utiliza la función de 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 web presenta el dominio de manteca.
2

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

LettersArray As Char () LettersArray = " abcdefghijklmnopqrstuvwxyz "
3

Crear una variable de cadena que contiene el azar cartas , esta cadena se convierte en última instancia, su valor keygen regresado , pero hay que recorrer cada letra y recuperar un personaje que se añade a la variable de cadena . Agregue el código siguiente para crear las variables :

keygen dévil como secuencia
4

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

For i = 0 a 10Randomize () random1 = RND () keygent = keygen y LettersArray ( random1 ) Loop
5

Imprima el string en la página web generada . Por ejemplo , si su servicio acortador tiene el dominio " domain.com ", el siguiente código imprime el keygen URL creado para la URL acortada :

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