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;

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

相关推荐

评论