A keygen gera um valor de seqüência aleatória que você exibe aos seus leitores. Se você hospedar um serviço encurtador de URL que você deve criar um valor gerado aleatoriamente que contém o domínio ao qual o URL aponta gerados. Você pode gerar aleatoriamente uma string de qualquer tamanho em Visual Basic 6 para facilitar a geração do serviço keygen URL. O serviço usa a função VB6 " Rnd " para gerar um número aleatório que aponta para uma letra do alfabeto. Instruções
1

Abra o arquivo de código VB6 que deseja usar para gerar o valor keygen . Ele pode ser qualquer arquivo que hospeda o código de serviço encurtador de URL. Normalmente, você colocar esse código na seção de envio de formulário quando o seu leitor site envia o domínio para encurtar .
2

Definir as letras do alfabeto que você deseja usar para gerar a string. A matriz de criar associa cada letra com um número e esses números recuperar uma carta aleatória da matriz. Adicione o seguinte código para criar a matriz de letras :

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

Criar uma variável de cadeia para conter o randomizado letras ; esta corda acaba se tornando seu valor keygen voltou, mas você deve percorrer cada letra e recuperar um personagem que é anexada à variável de string. Adicione o seguinte código para criar a variável :

Dim keygen As String
4

Criar um loop que gera aleatoriamente um número e usa esse número para recuperar uma carta do array de caracteres . Quando a letra é recuperada, acrescentá-la à variável " keygen " . O código a seguir gera a seqüência de URL :

Para i = 0 para 10Randomize () random1 = Rnd () = keygent keygen & LettersArray ( random1 ) loop
5

Imprima o corda gerado na página da Web . Por exemplo, se o seu serviço de encurtador tem o domínio " domain.com ", os seguintes código imprime fora da URL keygen criado para a URL encurtada :

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