Un keygen genera un valore stringa casuale che si visualizzano ai tuoi lettori. Se si ospita un servizio di URL shortener è necessario creare un valore generato casualmente che contiene il dominio a cui punta l'URL generato . È possibile generare in modo casuale una stringa di qualsiasi lunghezza in Visual Basic 6 per facilitare la generazione del servizio keygen URL. Il servizio utilizza la funzione VB6 "RND " per generare un numero casuale che punta a una lettera dell'alfabeto . Istruzioni
1
Aprire il file di codice VB6 che si desidera utilizzare per generare il valore keygen . Può essere qualsiasi file che ospita il vostro URL shortener codice di servizio . In genere , si inserisce questo codice nella sezione invio del modulo quando il tuo lettore di sito web presenta il dominio di accorciamento .
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 matrice di lettere :
Dim LettersArray come char ( ) LettersArray = " abcdefghijklmnopqrstuvwxyz "
3
creare una stringa variabile per contenere il randomizzato lettere; questa stringa alla fine diventa il tuo valore keygen restituito, ma è necessario un ciclo tra ogni lettera e recuperare un personaggio che viene aggiunto alla variabile stringa. Aggiungere il seguente codice per creare le variabili :
Dim keygen As String
4
creare un ciclo che genera in modo casuale un numero e utilizza tale numero per recuperare una lettera del vettore di caratteri . Dopo la lettera viene recuperato , aggiungere alla variabile " keygen " . Il codice seguente genera la stringa URL:
For i = 0 to 10Randomize ( ) random1 = Rnd ( ) keygent = keygen & LettersArray ( random1 ) Loop
5
Stampa il generato stringa nella pagina Web . Per esempio, se il vostro servizio shortener ha il dominio " domain.com ", il seguente codice stampa il keygen URL creato per l' URL abbreviato :
Response.Write
" http://domain.com /"& keygen
