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
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)
Última edição por igadino em 26/8/2015, 02:12, editado 1 vez(es)