TROUVER L'ADRESSE MAC D'UNE CARTE RÉSEAU

Commentaire de malkolinge le 17/09/2003 09:49:47

tu ne peux pas faire ipconfig /all pour avoir ton adresse MAC ?
ton prog est valable que sur la machine où il tourne !!!

Commentaire de apxa le 22/09/2003 12:00:14

salut,
Comment fais tu si le gars n'a pas de carte réseau ?
Car tout les soft ne requirent pas la necessité d'une carte réseau.
De même si le gars change de carte réseau.
M'enfin je pensait que ton code récupérait la mac address d'un périphérique distant...
mais bon c'est pas grave.
have fun ;)

Commentaire de arrod le 23/09/2003 14:22:15

Je ne regarde pas le soft car c'est très null !!
dans la base de registre on peut mettre une adresse mac administrative (donc je regarde sur un poste ou ton prog est installé son adresse mac et je la colle sur mon pc) de plus on peut installer un emulateur de carte réseau !!!)
Pour avoir l'adresse mac d'une machine distante voir la cmd nbtstat (voir plus)
Bye bye

Commentaire de bouv le 25/09/2003 21:43:14

Arrod et MalKolinge, c'est pas la peine de vous arreter pour faire des commentaires de ce genre, assez votre chemin. J'ai préciser que la méthode n'est pas imparable pour un utilisateur assez doué.
Cette technique reste quand même une bone protection dans 99% des cas, et elle a également une vocation "EDUCATIVE".
Par ailleurs si on colle la même adresse mac sur plusieurs PC, vous n'êtes pas sans savoir qu'ils ne se reconnaitront plus sur le même réseau !

Commentaire de mbibim le 04/12/2003 20:52:07

salut

est ce quelqu'un sait si je pourrais trouver un logiciel qui emulerait une carte réseau avec une adresse MAC donnée ...


merci d'avance
@+

Commentaire de hamzus le 07/08/2004 12:14:56

bein salut les gars
jaimerai bien savoir comment trouver l'adress mac du destinataire dans nimporte kel tchat(voila,msn)
bein si vous aurer la gentillesse de mexpliker clairement la facon,et puis si il y a un otr moyen d'en connaitre sans utuliser le VB(pa de progrmme c a dire).
merci de m'aider
a bientot

Commentaire de racattac13 le 21/08/2004 12:57:18

c'est nul
pour avoir son adr mac tapez sous dos
ipconfig/all

-pour afficher les adresse mac du reseau
arp -a

pour spoofer son adresse mac (permet dans un reseau local une attaque du type "man in the middle") il faut créé une adresse mac statique

arp -s mon_ip adr_mac_de_l'autre

Commentaire de bouv le 24/09/2004 22:22:24

au fait quand j'entend des treuc du genre

c'est nul
pour avoir son adr mac tapez sous dos
ipconfig/all

je suis mort de rire. Je rappel que l'on programme sous VB, alors expliquez moi ce qu'une requette DOS vient faire ici ?

Comment va-tu récupérer l'information (de façon fiable) dans ton programme ?

enfin bon, je vois bcp de commentaires de pers qui n'ont meme jamais rien posé ici

Arod, 1 seul mess (selui la) et aucune source.
malkolinge idem
et alors egalon LOL
3 sources :
Conversion d'un string en date sous un format donné (http://www.vbfrance.com/code.aspx?id=25314)
Comptage d'éléments dans un mshflexgrid (http://www.vbfrance.com/code.aspx?id=25217)
Calcul du décalage heure été /hiver en fonction d'une date (http://www.vbfrance.com/code.aspx?id=24735)

Je sais que les miennes ne sont pas toutes au top, mais avant de laisser des messages comme ça regardez un peu  vos sources SVP !

Non mais la je suis vraiment MORT DE RIRE !!!!!!!!!

Commentaire de racattac13 le 25/09/2004 13:18:26

Que fait une requette DOS ici?
si l'on veut jouer sur les mots deja c'est une commande.

Et je met ca pour bien dire que le programme ne sert a rien et que l'on peut trouver plein de commande existante rendant ce service
Et en avance en informatique quand on se repete pas!

Pour hamzus meme si les autre font des mystere a croire que ces des commandes de piratages (pffff, n'importe quoi)

essaye ca sous dos:
nbtstat -A ip_ordi_distant

Au fait tient la liste de commande interessante sous dos tu les tapes sans rien et tu aura le menu des options

ipconfig
ipconfig\all
tracert
net send
net view
netstat
nbtstat
arp
route

voila amuse toi bien

Commentaire de Egalon le 27/09/2004 13:41:09

bouv
, je m'excuse. J'avais pas compris le but du programme à la base.
Je pensais que le programme demandait une IP et renvoyait la mac correspondante de n'importe qu'elle carte se trouvant sur le réseau.
Maintenant je comprends mieux.
Je crois donc que le programme remplit parfaitement sa fonction.
Sois plus précis  dans la description de ton prog.

(Pis pour tes critiques un peu méchantes à mon égard, je te répondrait seulement: "Moi, j'écris les sources que je publie" et on restera là.)

Commentaire de racattac13 le 30/09/2004 18:12:01

Désolé pour "l'affirmation" , bon pour tout dire c'est pas nul mais pour moi meme c'est inutile, et en effet les WMI mieux car plus court, 3 ligne suffisent et pas besoin de compilateur  .
A plus!

Commentaire de JJDai le 06/10/2004 18:12:11

Pour repondre à la première observation, non c'est pas con, il m'est arrivé d'avoir à la demande d'un client à installer une appli qui ne tourne que sur ses postes pour ne pas se faire pirater ses fichiers clients et son appli par ses employés (Qu'il sétait fait pirater du reste quelques semaines auparavant  par un employé qui a tenter monter sa propre boite).
Alors soyons humble, à toute idée émise, il y a probablement preneur.

Commentaire de FootMan51 le 15/10/2004 11:35:27

Pour les mêmes raisons de JJDai, je ne trouve pas ça con du tout.
D'ailleurs j'utilise ce numéro (ou d'autre si il n'y a pas de carte réseau) pour protéger des logiciels depuis au moins 6 ans. A l'origine j'utilise un getAddressMAC() en C, puis il a fallu protéger des logiciels écrit en VB et pour éviter de trimballer une lib, il a fallu ecrire un getAddressMAC() en VB (même algo qu'en C). Mais je viens de m'appercevoir que sur NT4 , je ne recupère plus le numéro de l'adresse MAC (probleme avec Netbios, à voir de plus prêt) en C et en VB, par contre ça fonctionne sur XP, c'est pour ça que je passe sur ce forum.
Pour info, ton programme ne me retoune pas correctement mon adresse MAC. Un exemple concret, "1A" devient "00".
Merci de donner des infos comme celle-ci qui ne servent à rien pour certains, mais pas tout le monde, comme à moi et JJDai par exemple.
Bye.

Commentaire de Philippe PUECH le 24/01/2005 11:01:49

Merci pour le code...mais il me renvoie systématiquement 00 00 00 00 00 00 malgré le correctif donné par FootMan51 et NCB.ncb_lana_num variable (0 à 5). Une idée ? J'ai l'impression que quand on a plusieurs cartes (Wifi, LAN, etc...), ce n'est pas pris en compte.

Commentaire de bliebb le 08/04/2005 20:03:28

'Bill Production:
'Exemple Simple qui démontre comment trouver le Mac Adresse pour un REMOTE IP via ARP REQUEST
'Donc parfait pour trouver le MAC d'une adresse IP autre que votre PC !
'Pour le MAC de votre PC utiliser la méthode: IPHlpApi  IpAdapterInfo


Option Explicit
Private Const NO_ERROR = 0

Private Declare Function inet_addr Lib "wsock32.dll" _
  (ByVal s As String) As Long

Private Declare Function SendARP Lib "iphlpapi.dll" _
  (ByVal DestIP As Long, _
   ByVal SrcIP As Long, _
   pMacAddr As Long, _
   PhyAddrLen As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (dst As Any, _
   src As Any, _
   ByVal bcount As Long)
  


Private Sub Form_Load()''
   Text1.Text = "10.1.200.22" 'Adresse IP (LOCAL OU A DISTANCE !)
   Text2.Text = ""
   Command1.Caption = "Donne moi le MAC pour ce IP"
End Sub


Private Sub Command1_Click()
   Dim sRemoteMacAddress As String

   If Len(Text1.Text) > 0 Then
      If GetRemoteMACAddress(Text1.Text, sRemoteMacAddress, "-") Then
         Text2.Text = sRemoteMacAddress
      Else
         Text2.Text = "(SendARP call ERREUR)"
      End If
   End If
End Sub


Public Function GetRemoteMACAddress(ByVal sRemoteIP As String, _
                                     sRemoteMacAddress As String, _
                                     sDelimiter As String) As Boolean

   Dim dwRemoteIP As Long
   Dim pMacAddr As Long
   Dim bpMacAddr() As Byte
   Dim PhyAddrLen As Long
    
   dwRemoteIP = ConvertIPtoLong(sRemoteIP)
   If dwRemoteIP <> 0 Then
      PhyAddrLen = 6
     GetRemoteMACAddress = False
    
     'Retrouver le Mac pour L'adresse IP ...
      If SendARP(dwRemoteIP, 0&, pMacAddr, PhyAddrLen) = NO_ERROR Then
      
         If (pMacAddr <> 0) And (PhyAddrLen <> 0) Then
      
            ReDim bpMacAddr(0 To PhyAddrLen - 1)
            CopyMemory bpMacAddr(0), pMacAddr, ByVal PhyAddrLen
            
            sRemoteMacAddress = MakeMacAddress(bpMacAddr(), sDelimiter)
            GetRemoteMACAddress = True
            
         End If 'pMacAddr

      End If  'SendARP
      
   End If  'dwRemoteIP
      
End Function


Private Function ConvertIPtoLong(sIpAddress) As Long

   ConvertIPtoLong = inet_addr(sIpAddress)

End Function


Private Function MakeMacAddress(b() As Byte, sDelim As String) As String

   Dim cnt As Long
   Dim buff As String
  
   On Local Error GoTo MakeMac_error

  'so far, MAC addresses are
  'exactly 6 segments in size (0-5)
   If UBound(b) = 5 Then
  
     'concatenate the first five values
     'together and separate with the
     'delimiter char
      For cnt = 0 To 4
         buff = buff & Right$("00" & Hex(b(cnt)), 2) & sDelim
      Next
      
     'and append the last value
      buff = buff & Right$("00" & Hex(b(5)), 2)
        
   End If  'UBound(b)
  
   MakeMacAddress = buff
  
MakeMac_exit:
   Exit Function
  
MakeMac_error:
   MakeMacAddress = "(error building MAC address)"
   Resume MakeMac_exit
  
End Function

Commentaire de lahoucine0 le 04/08/2007 00:53:01

comment récupérer l'adresse mac sans que la carte réseau soit activé

Commentaire de 78zerocool le 06/12/2011 16:36:40

tres belle copie de vbdevlopez OMG taurai pu dire que ta modifier des com ! et taurai pu metre le nom de l auteur ...
de plus c est innotable ta rien fait !

Comment obtenir l'adresse MAC de la carte réseau ?
[haut]
auteur : Alexandre Lokchine
Une adresse MAC est un identifiant stocké dans une interface réseau. Copiez le code ci-dessous dans un module standard. La fonction GetMACAddress() vous renvoie l'adresse MAC.
vb


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
    'definition du 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
    'definition du type pour definir le statut de l'adaptateur réseau
    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" (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

Public Function GetMACAddress() As String

    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)
    'allocation de la memoire dans le tas du processus
    pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or _
                       HEAP_ZERO_MEMORY, NCB.ncb_length)
            
    If pASTAT = 0 Then
        Debug.Print "pas assez de mémoire!" 'bon, y a peu de chance que ca arrive :o)
        Exit Function
    End If
    
    NCB.ncb_buffer = pASTAT
    'appel de la fonction netbios qui va nous donner les stats de la carte
    '(dont l'adresse MAC)
    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)
    'désallocation de la mémoire...
    HeapFree GetProcessHeap(), 0, pASTAT
    
    GetMACAddress = tmp

End Function