Re: [delphi-br] Controlar Licença
Você tem que definir se seus usuários vão ser
"usuários" ou hackers.
Esse sistema de licença funciona para usuarios normais
que não se interessarão em fraudar. Para casos mais
complexas recomendo o uso de algum componente
comercial com essa função.
Marcos A. C. Jordão ''
--- [EMAIL PROTECTED] escreveu:
-
Aí é que está o problema. Neste Sistema em nenhum caso
a Data Atual é importante.
- Original Message -
From: Gabriel Ferrarini
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 4:59 PM
Subject: Re: [delphi-br] Controlar Licença
Creio que se isso acontecer o sistema será, em
partes, inútil para o cliente pois grande parte dos
processamentos e geração de relatórios se baseia em
datas, principalmente Contas a Pagar e Contas a
Receber.
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
Re: [delphi-br] Controlar Licença
Aí é que está o problema. Neste Sistema em nenhum caso a Data Atual é
importante.
- Original Message -
From: Gabriel Ferrarini
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 4:59 PM
Subject: Re: [delphi-br] Controlar Licença
Creio que se isso acontecer o sistema será, em partes, inútil para o cliente
pois grande parte dos processamentos e geração de relatórios se baseia em
datas, principalmente Contas a Pagar e Contas a Receber.
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.. Par
Re: [delphi-br] Controlar Licença
Link para a pagina do componente
http://www.wakproductions.com/regware/
News byKohl wrote:
>
>
>Não consegui achar, tem o link ou poderia enviar em pvt ?
>
>Luiz Kohl
>www.byKohl.com
>MSN: [EMAIL PROTECTED]
>Skype: byKohl
>Celular: 27-8115-5692
>Vitória - ES - Brazil
>
>
>-Mensagem original-
>De: Oswaldo dos Santos Araujo [mailto:[EMAIL PROTECTED]
>Enviada em: terça-feira, 15 de março de 2005 17:40
>Para: Gabriel Ferrarini; delphi-br@yahoogrupos.com.br
>Assunto: Re: [delphi-br] Controlar Licença
>
>
>Ola
>
>Existe um componente free TregwareII que pode ser usado por vcs...Eu peguei
>no Torry há algum tempo...
>
>Atenciosamente
>
>Oswaldo dos Santos Araujo
>http://www.santosaraujo.com.br
>mailto:[EMAIL PROTECTED]
>
>On 15 Mar 2005 at 16:59, Gabriel Ferrarini wrote:
>
>
>
>>Creio que se isso acontecer o sistema será, em partes, inútil para o
>>cliente pois grande parte dos processamentos e geração de relatórios
>>se baseia em datas, principalmente Contas a Pagar e Contas a Receber.
>>
>>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.158805
>>1/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
[delphi-br] Controlar Licença
Não consegui achar, tem o link ou poderia enviar em pvt ?
Luiz Kohl
www.byKohl.com
MSN: [EMAIL PROTECTED]
Skype: byKohl
Celular: 27-8115-5692
Vitória - ES - Brazil
-Mensagem original-
De: Oswaldo dos Santos Araujo [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 15 de março de 2005 17:40
Para: Gabriel Ferrarini; delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Controlar Licença
Ola
Existe um componente free TregwareII que pode ser usado por vcs...Eu peguei
no Torry há algum tempo...
Atenciosamente
Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]
On 15 Mar 2005 at 16:59, Gabriel Ferrarini wrote:
>
> Creio que se isso acontecer o sistema será, em partes, inútil para o
> cliente pois grande parte dos processamentos e geração de relatórios
> se baseia em datas, principalmente Contas a Pagar e Contas a Receber.
>
> 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.158805
> 1/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.c
RES: [delphi-br] Controlar Licença
/*
Eu fiz um exemplo simples de controle de licença, onde utilizo
criptografia de datas p/ dificultar o acesso.
1. Primeiramente eu gravo a data inicial e final das licenças
criptografadas no banco de dados
2. E daí eu verifico se ele expirou a data.. expirando de alguma forma
eu gravo uma data criptografada lá que não existe '29/02/1991' mas
lembrando.. que eu gravo até no código fonte já criptografado.. pois
alguém pode abrir o fonte algum dia.. heheheh
3. E quando expira eu utilizo um usuário LIBERAR e uma senha gerada em
tempo real para liberar uma nova data.
Ex.: HORADATASEMANA;DATAMESANO[DE LIBERACAO] isso criptografado
ESTA FORMA DE CONTROLE É SIMPLES PODE SER QUEBRADO facilmente!
*/
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, DateUtils;
type
TForm1 = class(TForm)
function myAbs(i: integer): Integer;
function crypt(str:string):string;
function decrypt(str:string):string;
procedure TravaSistemaChaveInvalida(d:string);
private
{ Private declarations }
public
{ Public declarations }
end;
const chave = 'ABCDEFGHIJLMNOPQR123456789{}##^&&[EMAIL PROTECTED]&><,;*4521021';
var
Form1: TForm1;
//Função Simples para Criptografar String
function TForm1.crypt(str: string): string;
var
crypted : string;
i,iC : integer;
begin
crypted:='';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic<0) then iC := i;
crypted := crypted + Chr( myAbs(Ord(str[i]) + Ord(chave[iC])));
end;
Result:=crypted;
end;
// Função Simples para Descriptografar String
function TForm1.decrypt(str: string): string;
var
decrypted: string;
i,iC : integer;
begin
decrypted := '';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic<0) then iC := i;
decrypted := decrypted + chr(myabs(ord(str[i]) - ord(chave[iC])));
end;
Result := decrypted;
end;
function TForm1.myAbs(i: integer): Integer;
begin
if (i > 255) then Result := i - 255
else Result := i;
end;
// Acertando a Data
procedure AcertaPadraoData;
const
arrShortDayNames: array[1..7] of string[3] =
('Dom','Seg','Ter','Qua', 'Qui','Sex','Sab');
arrLongDayNames: array[1..7] of string[15] =
('Domingo','Segunda','Terça', 'Quarta','Quinta','Sexta', 'Sábado');
arrShortMonthNames: array[1..12] of string[3] =
('Jan','Fev','Mar','Abr',
'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');
arrLongMonthNames: array[1..12] of string[15] =
('Janeiro','Fevereiro', 'Março','Abril','Maio',
'Junho','Julho','Agosto', 'Setembro','Outubro',
'Novembro','Dezembro');
var
ii: integer;
begin
ShortDateFormat := 'dd/mm/';
DecimalSeparator := '.';
ThousandSeparator := ',';
for ii := 1 to 7 do begin
ShortDayNames[ii] := arrShortDayNames[ii];
LongDayNames[ii] := arrLongDayNames[ii];
end;
for ii := 1 to 12 do begin
ShortMonthNames[ii] := arrShortMonthNames[ii];
LongMonthNames[ii] := arrLongMonthNames[ii];
end;
LongTimeFormat:= 'HH:mm:ss';
TimeSeparator:=':';
end;
//Exemplo simples de controle de datas
procedure TForm1.FormCreate(Sender: TObject);
var
ext : string;
begin
AcertaPadraoData;
ext :=
IntToStr(DayOfTheMonth(Now))+'/'+IntToStr(MonthOfTheYear(Now))+'/'+IntToStr(YearOf(Now));
try
if (StrToDate(ext) <
StrToDate(decrypt(MyTable1CHAVEINI.AsString))) then begin
TravaSistemaChaveInvalida('29/02/1991');
end;
if (StrToDate(ext) >
StrToDate(decrypt(MyTable1CHAVEEND.AsString))) then begin
TravaSistemaChaveInvalida('29/02/1991');
end;
except
TravaSistemaChaveInvalida('29/02/1991');
end;
end;
procedure TForm1.TravaSistemaChaveInvalida(d:string);
begin
MyTable1.Edit;
MyTable1CHAVEINI.AsString := crypt(d);
MyTable1CHAVEEND.AsString := crypt(d);
MyTable1.Post;
MyTable1.ApplyUpdates;
MyTable1.CommitUpdates;
MyTable1.Connection.Commit;
ShowMessage('Erro ao entrar no sistema, verifique a data de sua licença !');
try
Application.Terminate;
except
end;
end;
--
< 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
Re: [delphi-br] Controlar Licença
Ola
Existe um componente free TregwareII que pode ser usado por vcs...Eu
peguei no Torry há algum tempo...
Atenciosamente
Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]
On 15 Mar 2005 at 16:59, Gabriel Ferrarini wrote:
>
> Creio que se isso acontecer o sistema será, em partes, inútil para o
> cliente pois grande parte dos processamentos e geração de relatórios
> se baseia em datas, principalmente Contas a Pagar e Contas a Receber.
>
> 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.158805
> 1/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
Re: [delphi-br] Controlar Licença
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
Re: [delphi-br] Controlar Licença
Creio que se isso acontecer o sistema será, em partes, inútil para o cliente
pois grande parte dos processamentos e geração de relatórios se baseia em
datas, principalmente Contas a Pagar e Contas a Receber.
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.
Vers
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]
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
Re: [delphi-br] Controlar Licença
Muito Obrigado. Conseguir implementar...
- 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
RES: [delphi-br] Controlar Licença
/*
Eu fiz um exemplo simples de controle de licença, onde utilizo criptografia
de datas p/ dificultar o acesso.
1. Primeiramente eu gravo a data inicial e final das licenças criptografadas
no banco de dados
2. E daí eu verifico se ele expirou a data.. expirando de alguma forma eu
gravo uma data criptografada lá que não existe '29/02/1991 mas lembrando..
que eu gravo até no código fonte já criptografado.. pois alguém pode abrir o
fonte algum dia.. heheheh
3. E quando expira eu utilizo um usuário LIBERAR e uma senha gerada em tempo
real para liberar uma nova data.
Ex.: HORADATASEMANA;DATAMESANO[DE LIBERACAO] isso criptografado
ESTA FORMA DE CONTROLE É SIMPLES PODE SER QUEBRADO facilmente!
*/
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, DateUtils;
type
TForm1 = class(TForm)
function myAbs(i: integer): Integer;
function crypt(str:string):string;
function decrypt(str:string):string;
procedure TravaSistemaChaveInvalida(d:string);
private
{ Private declarations }
public
{ Public declarations }
end;
const chave = 'ABCDEFGHIJLMNOPQR123456789{}##^&&[EMAIL PROTECTED]&><,;*4521021;
var
Form1: TForm1;
//Função Simples para Criptografar String
function TForm1.crypt(str: string): string;
var
crypted : string;
i,iC : integer;
begin
crypted:='';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic<0) then iC := i;
crypted := crypted + Chr( myAbs(Ord(str[i]) + Ord(chave[iC])));
end;
Result:=crypted;
end;
// Função Simples para Descriptografar String
function TForm1.decrypt(str: string): string;
var
decrypted: string;
i,iC : integer;
begin
decrypted := '';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic<0) then iC := i;
decrypted := decrypted + chr(myabs(ord(str[i]) - ord(chave[iC])));
end;
Result := decrypted;
end;
function TForm1.myAbs(i: integer): Integer;
begin
if (i > 255) then Result := i - 255
else Result := i;
end;
// Acertando a Data
procedure AcertaPadraoData;
const
arrShortDayNames: array[1..7] of string[3] = ('Dom','Seg','Ter','Qua',
'Qui','Sex','Sab');
arrLongDayNames: array[1..7] of string[15] = ('Domingo','Segunda','Terça',
'Quarta','Quinta','Sexta', 'Sábado');
arrShortMonthNames: array[1..12] of string[3] = ('Jan','Fev','Mar','Abr',
'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');
arrLongMonthNames: array[1..12] of string[15] = ('Janeiro','Fevereiro',
'Março','Abril','Maio', 'Junho','Julho','Agosto', 'Setembro','Outubro',
'Novembro','Dezembro');
var
ii: integer;
begin
ShortDateFormat := 'dd/mm/';
DecimalSeparator := '.';
ThousandSeparator := ',';
for ii := 1 to 7 do begin
ShortDayNames[ii] := arrShortDayNames[ii];
LongDayNames[ii] := arrLongDayNames[ii];
end;
for ii := 1 to 12 do begin
ShortMonthNames[ii] := arrShortMonthNames[ii];
LongMonthNames[ii] := arrLongMonthNames[ii];
end;
LongTimeFormat:= 'HH:mm:ss';
TimeSeparator:=':';
end;
//Exemplo simples de controle de datas
procedure TForm1.FormCreate(Sender: TObject);
var
ext : string;
begin
AcertaPadraoData;
ext :=
IntToStr(DayOfTheMonth(Now))+'/'+IntToStr(MonthOfTheYear(Now))+'/'+IntToStr(
YearOf(Now));
try
if (StrToDate(ext) < StrToDate(decrypt(MyTable1CHAVEINI.AsString))) then
begin
TravaSistemaChaveInvalida('29/02/1991');
end;
if (StrToDate(ext) > StrToDate(decrypt(MyTable1CHAVEEND.AsString))) then
begin
TravaSistemaChaveInvalida('29/02/1991');
end;
except
TravaSistemaChaveInvalida('29/02/1991');
end;
end;
procedure TForm1.TravaSistemaChaveInvalida(d:string);
begin
MyTable1.Edit;
MyTable1CHAVEINI.AsString := crypt(d);
MyTable1CHAVEEND.AsString := crypt(d);
MyTable1.Post;
MyTable1.ApplyUpdates;
MyTable1.CommitUpdates;
MyTable1.Connection.Commit;
ShowMessage('Erro ao entrar no sistema, verifique a data de sua licença
!');
try
Application.Terminate;
except
end;
end;
_
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 15 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Controlar Licença
Não estou conseguindo encontrar...
-----
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]
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
Re: [delphi-br] Controlar Licença
Não estou conseguindo encontrar... - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 15, 2005 12:12 PM Subject: RES: [delphi-br] Controlar Licença Se bem me lembro, no site da revista ClubeDelphi deve ter um exemplo de licenciamento de aplicação. Bem simples, mas muito bom! Agora, só procurando lá, pq eu num lembro do endereço! []s -Mensagem original- De: easywaysistemas [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 15 de março de 2005 10:02 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Controlar Licença 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] Links do Yahoo! Grupos -- 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 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- <<<<< 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
RES: [delphi-br] Controlar Licença
Se bem me lembro, no site da revista ClubeDelphi deve ter um exemplo de licenciamento de aplicação. Bem simples, mas muito bom! Agora, só procurando lá, pq eu num lembro do endereço! []s -Mensagem original- De: easywaysistemas [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 15 de março de 2005 10:02 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Controlar Licença 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] Links do Yahoo! Grupos -- 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 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- <<<<< 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
[delphi-br] Controlar Licença
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] 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
