delphi 网卡MAC地址随机生成函数

用法：

//RandomMacAdressGenerator(':');

//RandomMacAdressGenerator('-');

//RandomMacAdressGenerator('.');

function RandomMacAdressGenerator(Separator: String): String;

var Symbol: PChar;

MAC: String;

I: Integer;

begin

Randomize;

Symbol := '0123456789ABCDEF';

if Separator = '' then

begin

for I := 0 to 11 do

MAC := MAC + Symbol[Random(16)];

end

else if (Separator = '-') Or (Separator = ':') then

begin

for I := 0 to 11 do

begin

if (I > 0) And (I mod 2 = 0) then

begin

MAC := MAC + Separator + Symbol[Random(16)];

end

else

MAC := MAC + Symbol[Random(16)];

end;

end

else if Separator = '.' then

for I := 0 to 11 do

begin

if (I > 0) And (I mod 4 = 0) then //www.delphitop.com

begin

MAC := MAC + Separator + Symbol[Random(16)];

end

else

MAC := MAC + Symbol[Random(16)];

end;

Result := MAC;

end;

推荐分享