Rodrigo,
Obrigado
William
-----Mensagem original-----
De: Rodrigo ®¿® <[EMAIL PROTECTED]>
Enviada em: 11/10/2004 12:33:18
Para: <[EMAIL PROTECTED]>
Assunto: Re: [delphi-br] Pirataria
Vejam se funciona e se ajuda .....
-- Como Retornar Várias informações Sobre a BIOS
Esta função retorna várias informações sobre a BIOS, no formato String que
você poderá facilmente jogar para um memo usando o seguinte:
Memo1.Lines.Text := GetBiosInfoAsText;
O Memo apresentará todas as informações que a
função retirou sobre a BIOS.
Texto:
function GetBiosInfoAsText: string;
var
p, q: pchar;
begin
q := nil;
p := PChar(Ptr($FE000));
repeat
if q <> nil then begin
if not (p^ in [#10, #13, ' '..'~' , '©' , '¸' ]) then begin
if (p^ = #0) and (p - q >= 8) then begin
Result := Result + TrimRight(String(q)) + #13#10;
end;
q := nil;
end;
end else
if p^ in ['!'..'~' , '©' , '¸' ] then
q := p;
inc(p);
until p > PChar(Ptr($FFFFF));
Result := TrimRight(Result);
end;
Sds
®¿® rodrigo®--Rodrigo B Marcondes--Curitiba - PR--
------
O maior problema de sistemas assim é que se o "cara" usa um Norton Ghost ele
leva seu sistema com proteção, senha, número de série do HD e tudo...
Há como pegar o nº de série da BIOS, mas de cabeça eu não lembro o
endereço...
[s]
=====================
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=====================
Esse eu discordo, peguei um sistema na net com trava o cara usa um arquivo
"dll" na realidade txt com extensão dll e guardava uma informação nele e no
registro. descobri como quebrar a proteção em 15 minutos (obs. não uso o
sistema peguei-o apenas para testar a proteção). Faça o seguinte use o
número do hd e o número do registro para gerar um código. Você cria um
sistema para gerar um contracódigo assim:
* o algorítimo com os dois números gera o nº "1234"
* o contra código gera um número que seu sistema vai reconhecer Assim vc
impede que o sistema seja transportado.
Para isso é preciso que o usuário ligue ou durante o processo de
instalação o instalador que deve ser da empresa resolva a questão.
Não é 100% mas para quebra-lo, precisa ser pelo menos programador,
entender o algoritmo que dificulta se a pessoa não tem acesso ao código e o
contra código. eu usei quatro dígitos mas é recomendável usar 8 ou mais com
letra números e símbolos.
eu ainda criei outra forma de proteção usando conversão dentro do sistema
de hexadecimal para decimal para caractere só pra confundir o código se
lido em caso de tecnologia reversa. Ainda não é 100% mas :-).
Abraços,
Fabiano
William,
Procure gravar informações do hardware de forma codificada, no
registro do
windows e em arquivos. Assim, se o sistema ao ser executado não
encontrar
essas informações ou não forem iguais ao hardware que o sistema está
executando, trave o sistema.
Já circulou na lista como pegar o serial do HD por exemplo.
UUJMMIM.
Amigos,
Alguém saberia me dizer o que eu posso fazer para travar o meu
sistema contra pirataria ?
William
--
<<<<< 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
[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
