Obtendo o MAC Address para gerar um Hardware Key em Delphi

Há certas situações em que é interessante ter um número único para identificar uma estação de trabalho. Por exemplo, a instalação de um software pode ter a política de licença de uso baseado nessa identificação da estação. O SAP Business One usa um esquema assim para gerar um código e associá-lo ao servidor de licenças da aplicação. Para conseguir o arquivo com as licenças adquiridas, é preciso informar no site da SAP esse código gerado. Caso se informe um código errado, as licenças simplesmente não são liberadas e o software não funciona.

Vou mostrar aqui um método para gerar um código Hardware Key baseado no MAC Address, isto é, na informação da placa de rede instalada na máquina. Essa é uma boa abordagem pois é teoricamente garantido que não haverão duas placas de rede com o mesmo MAC Address, mesmo que sejam de fabricantes diferentes. A ideia é capturar o endereço - que é uma informação binária - e gerar uma representação textual (string) dele. Para obter o endereço, vou usar uma função da API do Windows chamada GetAdaptersInfo. Ela aceita 2 parâmetros: um ponteiro para a estrutura IP_ADAPTER_INFO e o outro o tamanho da estrutura alocada:

function GetAdaptersInfo(pAdapterInfo: PIP_ADAPTER_INFO; var pOutBufLen: ULONG): DWORD;stdcall;

Parece que essa função não está mapeada no Delphi mas localizei no site do projeto JEDI fonte com o mapeamento das funções da biblioteca Iphlpapi.dll do Windows - incluindo a GetAdaptersInfo e as estruturas necessárias. Também tenho cópia desses fontes, caso não encontrem lá.

Esta é uma daquelas funções malucas do Windows que é preciso chamar 2 vezes: a primeira para obter a quantidade de memória a ser alocada e a segunda para efetivamente recuperar os dados desejados.

dwBufLen := 0;
AdapterInfo := Nil;
GetAdaptersInfo(PIP_ADAPTER_INFO (AdapterInfo), dwBufLen);
if (dwBufLen > 0) then begin
GetMem (AdapterInfo, dwBufLen);
dwStatus := GetAdaptersInfo(PIP_ADAPTER_INFO (AdapterInfo), dwBufLen);
...

O endereço que precisamos é um array de bytes, declarado como segue:

type TWMacId = array [0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of BYTE;

Listo abaixo o código para a função que recupera o MAC Address. Neste exemplo, estou recuperando apenas a primeira placa de rede encontrada; se houverem outras, o algorítmo simplesmente as ignora:

function GetMACaddress : TWMacId;
var i : integer;
AdapterInfo : Pointer;
pAdapterInfo : PIP_ADAPTER_INFO;
dwBufLen, dwStatus : LongWord;
begin
dwBufLen := 0;
AdapterInfo := Nil;{ Inicialmente, limpa o retorno }
for i := 0 to MAX_ADAPTER_ADDRESS_LENGTH - 1 do
Result [i] := 0;
GetAdaptersInfo(PIP_ADAPTER_INFO (AdapterInfo), dwBufLen);
if (dwBufLen > 0) then begin
GetMem (AdapterInfo, dwBufLen);
dwStatus := GetAdaptersInfo(PIP_ADAPTER_INFO (AdapterInfo), dwBufLen);
if (dwStatus = ERROR_SUCCESS) then begin
pAdapterInfo := PIP_ADAPTER_INFO (AdapterInfo);

{ Copia o endereço p/ nossa variável de retorno }
for i := 0 to MAX_ADAPTER_ADDRESS_LENGTH - 1 do
Result[i] := pAdapterInfo.Address[i];
FreeMem (AdapterInfo);
end;
end;
end;

Agora, falta formatar esse resultado como um texto. Vou transformar os bytes retornados usando a representação hexadecimal de cada um deles, numa ordem aleatória. Isto é, peguei aleatoriamente os bytes de número 4, 2, 1, 5 e 3. Segue a função completa:

function GetHardwareKey : String;
var id : TWMacId;
begin
id := getMacAddress;
Result := Format ( '%.2X', [id [4]]) +
Format ( '%.2X', [id [2]]) +
Format ( '%.2X', [id [1]]) +
Format ( '%.2X', [id [5]]) +
Format ( '%.2X', [id [3]]);
end;

Se achar que usar somente o MAC Address não é suficiente para gerar um código seguro para sua aplicação, use essa informação como base e mescle-a com outros dados do computador. Por exemplo, inclua dados da CPU, do sistema operacional, etc.

Mais Informações
Endereço MAC, JEDI Project.