Averiguar MAC por una IP
 

Hola buenas tardes;

Estoy desarroyando un programa y para ello me pasaron un codigo delcuan estoy aprendiendo pero me ocurre una cosa y la verdad no lo entiendo por ello recurro a ustedes por si me pueden echar una mano, el codigo es el siguiente:

Código Delphi [-]
    uses winsock;
    type
    PULONG = ^ULONG;
    function SendARP(DestIP,SrcIP: in_addr; pMacAddr,PhyAddrLen: PULONG): DWORD;
    stdcall; external 'iphlpapi.dll' name 'SendARP';
    function ObtenerMAC(IP: String): String;
    var
    i: Integer;
    dwRetVal: DWORD;
    DestIp, SrcIp: in_addr;
    MacAddr: array[0..1] of ULONG;
    PhysAddrLen: ULONG;
    PhysAddr: PByte;
    begin
    DestIp.S_addr:= 0;
    SrcIp.S_addr:= 0;
    PhysAddrLen:= 6;
    DestIp.S_addr:= inet_addr(PChar(IP));
    dwRetVal:= SendARP(DestIp, SrcIp, @MacAddr, @PhysAddrLen);
    Result:= EmptyStr;
    if dwRetVal = NO_ERROR then
    begin
    PhysAddr:= PByte(@MacAddr);
    for i := 1 to Sizeof(MacAddr)-2 do
    begin
    if Result= EmptyStr then
    Result:= IntToHex(PhysAddr^,2)
    else
    Result:= Result + '-' + IntToHex(PhysAddr^,2);
    inc(PhysAddr);
    end;
    end;
    end;
    // Por ejemplo
    ShowMessage(ObtenerMAC('143.1.14.202'));

La linea 22 la modifique por -> DestIp.S_addr:= inet_addr(PAnsiChar(IP));
El caso es que si sustituyo inet_addr(PAnsiChar(IP)) por inet_addr(PAnsiChar('143.1.14.202')) al ejecutar el programa me da la MAC correcta, sin embargo si en su lugar lo
sustituyo por inet_addr(PAnsiChar(edit1.text)) ejecuto el programa, introduzco en el campo edit la misma ip pero al clicar en el botón que llama a la función el programa me muestra en blanco el campo MAC.

y es aquí don de me pierdo, necesito que el programa me permita introducir cualquier IP y que este me diga su MAC ¿que estoy haciendo mal?

gracias por adelantado

Veo que te has hecho un lio para poner el código, has de hacerlo así:



Gracias :)


He intentado arreglarlo un poco.

Casimiro Notevi
 

pues si, me liao un poco, gracias Casimiro

A ver si alguien puede echarte una mano :)

Bueno, copie el codigo e hice unas pruebas (Delphi XE2), aqui las conclusiones:

Sustituye "string" por "AnsiString", tanto en el parametro de entrada (IP) como en el de salida de la funcion

en la linea donde te marca el error sustituye PChar(IP) por @IP

y listo! fue todo lo que yo hice y funciono bien...

Gracias por responder luisgutierrezb hice lo que me comentabas y sigue el mismo problema, es mas como veras en el código incluyo el edit pero como si nada ni un error ni nada.
Es raro ya que siempre me muestra la mac local, es como si pasara de mi ya que al picar al botón lo único que debería hacer es asignar el resultado de la consulta a la función "ObtenerMAC", a la etiqueta label1.
En definitiva parece que no le guste el que en (IP) se le asigne algo indeterminado y prefiera un fijo ('143.1.14.202')

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, winsock,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  PULONG = ^ULONG;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SendARP(DestIP,SrcIP: in_addr; pMacAddr,PhyAddrLen: PULONG): DWORD;
  stdcall; external 'iphlpapi.dll' name 'SendARP';

function ObtenerMAC(IP: AnsiString): AnsiString;
var
  i: Integer;
  dwRetVal: DWORD;
  DestIp, SrcIp: in_addr;
  MacAddr: array[0..1] of ULONG;
  PhysAddrLen: ULONG;
  PhysAddr: PByte;
begin
    DestIp.S_addr:= 0;
    SrcIp.S_addr:= 0;
    PhysAddrLen:= 6;
    DestIp.S_addr:= inet_addr(@IP);

    dwRetVal:= SendARP(DestIp, SrcIp, @MacAddr, @PhysAddrLen);

    Result:= EmptyStr;
    if dwRetVal = NO_ERROR then
    begin
      PhysAddr:= PByte(@MacAddr);
      for i := 1 to Sizeof(MacAddr)-2 do
      begin
        if Result= EmptyStr then
          Result:= IntToHex(PhysAddr^,2)
        else
          Result:= Result + '-' + IntToHex(PhysAddr^,2);
        inc(PhysAddr);

      end;
    end;
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=ObtenerMAC(form1.Edit1.Text);
end;

end.

¿Y no será mejor que consultes al autor del código? :rolleyes:

Saludos.

Muchas gracias escafandra.

Ya podías haber dicho que el código es de nuestro querido amigo Seoane, un grande entre los grandes :)

Mea culpa
 

:( Mea culpa !!!

gracias a todos.

Espero que resuelvas pronto el problemita :)

Gracias a seoane ya pude hacer funcionar el codigo, hay partes que no controlo asi que me toca "romperlas" y estudiarlas, por cierto muestro el código en su totalidad ya funcionando:

Código Delphi [-]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, winsock, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Edit1: TEdit; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type PULONG = ^ULONG; var Form1: TForm1; implementation {$R *.dfm} function SendARP(DestIP,SrcIP: in_addr; pMacAddr,PhyAddrLen: PULONG): DWORD; stdcall; external 'iphlpapi.dll' name 'SendARP'; function ObtenerMAC(IP: Ansistring): Ansistring; var i: Integer; dwRetVal: DWORD; DestIp, SrcIp: in_addr; MacAddr: array[0..1] of ULONG; PhysAddrLen: ULONG; PhysAddr: PByte; begin DestIp.S_addr:= 0; SrcIp.S_addr:= 0; PhysAddrLen:= 6; DestIp.S_addr:= inet_addr(PAnsiChar(AnsiString(IP))); dwRetVal:= SendARP(DestIp, SrcIp, @MacAddr, @PhysAddrLen); Result:= EmptyStr; if dwRetVal = NO_ERROR then begin PhysAddr:= PByte(@MacAddr); for i := 1 to Sizeof(MacAddr)-2 do begin if Result= EmptyStr then Result:= IntToHex(PhysAddr^,2) else Result:= Result + '-' + IntToHex(PhysAddr^,2); inc(PhysAddr); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:=ObtenerMAC(edit1.Text); end; end.


Como veis le añadir un campo edit + 2 label y un botón,

gracias a todos.

Vaya, no se mostró bien a ver ahora

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, winsock,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  PULONG = ^ULONG;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SendARP(DestIP,SrcIP: in_addr; pMacAddr,PhyAddrLen: PULONG): DWORD;
  stdcall; external 'iphlpapi.dll' name 'SendARP';

function ObtenerMAC(IP: Ansistring): Ansistring;
var
  i: Integer;
  dwRetVal: DWORD;
  DestIp, SrcIp: in_addr;
  MacAddr: array[0..1] of ULONG;
  PhysAddrLen: ULONG;
  PhysAddr: PByte;
begin
    DestIp.S_addr:= 0;
    SrcIp.S_addr:= 0;
    PhysAddrLen:= 6;
    DestIp.S_addr:= inet_addr(PAnsiChar(AnsiString(IP)));

    dwRetVal:= SendARP(DestIp, SrcIp, @MacAddr, @PhysAddrLen);

    Result:= EmptyStr;
    if dwRetVal = NO_ERROR then
    begin
      PhysAddr:= PByte(@MacAddr);
      for i := 1 to Sizeof(MacAddr)-2 do
      begin
        if Result= EmptyStr then
          Result:= IntToHex(PhysAddr^,2)
        else
          Result:= Result + '-' + IntToHex(PhysAddr^,2);
        inc(PhysAddr);

      end;
    end;
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin

label1.Caption:=ObtenerMAC(edit1.Text);
end;

end.