A keygen genererer en tilfældig streng værdi , at du viser til dine læsere . Hvis du er vært for en URL Shortener tjeneste, du skal oprette et tilfældigt genereret værdi, der indeholder det domæne, som de genererede URL point. Du kan tilfældigt generere en perlerække af enhver længde i Visual Basic 6 for at lette generation af URL'en keygen service. Tjenesten bruger VB6 " RND" funktion til at generere et tilfældigt tal , der peger på et bogstav i alfabetet. Instruktioner
1

Åbn VB6 kode fil, du vil bruge til at generere keygen værdi. Det kan være hvilken som helst fil , der hoster din URL Shortener tjeneste kode. Typisk skal du placere denne kode i form indsendelse afsnit, når din hjemmeside læser har gjort domænet for afkortning .
2

Definer alfabetets bogstaver , du ønsker at bruge til at generere strengen. Array du opretter associerede hvert bogstav med et nummer , og disse tal hente en tilfældig brev fra array. Føj følgende kode til at skabe den vifte af bogstaver : Hej

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

Opret en streng variabel til at indeholde det randomiserede breve , denne streng i sidste ende bliver dit returnerede keygen værdi, men du skal sløjfe gennem hvert bogstav og hente en karakter, der er føjet til strengen variabel. Føj følgende kode til at skabe de variable :

Dim keygen As String
4

Opret en løkke, der tilfældigt genererer et nummer og bruger dette nummer til at hente et brev fra karakter array. Når brevet er hentet, føje den til " keygen " variable . Følgende kode genererer URL-strengen : Hej

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

Print ud genereret streng på websiden. For eksempel, " , domain.com " Hvis din shortener tjeneste har domænet følgende kode udskriver URL keygen skabt til den forkortede URL : Hej

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