En keygen genererar en slumpmässig sträng värde som du visar för dina läsare . Om du är värd en tjänst URL Shortener du måste skapa ett slumpmässigt genererat värde som innehåller domän som genererade URL poäng . Du kan slumpmässigt generera en sträng av valfri längd i Visual Basic 6 för att underlätta generering av URL keygen tjänsten. Tjänsten använder VB6 " Rnd " -funktion för att generera ett slumptal som pekar på en bokstav i alfabetet . Instruktioner
1
Öppna filen VB6 kod som du vill använda för att generera keygen värdet . Det kan vara vilken fil som är värd din webbadress kod shortener tjänsten . Vanligtvis placerar du den här koden i formulär avsnittet när din webbplats läsare lämnar domänen för matfett .
2
Definiera alfabetet bokstäver du vill använda för att generera strängen . Matrisen skapar du associerar varje bokstav med ett nummer och dessa nummer hämta ett slumpmässigt brev från arrayen . Lägg till följande kod för att skapa arrayen bokstäver:
Dim LettersArray Som Char ( ) LettersArray = " abcdefghijklmnopqrstuvwxyz " Addera 3
Skapa en sträng variabel att innehålla den randomiserade brev , denna sträng i slutändan blir din återvände keygen värde , men du måste loopa igenom varje bokstav och hämta ett tecken som läggs till strängvariabeln . Lägg till följande kod för att skapa de variabla :
Dim keygen As String
4
Skapa en loop som slumpmässigt genererar ett tal och använder det numret för att hämta ett brev från karaktären array . Efter brevet hämtas , bifoga den till " keygen " variabel . Följande kod genererar URL-strängen :
För i = 0 till 10Randomize ( ) Random1 = Rnd ( ) keygent = keygen & LettersArray ( Random1 ) Loop
5
Skriv ut genererade strängen på webbsidan . Till exempel , om din shortener tjänsten har domänen " domain.com , " Följande kod skriver ut URL- keygen skapats för det förkortade URL :
Response.Write " http://domain.com /" & keygen
