elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]  (Leído 5,044 veces)
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« 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
« Última modificación: 27 Diciembre 2010, 03:21 am por Elemental Code » En línea
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #1 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
En línea
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #2 en: 27 Diciembre 2010, 14:16 pm »
Si, la peor :)

Feliz navidad :D
En línea
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #3 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
En línea
http://foro.h-sec.org/
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #4 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!
En línea
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #5 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
« Última modificación: 27 Diciembre 2010, 23:52 pm por Karcrack » En línea
WHK
Moderador Global
***
Desconectado Desconectado

Mensajes: 6.605


Sin conocimiento no hay espíritu


Ver Perfil WWW
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #6 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
En línea
- https://yhojann.cl/ - https://whk.cl/
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #7 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
En línea
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #8 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....
En línea
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]
« Respuesta #9 en: 28 Diciembre 2010, 15:41 pm »
Jajajajaja... Karcrack, como dice Cobein: sos un capo..!
En línea
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Pendrive TDK posiblemente falso
Hardware 		FJDA 6 5,676 Último mensaje 29 Septiembre 2020, 20:39 pm
por B€T€B€
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines