A keygen genererer en tilfeldig streng verdi som du viser til leserne. Hvis du er vert for en URL-forkorter tjenesten må du opprette en tilfeldig generert verdi som inneholder domenet som de genererte URL poeng. Du kan tilfeldig generere en streng uansett lengde i Visual Basic 6 for å lette generasjon av URL keygen tjenesten. Tjenesten bruker VB6 " Rnd "-funksjon for å generere et tilfeldig tall som peker til en bokstav i alfabetet . Instruksjoner
en

Åpne VB6 kode filen du vil bruke til å generere keygen verdi. Det kan være hvilken som helst fil som er vert for URL-forkorter tjeneste kode . Vanligvis plasserer du denne koden i form innsending delen når nettstedet leseren sender domene for avkorting .
2

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

Dim LettersArray Som Char ( ) LettersArray = " abcdefghijklmnopqrstuvwxyz "
3

Lag en streng variabel å inneholde den randomiserte brev, denne strengen til slutt blir din returnert keygen verdi, men du må sløyfe gjennom hver bokstav og hente et tegn som er lagt til strengvariabelen . Legg til følgende kode for å lage de variable :

Dim keygen As String
4

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

For i = 0 til 10Randomize ( ) Random1 = Rnd ( ) keygent = keygen & LettersArray ( Random1 ) Loop
5

Print ut generert streng på websiden . For eksempel, hvis din shortener tjenesten har domenet " domain.com , " følgende kode skrives ut nettadressen keygen skapt for den forkortede URL:

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