TROUVER L'ADRESSE MAC D'UNE CARTE RÉSEAU
cs_Logan
Messages postés
99
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
9 juin 2008
-
16 sept. 2003 à 20:34
Utilisateur anonyme - 7 déc. 2011 à 18:45
Utilisateur anonyme - 7 déc. 2011 à 18:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8536-trouver-l-adresse-mac-d-une-carte-reseau
https://codes-sources.commentcamarche.net/source/8536-trouver-l-adresse-mac-d-une-carte-reseau
7 déc. 2011 à 18:45
Bouv perds pas ton temps:
Participations de 78zerocool
Sur tous les sites
0 source , 0 tutoriel CS, 0 tutoriel TS, 0 snippet
0 message (forum)
Et il dit que tu n'as rien fait !!!
JJDai
6 déc. 2011 à 23:09
Si tu avais lu la description, je précise que cette source n'est pas de moi. Et si je n'ai pas cité l'auteur, c'est parce qu'au moment du dépôt j'avais perdu son nom.
"c est innotable ta rien fait" : oui c'est précisé dans la description, je me contente de proposer un code qui n'était pas disponible sur CS en précisant qu'il n'est pas de moi.
Bref, commences par proposer toi même des codes et j'accepterai ensuite tes critiques.
A bon entendeur...
PS : révises ton Français, il est juste illisible.
6 déc. 2011 à 16:36
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
16 mai 2011 à 14:27
J’ai besoin d’un source de programme en c++, vb ou autres pour réinitialiser l’adresse mac car comme vous le savez on peut changer ce numéro très facilement et dans ce cas là le soft peut être pirater.
Il existe l’open source MASHIFT mais il faut que la carte réseau soit nommée Wireless ce qui n’est pas évident, j’ai essayé de changer le source avec Dev c++ et Eclipse mais basta.
Mon Eamil : meghassel_fethi@yahoo.fr
Merci de m’aider.
4 août 2007 à 00:53
31 oct. 2006 à 20:28
8 avril 2005 à 20:03
'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
24 janv. 2005 à 17:54
Bonne prog
++
24 janv. 2005 à 11:01
15 oct. 2004 à 12:01
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)
J'ai une adresse correcte sur mon poste NT et XP.
Encore merci.
15 oct. 2004 à 11:35
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.
7 oct. 2004 à 19:51
Bonne prog
++
6 oct. 2004 à 18:12
Alors soyons humble, à toute idée émise, il y a probablement preneur.
30 sept. 2004 à 21:13
je vois 3 méthodes pour pour gestion d'io de la console dos:
1.1)la plus nulle : un petit shell et sendkey (merci mais ca plante trop facilement)
1.2)surement possibilite avec APi
1.3)Console Application un petit main et hop classe console et maintenant on gere ce qu'on veut ex: Console.Write .... ( merci visualstudio.NET)
2)MACADRESS
2.1)autrement on peut avoir l'adresse mac avec adsi (wim)(si mininum reseau 2000 ad, je crois)
2.2) api Public Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte
2.3) scan de la base de registre à distance....
Je ne depose pas de code pour eviter de faire redondance avec des sources existants
(certains devraient se regarder) ou de mettre du code piqué à un autre ou que je trouve mon code trop null.
AUTREMENT merci à ceux qui déposent du code car par moment leurs codes sont des bons canevas pour d'autres projets,
et par moment un tres grand gain de temps comment nous le fait rappeler une certaine maxime "Pourquoi réinventer la roue..."
Mais de toute façon je vais des remarques pour que ce soit contrustif et non thanatos
Alors ouvrer votre esprit .....
30 sept. 2004 à 18:12
A plus!
27 sept. 2004 à 20:04
De plus, je l'ai précisé, le code n'étais pas présent sur le site et j'ai galéré pour le trouvé, donc je me suis dis que d'autres pouvait en avoir besoins et je l'ai posté c'est tout. Enfin c'est sans rancune, c'est juste que je voulais un peu répondre a tout ces commentaires négatifs. Désolé si tu as pris pour les autres !
Racattac13>>"TU" penses que le logiciel ne sert à rien, c'est ton point de vue et je le respect, mais dans ce cas je prefere que tu dise "Je pense que ton code ne sert à rien" plutot que de l'affirmer.
Encore une fois, si tu veux recuperer une adresse MAC sous VB6, il y a pas 36 solutions : ce bout de code ou les WMI (mieux d'ailleurs). Mais des COMMANDES MSDOS désolé non !
Je connais un TRES GRAND editeur de logiciel pour expert comptable qui te délivre un numero de serie en fonction de ton adresse MAC. Ce qui permet de controler le nombre de licences. Chacun son avis sur ce type de protection.
Enfin ce bout de code peut avoir d'autres applications. Chacun en fait ce qu'il veut.
Enfin bon chacun voit midi a sa porte
Bonne prog
++
27 sept. 2004 à 13:41
, 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à.)
25 sept. 2004 à 13:26
On m'a moi meme allumer pour certain source surtout la brute force pour touver un passe administrateur (que nix a d'ailleur effacé)
Et j'ai regarder tes autres sources que je trouve interessante mais voila celui la est nul point .<-- le voila
25 sept. 2004 à 13:18
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
24 sept. 2004 à 22:24
comment faire une message box
Msgbox "Mon Message"
ce ne serait pas l'un d'entre vous par hasard ?
24 sept. 2004 à 22:22
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 !!!!!!!!!
24 sept. 2004 à 22:13
Par ex Egalon >> tu dis
TROUVER L'ADRESSE MAC D'UNE CARTE RÉSEAU
Ce serait plutot:
rentrer une IP bidon et récupérer sa propre adresse mac.
regarde un peu la source et on en reparle.
Tu n'a aucune adresse IP a rentrer. Il te sort simplement toutes les adresses MAC qu'il trouve sur le poste !!!
Quant a l'intéret de la source, je pense que chacun d'entre nous aura un point de vue différent.
Si vous voulez déposez un commentaire constructif allez-y sinon passez votre chemin, votre avis on s'en fou un peu.
sur ce
++
21 août 2004 à 12:57
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
9 août 2004 à 09:01
Je te répond un peu vite, et je suis pas vraiment certain de ce que je vais te raconter...
Sur un réseau local LAN, Ethetnet ne travaille pas avec l'ip des machines mais avec leur @Mac. Donc je pense que tu peux récupérer çà sans trop de diffultés. Le principe de résolution de correspondance entre IP et MAC s'appelle l'ARP et RARP, et c'est transparent.
Par contre sur la toile s'est différent tout tourne avec des IP, Il faudra donc que de manière programmée tu attaque un PC distant avec une requete ARP. Le HIC s'est que je sais pas si les routeur sur le WEB transmettent ces requetes.
Je peux pas vraiment t'en dire plus. Tu trouveras facilement de la doc sur Google en tapant ARP et RARP
Tschüss.
(PS: pour ceux qui n'habitent pas près de la frontière: Tschüss = Salut en Allemand)
7 août 2004 à 12:14
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
18 juin 2004 à 15:26
Le titre de cette source est faux:
TROUVER L'ADRESSE MAC D'UNE CARTE RÉSEAU
Ce serait plutot:
rentrer une IP bidon et récupérer sa propre adresse mac.
Salut.
4 déc. 2003 à 20:52
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
@+
26 nov. 2003 à 16:25
@+
25 sept. 2003 à 21:43
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 !
23 sept. 2003 à 14:42
23 sept. 2003 à 14:22
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
22 sept. 2003 à 21:44
1°- Il n'y a pas de raison apparante pour qu'un mec change de carte réseau, mais si c'est le cas je peux lui recompiler pour fonctionner avec sa nouvelle carte.
2°- S'il n'en a pas il peut en acheter une (8 Euros seulement) !!!
3°- Non, je ne pense pas que l'on puisse recuperer une adresse MAC d'un périphérique distant (à voir !!!), mais cela obligerai l'utilisateur à être connecté (plus contraignant).
A+
22 sept. 2003 à 12:00
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 ;)
17 sept. 2003 à 13:47
1°- Si par exemple tu développe un soft à des fin commerciales (uniquement des petites quantités) tu compil un soft par client (et donc par adresse MAC) et tu protege ton soft... Mieux que toutes les protection de copie CD-ROM, la carte réseau constitue la licence, plus de serial number.
2°- Si, tu peux faire un ipconfig mais tu récupère plein d'info et il faut les trier. La tu obtient juste l'adresse MAC.
D'autres question ?
17 sept. 2003 à 09:49
ton prog est valable que sur la machine où il tourne !!!
16 sept. 2003 à 20:34