Página 1 de 1
Verificar serial de HD
Enviado: 27 Mar 2008 12:13
por 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.
Enviado: 27 Mar 2008 12:24
por 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.
Enviado: 27 Mar 2008 12:48
por 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)
Enviado: 27 Mar 2008 13:04
por 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.
Enviado: 27 Mar 2008 16:18
por 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].
Enviado: 27 Mar 2008 16:44
por 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.
Identificar o HD !!
Enviado: 29 Mar 2008 14:41
por 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
Enviado: 08 Abr 2008 18:39
por 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.
Enviado: 10 Abr 2008 23:41
por 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.
Enviado: 11 Abr 2008 05:07
por 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.