Outra opção é buscar a data do observatório nacional, no caso de o computador possuir internet.
Gabriel. ----- Original Message ----- From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 15, 2005 4:35 PM Subject: Re: [delphi-br] Controlar Licença 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] 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!. [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