Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Elemental Code en 27 Diciembre 2010, 02:07 am


Título: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: Elemental Code en 27 Diciembre 2010, 02:07 am
Tal cual lo leen.
la PEOR manera de obtener la MAC Address  :-[

Pero segun tengo entendido esta anda si o si  :-\

y lo hice yo  ;D

Código
  1. Option Explicit
  2. Function GetMyMAC() As String
  3.     Dim tmp As String
  4.     Shell "cmd.exe /c getmac >> " & Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt", vbHide
  5.     Open Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt" For Binary As #1
  6.     tmp = Space(LOF(1))
  7.     Get #1, , tmp
  8.     Close #1
  9.     GetMyMAC = tmp
  10.     Kill Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt"
  11. End Function
  12.  

SI, me gusta usar batch y que?

Editado para que raulito se ponga contento

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: raul338 en 27 Diciembre 2010, 02:32 am
en lugar de usar C:\ podrias ser mas "dinamico" y preguntar por la unidad del sistema o una direccion temporal :P

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: Karcrack en 27 Diciembre 2010, 14:16 pm
Si, la peor :)

Feliz navidad :D

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: Psyke1 en 27 Diciembre 2010, 16:46 pm
Cita de: Karcrack en 27 Diciembre 2010, 14:16 pm
Si, la peor :)

Feliz navidad :D
:xD
Cita de: Elemental Code en 27 Diciembre 2010, 02:07 am
SI, me gusta usar batch y que?
La experiencia que tuve usando vb6 + batch no fue buena, me saltaba el avast con casi cada cosa que intentaba hacer... :-\
Prueba con Apis...  :silbar:

DoEvents! :P

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: Elemental Code en 27 Diciembre 2010, 22:00 pm
para obtener las mac adress no hay soluciones magicas.

la que vas a encontrar por todos lados usa netbios y a mi lo unico que hace es crashearme vb

PD: Batch FTW!

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: Karcrack en 27 Diciembre 2010, 22:25 pm
Que no hay soluciones magicas? :rolleyes: :rolleyes: :rolleyes:
Código:
'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
   a        As Currency
   b        As Integer
   c(5)     As Byte
End Type

Public Function GetMacAddr() As String
    Dim tUUID   As UUID
    
    Call UuidCreateSequential(tUUID)
    GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                 "-" & Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
End Function

Estamos en epocas de creer en la magiaa!! Feliz Navidad :D

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: WHK en 27 Diciembre 2010, 22:58 pm
Cita de: Karcrack en 27 Diciembre 2010, 22:25 pm
Que no hay soluciones magicas? :rolleyes: :rolleyes: :rolleyes:
Código:
'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
   a        As Currency
   b        As Integer
   c(5)     As Byte
End Type

Public Function GetMacAddr() As String
    Dim tUUID   As UUID
    
    Call UuidCreateSequential(tUUID)
    GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                 Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
End Function

Estamos en epocas de creer en la magiaa!! Feliz Navidad :D

bueno, al hombre le gusta usar batch xD

Código:
'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
   a        As Currency
   b        As Integer
   c(5)     As Byte
End Type

Public Function GetMacAddr() As String
    Dim tUUID   As UUID
    shell "echo Obteniendo mac ..."
    Call UuidCreateSequential(tUUID)
    GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                 Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
    shell "pause&&exit"
End Function

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: Elemental Code en 27 Diciembre 2010, 23:35 pm
falta un guion entre el 2 y 3

Ademas... por alguna razon que me evade me tira otra mac que no es la mia. :P

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: Karcrack en 27 Diciembre 2010, 23:54 pm
Cita de: Elemental Code en 27 Diciembre 2010, 23:35 pm
falta un guion entre el 2 y 3
Arreglado

Cita de: Elemental Code en 27 Diciembre 2010, 23:35 pm
por alguna razon que me evade me tira otra mac que no es la mia. :P
Código:
ipconfig /ALL
Debe darte la MAC addr de alguna de las conexiones de red, a mi me da la del Wireless, que es la que estoy usando, pero tengo otras 3 anteriores....

Título: Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
Publicado por: ssccaann43 © en 28 Diciembre 2010, 15:41 pm
Jajajajaja... Karcrack, como dice Cobein: sos un capo..!


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines