Gerador de Serial

[igadino 0]

Estou fazendo um sisteminha e preciso gerar serial para ativar o sistema e somente o serial gerado por este código sera aceito no sistema.

tem como validar os seriais gerado por este código

 

Dim n As Integer

Dim Keygen(26) As Long

Dim Newkey, Finalkey As String

Randomize

For n = 1 To 26

Keygen(n) = Int(Rnd * 26) + 1

Keygen(n) = Keygen(n) + 64

Newkey = Chr$(Keygen(n))

Finalkey = Finalkey + Newkey

Next

Texto3 = Left(Finalkey, 5)

Texto4 = Mid(Finalkey, 6, 5)

Texto5 = Mid(Finalkey, 11, 5)

Texto6 = Mid(Finalkey, 17, 5)

Texto7 = Mid(Finalkey, 19, 5)

Texto8 = Mid(Finalkey, 21, 5)

[KhaosDoctor 242]

Cara, a lógica para gerar o serial é basicamente você pegar uma série de números que tem sentido, como por exemplo a data de expiração da licença e etc, e criptografar em uma sequencia de letras que não é identificável. O único programa que teria como descriptografar seria o seu, então eu recomendo você criar a sua própria lógica, usando algoritmos de criptografia como AES ou base64, ou até os dois juntos.