Een keygen genereert een willekeurige tekenreeks waarde die u weer aan uw lezers . Als u een URL shortener dienst hosten moet je een willekeurig gegenereerde waarde die het domein waartoe de gegenereerde URL punten bevat. U kunt willekeurig genereren een reeks van willekeurige lengte in Visual Basic 6 de generatie van de URL keygen kunnen verlenen . De dienst maakt gebruik van de functie VB6 " Rnd " om een willekeurig getal dat wijst genereren naar een letter van het alfabet . Instructies
1 Open het VB6 code bestand dat u wilt gebruiken om de keygen waarde genereren . Het kan elk bestand dat uw URL shortener dienst code herbergt. Typisch , plaats je deze code in de sectie formulier indienen wanneer uw website lezer legt het domein voor de verkorting . Kopen van 2 Definieer de letters van het alfabet die u wilt gebruiken om de string te genereren . De array je associeert elke letter maken met een nummer en deze nummers halen een willekeurige letter uit de array . Voeg de volgende code toe aan de array maken met letters : Dim LettersArray
als Char ( ) LettersArray = " abcdefghijklmnopqrstuvwxyz "
3 Maak een string variabele om de gerandomiseerde bevatten brieven , deze string wordt uiteindelijk uw geretourneerde keygen waarde , maar je moet lus door elke letter en halen een teken dat wordt toegevoegd aan de string variabele . Voeg de volgende code toe aan de variabele te maken : Dim keygen
als Koord
4 Maak een lus die willekeurig genereert een nummer en gebruikt dat nummer op een brief van de karakter array halen . Nadat de brief wordt opgehaald , voeg aan de variabele " keygen " . De volgende code genereert de URL-string :
Voor i = 0 tot 10Randomize ( ) RANDOM1 = Rnd ( ) keygent = keygen & LettersArray ( RANDOM1 ) Loop
Print 5 uit de gegenereerde string op de webpagina . Bijvoorbeeld , als uw shortener dienst heeft het domein " domain.com , " de volgende code drukt de URL keygen gemaakt voor de verkorte URL : Response.Write " http://domain.com
/" & keygen
|
