Criando um serial em VB6

[ℛiqu∊ 13]

Olá amigos. Antes de inidicarmos, mas entender a idéia do sistema:

 

• Criar um serial de liberação diferente a cada dia para um aplicativo;
  
• Pedir o número do HD do computador na qual seu sistema está instalado;
  
• Com o numero do HD criar um código para gerar nosso serial;
  

Muito já se viu sobre como validar um CPF/CNPJ. Sabemos que para essa validação do DV, ou seja, dígito verificador, temos um cálculo sobre os 9 primeiros dígitos do CPF, como exemplo. Que tal fazermos nosso próprio cálculo em cima de uma numeração do HD na qual está instalado seu sistema. Essa é apenas uma forma bem simples de segurança que você pode aplicar para seu sistema. A vantagem é que você pode passar o serial para o cliente por telefone ou e-mail, por que o serial é de liberação diária, ou seja, esse mesmo serial não liberaria o sistema no dia seguinte, pois para o dia seguinte já seria outro serial diferente. Mas chega de papo e vamos partir para criação.

 

 

 

Observações:

Termo criar 2 projetos: 1º É o projeto que simula seu programa no cliente;

2º É o aplicativo que vai gerar a senha do dia que você vai fornecer. 1º PROJETO (APLICATIVO CLIENTE)

 

1. Inicie um projeto no form1 coloque:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Veja:

 

Código do form1:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Código do Module1

 

 

• Dentro do Módulo vamos criar uma função com o seguinte código:
  

Obs.: Por que devemos criar uma função? É essa função que vai comparar o conteúdo do text(codigo) com o serial fornecido.

Faça:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

2º PROJETO (APLICATIVO PARA GERAR O SERIAL)

 

1. Inicie um novo projeto no form1 e coloque:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Veja:

 

 

 

 

Esse form é para a pessoa repassar o número que está sendo mostrado no 1º projeto que fizemos.

Código do Form:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Código do Module1

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Isso foi apenas um exemplo de como poder criar um serial de uma maneira

bastante simples. Espero que tenham gostado. Até a próxima!

 

Créditos:

iMasters

[DragonBoss 8]

Rique domina as arte do VB mesmo xD...

 

tutorial bem interessante.... nao mexo mto com vb, mas entendi + ou - do tuto...

 

vo ve se consigo fazer algo parecido pra delphi usando registro e numeros random ( eu jah tava fazendo.. mas fikei com preguiça de termina)... mas keem sabe o seu de VB nao me ajuda com o meu no delphi xD

 

flw, abraços.

[Surfistinha£ 20]

Vei owno era isso que eu tava querendo tava pensando em criar um programa com serial

 

Tranks vei me ajudo muito

 

vlw