Verificar serial de HD

[L&F Informatica]

Gostaria de saber se tem algum comando dentro do Clipper ou alguma rotina onde eu consiga verificar o serial do HD atraves do meu sistema.

Quem puder me ajudar, desde já agradeço.

Fernando Borges.

[sygecom]

Se vc esta falando de pegar o NUMERO DE SÉRIE DO HD, isso não tem como via CLIPPER, agora se quer o VOLUME DO HD, isso tem como mas é facilmente burlado. Abaixo um exemplo de NUMERO DE SERIE DE HD.É só pegar o HD na mão e conferir.
http://www.sygecom.com.br/serial.zip

Se achar algo em CLIPPER que faça isso e feche com o exemplo do LINK, poste como.

[Maligno]

Via Clipper pouco pode ser feito. Quase sempre é necessário usar uma biblioteca externa.

O volume de série do HD, gravado em fábrica, pode ser obtido pela lib WAPI. Tenho também um objeto para obter o volume de formatação. Para ler e escrever um novo número. Mas a gravação só funciona em kernel não-NT.

Link para a WAPI: clique aqui
Link para a função de volume de formatação: clique aqui (leia o fonte para conhecer os detalhes)

[sygecom]

Já tinha visto esse, mas realmente não é o mesma coisa, faça o teste com o que coloquei no link, se pegar o mesmo numero pelo CLIPPER ai acredito, caso contrario é algo em HEXADECIMAL.

[Maligno]

Esse programa produz a mesma saída do utilitário WAPI.EXE, que é base da biblioteca. Não tem nada de hexa. É o número de série de fato. A única diferença é que, além do número de série, o WAPI também fornece o modêlo e o número do firmware. Teste.

Função da biblioteca WAPI que retorna o número de série: GetHDInfo()[2].

[Maligno]

Em tempo: é bom lembrar que esse recurso de leitura do número de série do HD depende da tecnologia S.M.A.R.T., que não existe nem nos HDs mais antigos, nem nas versões 95/98/Me do Windows.

[Manuel Luis Modernel]

Bom dia Meninos !!

Eu para evitar copias e usuarios não autorizados tinha uma rotina (summer 87- 1994) para identificar o HD que resolvia minhas necessidades, até mesmo formatando o mesmo disco o meu programa não instalava nem funcionava mais. Alem disso estipulava data de parada "Expira em" e 2 senhas uma exclussivamente minha e fixa no codigo e outra opcional do usuário com chances de troca via programa.

Tal qual os colegas falaram era atravez do "Nº de formatação do Volume do HD" onde atraves do Save Screen copiava num banco de dados uma curta cadeia de caracteres desta mensagen escrita na tela (escondida) e depois comparava cada vez que o programa iniciava.

O DBF eu renomeava com outra extensão no caso abaixo M4SJ.ntx para disfarçar e ele continuava a funcionar como DBF.

Alem disso eu não "apagava" arquivos EXE ou DBF , eu (gravava) copiava esse curtissimo banco de dados por cima dos tais, evitando qualquer tipo de recuperação e evitando tambem ter que autorizar ou confirmar o comando "Delete".

Lá vai parte do código para vossa critica:

Código: Selecionar todos

um abraço e bom fim de semana à todos

*PROGRAMA SEGURO
*PROGRAMA DE SEGURANCA DO SISTEMA - 1 SO MICRO, 1 SENHA, 1 DATA
*AUTOR LUIS MODERNEL

public conf,FIRMA,ende,bair,reg,fon,cid,est,ult
conf='S'
!cls
!VOL                                      && aqui pegava o Volume do HD

save screen to lulu                  && aqui salavava a tela
clear
SELE C
   USe M4SJ.NTX
   append blank
   replace indices    with substr(LULU,3742,20)     

                      && Aqui pegava uma String curta da mensagem da tela

   GO TOP
   CTELA  =indices
   isenha =senha
   FIRMA  =FIRMAS
   ende   =endereco
   bair   =bairro
   reg    =registro
   fon    =telefone
   cid    =cidade
   est    =estado
   ult    =ultimo
   go bottom
   ctela2=indices
   if ctela<>ctela2
      copy file M4SJ.NTX to saojo.exe

&& aqui eu "Inutilizava" o EXE no caso SAOJO.EXE

      SET COLOR TO R/BG
      @ 10,06 say 'ISTO ERA UMA COPIA NAO AUTORIZADA POR ISTO FOI APAGADA !!!'
      @ 10,07 say '*************************************************************'
*&& AQUI AINDA TIRAVA ONDA DA CARA DO SAFADO !!


      @ 10,12 say '(017) 281-3561  -  Engenheiro Modernel - e COMPRE a sua NUMA BOA !!!'
      TONE(500,18)
      quit
   endif
*********
   data=date()
   clear
   set color to n/g
   if data>ctod('30/07/97')   &&**** Mes, dia,ano ******
      @ 15,07 SAY ' AGUARDE UNS INSTANTES POR FAVOR PROCESSANDO OS ARQUIVOS !!!'

      copy file M4SJ.NTX to SAOJO.exe

      @ 15,07 SAY '                                                            '
      @ 15,10 say 'CHAME A ASSISTENCIA T

[Maligno]

Comentários a pedido do colega Modernel:

Que funciona, funciona. Quer dizer, não testei. Mas pode funcionar perfeitamente. O único defeito é a técnica em si, que envolve um número que pode ser burlado em versões mais antigas do Windows. Desde que o sujeito que queira fraudar saiba que é o volume de formatação do HD a "chave" da proteção, evidentemente.

Esse tipo de proteção, em minha opinião, nem deveria ser mais utilizado. Explico. O usuário tem o direito de formatar o HD dele a hora em que bem entender. Mas isso vai gerar um custo de reinstalação. A formatação, por si só, já é um incômodo. Ter de pagar pra reinstalar é algo que vai incomodar mais ainda. Se for feito gratuitamente, o prejuízo só troca de lado.

Por isso eu prefiro a reinstalação da proteção via Internet. Já que hoje em dia o acesso à Net é bastante comum, é muito mais prático criar um artifício de controle de proteção através de um site próprio, cujo custo é ínfimo. E não só o controle de proteção, mas também vários tipos de controles de uso, inclusive o que envolve a locação de software.

Não sei se a intenção do OP é de proteger seu programa, mas como eu disse, atendo a pedido de comentário do colega Modernel. De qualquer forma, é uma dica que deixo aos colegas que queiram implementar algo do tipo.

[Manuel Luis Modernel]

Obrigado Maligno,

Tudo o que mostrei foi feito em 93/94 quando ainda "não tinha" ou não era muito "comun ter internet", nem lembro ao certo.
Realmente o onus da reinstalação era meu, e eu na epoca fazia estas coisas mais para poder estudar e testar coisas diferentes naquela versão do Clipper e tudo era de forma autodidata.

[Maligno]

Com certeza. Naquela época esta ferramenta tinha seu valor. Hoje em dia, com mais recursos, é possível fazer coisa melhor. Ainda assim, é como eu disse: se o cidadão não sabe o que é feito para proteger, não será tão fácil desproteger.