易语言CoCreateGuid随机生成GUID源码

CoCreateGuid是ole32里的一个函数,用来返回一个系统自动生成的32位字符串.GUID全局唯一标识符(GUID,Globally Unique Identifier)是一种由算法生成的二进制长度为128位的数字标识符。GUID 的格式为“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”,其中每个 x 是 0-9 或 a-f 范围内的一个十六进制数。例如:6F9619FF-8B86-D011-B42D-00C04FC964FF 即为有效的 GUID 值。

CoCreateGuid

.版本 2
 
.DLL命令 CoCreateGuid, , "ole32", "CoCreateGuid"
    .参数 guid, 字节集

生成新的GUID

.版本 2
 
.子程序 生成新的GUID, 文本型
.局部变量 guid, 字节集
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 e, 整数型
.局部变量 f, 整数型
.局部变量 s, 文本型
 
guid = 取空白字节集 (16)
CoCreateGuid (guid)
a = 取字节集数据 (取字节集左边 (guid, 4), #整数型, )
b = 取字节集数据 (取字节集中间 (guid, 5, 2), #整数型, )
c = 取字节集数据 (取字节集中间 (guid, 7, 2), #整数型, )
d = 取字节集数据 (取字节集中间 (guid, 9, 2), #整数型, )
e = 取字节集数据 (取字节集中间 (guid, 11, 2), #整数型, )
f = 取字节集数据 (取字节集右边 (guid, 4), #整数型, )
s = “”
s = s + 取十六进制文本 (a) + “-”
s = s + 取十六进制文本 (b) + “-”
s = s + 到小写 (取十六进制文本 (c)) + “-”
s = s + 取十六进制文本 (d) + “-”
s = s + 取十六进制文本 (e)
s = s + 取十六进制文本 (f)
返回 (“{” + s + “}”)

开始运行被调试程序
* “{23679677-F8C5-45fc-3BE-C7C2773FD869}”

分享到:

用微信扫一扫,分享给朋友


发布日期:

所属分类: 编程 标签: