3 replies to this topic

[escafandra]

Si necesitamos enviar un "mensajito" a todos los PCs de una red de golpe, tendremos que conocer la dirección Broadcast. Este truco va encaminado a encontrar esa dirección IP por código de forma automatizada.

En este truco he dejado otra función interesante, GetCurrentIP, que nos informa de la IP de la máquina local actual.
 

delphi

uses
  Windows, WinSock...;
 
type
TMIB_IPADDRROW = packed record
  dwAddr: DWORD;
  dwIndex: DWORD;
  dwMask: DWORD;
  dwBCastAddr: DWORD;
  dwReasmSize: DWORD;
  unused1: SmallInt;
  wType: SmallInt;
end;
 
TMIB_IPADDRTABLE = record
  dwNumEntries: DWORD;
  table: array[0..0] of TMIB_IPADDRROW;
end;
PMIB_IPADDRTABLE = ^TMIB_IPADDRTABLE;
 
function GetIpAddrTable(IpAddrTable: PMIB_IPADDRTABLE; pdwSize: PULONG;
  Order: BOOL): DWORD; stdcall; external 'iphlpapi.dll' name 'GetIpAddrTable';
 
implementation
 
function GetCurrentIP: DWORD;
var
  Wsa: WSADATA;
  Name: array[0..255] of char;
  hostinfo: PHOSTENT;
begin
  Result:= 0;
  FillChar(Wsa, SizeOf(WSAData), 0);
  if WSAStartup(MAKEWORD(2, 2), Wsa) = 0 then
  begin
    if gethostname(Name, SizeOf(Name)) = 0 then
    begin
      hostinfo:= gethostbyname(Name);
      if hostinfo <> nil then
        Result:= PDWORD(hostinfo^.h_addr_list^)^;
    WSACleanup;
    end;
  end;
end; 
 
function GetBrodcastAddress: String;
var
  pIPAddrTable: PMIB_IPADDRTABLE;
  dwSize: DWORD;
  i: integer;
  BroadCastInAddr: IN_ADDR;
begin
  BroadCastInAddr.S_addr:= 0;
  dwSize:= 0;
  GetIpAddrTable(nil, @dwSize, true);
  GetMem(pIPAddrTable, dwSize);
  if pIPAddrTable<>nil then
  begin
    if GetIpAddrTable(pIPAddrTable, @dwSize, true) = NO_ERROR then
      for i:=0 to  pIPAddrTable^.dwNumEntries-1 do
      begin
        if GetCurrentIP = pIPAddrTable^.table[i].dwAddr then
        begin
          BroadCastInAddr.S_addr:= pIPAddrTable^.table[i].dwAddr or not pIPAddrTable^.table[i].dwMask;
          break;
        end;
      end;
    FreeMem(pIPAddrTable);
  end;
  Result:= inet_ntoa(BroadCastInAddr);
end;

Espero que el truco sea de utilidad y le deis un uso correcto sin maldades.


Saludos.

[egostar]

Espero que el truco sea de utilidad y le deis un uso correcto sin maldades.

Estás viendo que el niño es risueño y le haces cosquillas

Interesante hilo, ya veremos que hacer con el código

Saludos

[poliburro]

Gracias por el truco amigo mio. Esto va pal face

[escafandra]

No podía dejar terminar el hilo sin poner el equivalente de este truco en C
 

cpp

#include <windows.h>
#include <winsock2.h>
#include <iphlpapi.h>
 
#pragma comment(lib, "iphlpapi.lib")
 
String GetBroadcastAddressString()
{
  IN_ADDR BroadCastInAddr;
  PMIB_IPADDRTABLE pIPAddrTable;
  DWORD dwSize = 0;
  WSADATA Wsa;
  PHOSTENT hostinfo;
  DWORD CurrentIP = 0;
  char Name[MAX_PATH];
 
  BroadCastInAddr.S_un.S_addr = 0;
 
  if(WSAStartup(MAKEWORD(2,2),&Wsa) == 0){
    if(gethostname(Name, MAX_PATH) == 0){
      if((hostinfo = gethostbyname(Name)) != NULL)
        CurrentIP = *(DWORD*)*hostinfo->h_addr_list;
    }
    WSACleanup( );
  }
  GetIpAddrTable(0, &dwSize, 0);
  pIPAddrTable = (MIB_IPADDRTABLE*)malloc(dwSize);
  if(pIPAddrTable){
    if(GetIpAddrTable(pIPAddrTable, &dwSize, 0) == NO_ERROR){
      for(int i=0; i < (int)pIPAddrTable->dwNumEntries; i++){
        if(CurrentIP == pIPAddrTable->table[i].dwAddr)
          BroadCastInAddr.S_un.S_addr = pIPAddrTable->table[i].dwAddr | ~pIPAddrTable->table[i].dwMask;
      }
    }
    free(pIPAddrTable);
  }
  return inet_ntoa(BroadCastInAddr);
}

Saludos.