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

• Come sostituire una casella di testo con un'altra che inserisce dati in VB6 
• Libreria di crittografia per VBA