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 deletedirectory 删除目录下所有文件包括子文件夹下所有文件

Delphi xe 10 跨平台三层数据库应用教程

Delphi android 安卓系统 关闭打开(显示隐藏)输入法

Delphi 临时文件路径（支持安卓、ios）

Delphi 读取全网站链接

Delphi用sendmessage获取目录下所有文件

Delphi webbrowser getelementbyid().innerhtml与getelementbyid().value的区别

Delphi memo 滚动条 自动滚到最后一行

Delphi 选择目录对话框（selectdirectory 函数）

Delphi 如何产生输出一个变形的图形及文字

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

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