Mas existe um problema.
Supondo que o vencimento da licença seja em 31/03/2005 e se o usuário sempre 
mantiver a data do sistema em 30/03/2005 não vai bloquear...

----- Original Message ----- 
  From: Marcos Jordao 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 1:35 PM
  Subject: Re: [delphi-br] Controlar Licença


  Amigo, eu controlo da seguinte maneira:
  Tenho uma tabela no banco onde armazeno: Ultimo Uso,
  Codigo de Uso e Serial do HD.

  Esse Código de Uso é gerado por um algoritmo que eu
  criei que gera um número serial onde está contido uma
  data. Tipo assim... eu informo uma data aí ele vai
  realizando operações matemáticas e concatenação com
  strings nos números da data. Com o processo inverso eu
  obtenho uma data de tal serial.

  Antes do primeiro uso eu crio um serial e com um
  sisteminha de Registro coloco na tabela, junto com o
  serial do HD e a primeira data de uso.

  Na abertura do sistema, antes de tudo eu verifico o
  serial do HD (função que você obtém fácil em sites),
  se for diferente do gravado quer dizer que o sistema
  está sendo rodado em máquina onde não foi licenciado.
  No caso de trabalho em rede você deve ter controle de
  várias linhas na tabela, uma com cada Serial de HD.

  Se o Serial do HD confere, eu gravo na tabela a data
  do sistema e comparo com a obtida através do serial
  também armazenado na tabela, se for maior o sistema
  fica travado e como a data atual já está armazenada no
  Ultimo Uso, mesmo que o usuário volte a data do
  sistema o sistema continua travado.

  Deu pra entender?

  Qualquer coisa é só escrever

  Abraços

  Marcos Antonio Campos Jordão


  --- easywaysistemas <[EMAIL PROTECTED]>
  wrote:
  ---------------------------------

  Alguém tem algum exemplo ou algo qualquer referente a
  controle de 
  licença de 
  um sistema? Estou desenvolvendo um sistema que
  funcionara por 
  assinatura 
  mensal, mas ainda não sei como controlar isto? 





  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
  MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
  [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por:              
          
                             function SearchComboBox() {
  if (document.form_combo.keyword.value.length==0){ 
  alert("Por favor, digite algo.");  return false; }else
  {  document.form_combo.action
  
="http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
  } return true;}                                       
    [input]                                             
        [input]                [input]                  
                          

  ---------------------------------
  Links do Yahoo! Grupos

     Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

     Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

     O uso que você faz do Yahoo! Grupos está sujeito
  aos Termos do Serviço do Yahoo!.


        
        
              
  Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/


  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



        Yahoo! Grupos, um serviço oferecido por: 
             
             
                      
             
       


------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
      
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
      
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 




------------------------------------------------------------------------------


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a