A keygen erzeugt eine zufällige Zeichenfolge , die Sie für Ihre Leser anzuzeigen. Wenn Sie eine URL Shortener Dienst zu hosten , müssen Sie eine zufällig generierte Wert, der die Domäne, zu der die generierte URL Punkte enthält . Sie können nach dem Zufallsprinzip erzeugt eine Kette von beliebiger Länge in Visual Basic 6 , um die Erzeugung der URL keygen Service erleichtern. Der Dienst verwendet den VB6 " Rnd "-Funktion , um eine zufällige Zahl , die auf einen Buchstaben des Alphabets zu generieren. Anleitung
1

Öffnen Sie die VB6 Code Datei, die Sie verwenden möchten, um den Wert keygen erzeugen . Es kann eine beliebige Datei, die Ihre URL Shortener Service-Code hostet . Normalerweise legen Sie diesen Code in Form Einreichung Abschnitt , wenn Ihre Website Leser die Domain für Verkürzung trägt .
2

Definieren Sie die Buchstaben des Alphabets die Sie verwenden möchten , um die Zeichenfolge zu generieren. Das Array erstellen Sie ordnet jeden Buchstaben mit einer Zahl und diese Nummern abzurufen einen zufälligen Buchstaben aus dem Array. Fügen Sie den folgenden Code, um die Anordnung von Buchstaben erstellen :

Dim LettersArray Wie Char ( ) LettersArray = " ABCDEFGHIJKLMNOPQRSTUVWXYZ "
3

erstellen String-Variable , die randomisiert enthalten Briefe ; diese Zeichenfolge letztlich wird Ihre zurückgebrachten keygen Wert , aber man muss eine Schleife durch jeden Buchstaben und abzurufen einen Charakter, der String-Variable angehängt wird. Fügen Sie den folgenden Code, um die Variable zu erstellen :

Dim keygen As String
4

erstellen eine Schleife, die zufällig generiert eine Reihe und verwendet diese Zahl auf einen Brief von der Zeichen-Array abzurufen. Nachdem der Brief abgerufen wird, nehmen sie in die " keygen " Variable. Der folgende Code generiert die URL-Zeichenfolge :

Für i = 0 bis 10Randomize () Random1 = Rnd ( ) = keygent keygen & LettersArray ( Random1 ) Schleife
5

Drucken Sie die erzeugt String auf der Web -Seite. Zum Beispiel, wenn Ihre Shortener Dienst hat die Domain " domain.com ", der folgende Code druckt die URL keygen für die verkürzte URL erstellt:

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