Un keygen génère une valeur de chaîne aléatoire que vous affichez à vos lecteurs. Si vous hébergez un service de raccourcisseur d' URL , vous devez créer une valeur générée de façon aléatoire qui contient le domaine auquel les points d'URL générées . Vous pouvez générer aléatoirement une chaîne de n'importe quelle longueur en Visual Basic 6 pour faciliter la génération du service keygen URL. Le service utilise la fonction de VB6 "Rnd " pour générer un nombre aléatoire de points à une lettre de l'alphabet. Instructions
1

Ouvrez le fichier de code VB6 que vous souhaitez utiliser pour générer la valeur keygen . Il peut être n'importe quel fichier qui héberge votre URL code de service de raccourcisseur . En général, vous placez ce code dans la section de la soumission du formulaire lorsque votre lecteur de site soumet le domaine de shortening.
2

Définir les lettres de l'alphabet que vous souhaitez utiliser pour générer la chaîne . Le tableau que vous créez associe chaque lettre avec un numéro et ces chiffres récupérer une lettre au hasard à partir de la matrice. Ajoutez le code suivant pour créer le tableau de lettres :

LettersArray As Char () LettersArray = " ABCDEFGHIJKLMNOPQRSTUVWXYZ "
3

Créer une variable pour contenir la chaîne aléatoire lettres ; cette chaîne devient finalement votre valeur keygen retourné, mais vous devez parcourir chaque lettre et de récupérer un personnage qui est ajouté à la variable chaîne. Ajoutez le code suivant pour créer la variable : Trouvez

keygen Dim As String
4

Créer une boucle qui génère aléatoirement un numéro et utilise ce nombre pour récupérer une lettre du tableau de caractères. Après la lettre est récupéré, l'ajouter à la variable " keygen " . Le code suivant génère la chaîne URL :

For i = 0 à 10Randomize () Random1 = Rnd ( ) keygent = keygen et LettersArray ( Random1 ) Boucle
5

imprimer les générée ligne dans la page Web . Par exemple, si votre service de raccourcisseur a le domaine " domain.com ", le code suivant affiche le keygen URL créé pour l' URL raccourcie :

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