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数据库实现从最后一条记录向上查询至首记录

Delphi 选择一张照片，让照片缩略图显示在图片控件中间

android实例-拍摄和分享照片、分享文本(xe8+小米2)

Delphi 控制音量 静音的类

Delphi 批量删除同类文件的函数

Delphi memo 文本列合并

Delphi 根据进程id获取程序ico图标

Delphi idhttp post 支持 gzip 解压缩

incyear：将一个tdatetime变量加减一定数量的年数

Delphi xe10对json的解析应用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 网卡MAC地址随机生成函数