Hvordan lage en URL Keygen i VB6

En keygen genererer en tilfeldig strengverdi som du viser til leserne. Hvis du er vert for en URL short tjenesten må du opprette en tilfeldig generert verdi som inneholder domenet som genererte URL poeng. Du kan tilfeldig generere en streng med en hvilken som helst lengde i Visual Basic 6 for å lette generasjon av URL keygen tjenesten. Tjenesten bruker VB6 "Rnd" funksjon for å generere et tilfeldig tall som peker på en bokstav i alfabetet.

Bruksanvisning

1 Åpne VB6 kodefilen du vil bruke til å generere keygen verdi. Det kan være hvilken som helst fil som er vert for URL Shortservicekode. Vanligvis plasserer du denne koden i form innsending delen når nettstedet leseren sender domenet for korte.

2 Definer alfabetet bokstaver du vil bruke til å generere strengen. Matrisen du oppretter medarbeidere hver bokstav med et nummer og disse tallene hente et tilfeldig brev fra tabellen. Legg til følgende kode for å lage rekken av bokstaver:

Dim LettersArray Som Char ()
LettersArray = "abcdefghijklmnopqrstuvwxyz"

3 Lag en streng variabel for å inneholde de randomiserte bokstaver; denne strengen til slutt blir den returnerte keygen verdi, men du må sløyfe gjennom hver bokstav og hente en karakter som er lagt til strengvariabelen. Legg til følgende kode for å opprette variabelen:

Dim keygen As String

4 Lag en løkke som genererer tilfeldige tall og bruker dette tallet til å hente et brev fra tegnet array. Etter at brevet blir hentet, føyer den til "keygen" variable. Følgende kode genererer URL-strengen:

For i = 0 til 10
Tilfeldig ()

Random1 = Rnd()

keygent = keygen & LettersArray (Random1)
Loop

5 Skriv ut den genererte strengen på websiden. For eksempel, hvis din short tjenesten har domenet "domain.com," følgende kode skriver ut URL keygen skapt for den forkortede URL:

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