Un keygen genera un valore stringa casuale che si visualizzano ai tuoi lettori. Se ospitate un servizio di URL shortener è necessario creare un valore generato in modo casuale che contiene il dominio a cui punta il URL generato. È casualmente possibile generare una stringa di qualsiasi lunghezza in Visual Basic 6 per facilitare la generazione del servizio URL keygen. Il servizio utilizza la funzione VB6 "RND" per generare un numero casuale che punta a una lettera dell'alfabeto.

istruzione

1 Aprire il file di codice VB6 che si desidera utilizzare per generare il valore keygen. Può essere qualsiasi file che ospita l'URL shortener codice di servizio. In genere, si inserisce il codice nella sezione invio del modulo quando il lettore sito invia il dominio per accorciare.

2 Definire le lettere dell'alfabeto che si desidera utilizzare per generare la stringa. L'array si crea associa ogni lettera con un numero e questi numeri recuperare una lettera a caso dalla matrice. Aggiungere il seguente codice per creare la serie di lettere:

Dim LettersArray Come Char ()
LettersArray = "abcdefghijklmnopqrstuvwxyz"

3 Creare una variabile stringa per contenere le lettere randomizzate; questa stringa diventa in ultima analisi, il valore del keygen restituito, ma è necessario collegare attraverso ogni lettera e recuperare un carattere che viene aggiunto alla variabile stringa. Aggiungere il seguente codice per creare la variabile:

Dim keygen As String

4 Creare un ciclo che genera in modo casuale un numero e utilizza tale numero per recuperare una lettera dal array di caratteri. Dopo la lettera viene recuperato, aggiungere alla variabile "keygen". Il seguente codice genera la stringa URL:

Per i = 0 to 10
Rendi casuale()

Random1 = Rnd()

keygent = keygen & LettersArray (Random1)
Ciclo continuo

5 Stampare la stringa generata nella pagina Web. Per esempio, se il servizio shortener ha il dominio "domain.com," Il codice seguente stampa fuori il keygen URL creato per l'URL accorciato:

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