PRECISO DE UM CODIGO DE SERIALKEY ALEATORIO

VIROS 04/03/2005 11:37:10
#71104
Gostaria de Saber se alguem sabe como faser um sistema de serial key tipo os programas oficiais, para que eu possa colocar em meus programas para que ele so funcionem por um determinado tempo para demostração tipo ele funciona por 5 dias e trava so destrava com o numero de serie e a cada 30 dias ele trava de novo e o cliente tem que pegar um novo codigo para destravalo.
USUARIO.EXCLUIDOS 04/03/2005 12:43:13
#71119
Dê uma olhada no links abaixo:
ACTIVELOCK 1.7
ACTIVELOCK 1.8.4
CAPITAO.GARCIA 07/03/2005 14:13:16
#71562
Aki no site tem um exemplo de senha aleatória
ARCE 07/03/2005 16:11:41
#71579
Segue o exemplo!

Citação:

Option Explicit
Const str = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Private Sub Form_Click()
Dim i As Integer
Dim Max As Integer
Max = 6
Text1.Text = ""
For i = 1 To Max
Text1.Text = Text1.Text + Mid(str, (Rnd() * Len(str)), 1)
Next

End Sub



espero que possa te ajudar!
Tópico encerrado , respostas não são mais permitidas
Voltar