Olá companheiros.

Preciso de ajuda para proteger meu programa contra pirataria , especialmente contra clonagem de hd, pois a rotina para pegar seria do hd não funciona quando se clona, pois o numero tb é clonado.

Alguma dica para pegar serial da bios, ou placa de rede...

Obrigado desde já.

mandei um exemplo de coom proteger pegando o numero MAC da placa de rede , espero que ajude irmao

Irmão,

Obrigado pela ajuda, mas deu um probleminha.

Te respondi o e-mail

Um abraço.

o numero daplaca só da  00 00 00 00 0 ? huahuaha parece que ate nem placa tem huahuah... vou ver no meu projeto e mando pra tu a resposta

Olha, mesmo utilizando códigos como serial de hd ou nº de placa e outros, é possível crackear seu software utilizando um método muito conhecido chamado "engenharia reversa". Seria interessante que vc procurasse na net tópicos relecionados a este assunto. Existem dois programas tornam o softare mais seguro, sabendo utilizar, você poderá ter até 99% de segurança. UPX e SCRAMBLLER são os nomes deles. Outra dica seria por exemplo, se vc utiliza o serial do HD é criptografá-lo e criar um sistema de ativação de software on-line se possível ou utilizar métodos randômicos de geração de ID na primeira utilização, assim não tem como um serialservir para 2 softwares! E lembre-se: Nunca utilize DLLS para efetuar a validação do bloqueio! Cuidado com o famoso "break-point"!

 

Espero ter ajudado um pouco

eu vi que tem exemplos que só funcionam no Window 2000, nao sei se esse que mandei noa funciona , nao sei qual seu sistema operacional esse aki é o unico jeito que eu conheço irmao

 

Option Explicit

Private Const NCBASTAT As Long = &H33
Private Const NCBNAMSZ As Long = 16
Private Const HEAP_ZERO_MEMORY As Long = &H8
Private Const HEAP_GENERATE_EXCEPTIONS As Long = &H4
Private Const NCBRESET As Long = &H32

Private Type NET_CONTROL_BLOCK
   ncb_command    As Byte
   ncb_retcode    As Byte
   ncb_lsn        As Byte
   ncb_num        As Byte
   ncb_buffer     As Long
   ncb_length     As Integer
   ncb_callname   As String * NCBNAMSZ
   ncb_name       As String * NCBNAMSZ
   ncb_rto        As Byte
   ncb_sto        As Byte
   ncb_post       As Long
   ncb_lana_num   As Byte
   ncb_cmd_cplt   As Byte
   ncb_reserve(9) As Byte
   ncb_event      As Long
End Type

Private Type ADAPTER_STATUS
   adapter_address(5) As Byte
   rev_major         As Byte
   reserved0         As Byte
   adapter_type      As Byte
   rev_minor         As Byte
   duration          As Integer
   frmr_recv         As Integer
   frmr_xmit         As Integer
   iframe_recv_err   As Integer
   xmit_aborts       As Integer
   xmit_success      As Long
   recv_success      As Long
   iframe_xmit_err   As Integer
   recv_buff_unavail As Integer
   t1_timeouts       As Integer
   ti_timeouts       As Integer
   Reserved1         As Long
   free_ncbs         As Integer
   max_cfg_ncbs      As Integer
   max_ncbs          As Integer
   xmit_buf_unavail  As Integer
   max_dgram_size    As Integer
   pending_sess      As Integer
   max_cfg_sess      As Integer
   max_sess          As Integer
   max_sess_pkt_size As Integer
   name_count        As Integer
End Type
   
Private Type NAME_BUFFER
   name        As String * NCBNAMSZ
   name_num    As Integer
   name_flags  As Integer
End Type

Private Type ASTAT
   adapt          As ADAPTER_STATUS
   NameBuff(30)   As NAME_BUFFER
End Type

Private Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Private Declare Function GetProcessHeap Lib "kernel32" () As Long
Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long

Private Function ObtemEndMAC() As String
On Error Resume Next
Dim tmp As String
Dim pASTAT As Long
Dim NCB As NET_CONTROL_BLOCK
Dim AST As ASTAT
NCB.ncb_command = NCBRESET
Call Netbios(NCB)
NCB.ncb_callname = "*               "
NCB.ncb_command = NCBASTAT
NCB.ncb_lana_num = 0
NCB.ncb_length = Len(AST)
pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS _
        Or HEAP_ZERO_MEMORY, NCB.ncb_length)
           
If pASTAT = 0 Then
    Exit Function
End If

NCB.ncb_buffer = pASTAT
Call Netbios(NCB)

CopyMemory AST, NCB.ncb_buffer, Len(AST)

tmp = Right$("00" & Hex(AST.adapt.adapter_address(0)), 2) & " " & _
        Right$("00" & Hex(AST.adapt.adapter_address(1)), 2) & " " & _
        Right$("00" & Hex(AST.adapt.adapter_address(2)), 2) & " " & _
        Right$("00" & Hex(AST.adapt.adapter_address(3)), 2) & " " & _
        Right$("00" & Hex(AST.adapt.adapter_address(4)), 2) & " " & _
        Right$("00" & Hex(AST.adapt.adapter_address(5)), 2)
               
HeapFree GetProcessHeap(), 0, pASTAT
ObtemEndMAC = tmp

End Function


Private Sub Form_Load()
'chama a função que
'MOSTRA o endreço
MsgBox "O endereço MAC da placa de rede deste micro é : " & vbCrLf & vbCrLf & ObtemEndMAC, vbInformation
End Sub