zoukankan      html  css  js  c++  java
  • vb的GUID生成算法

    源代码推荐:vb的GUID生成算法

    'RETURNS:  GUID if successful; blank string otherwise. 
    '
    Unlike the GUIDS in the registry, this function returns GUID 
    '
    without "-" characters.  See comments for how to modify if you 
    '
    want the dash. 

    Public Function GUID() As String 
        
    Dim lRetVal As Long 
        
    Dim udtGuid As GUID 
         
        
    Dim sPartOne As String 
        
    Dim sPartTwo As String 
        
    Dim sPartThree As String 
        
    Dim sPartFour As String 
        
    Dim iDataLen As Integer 
        
    Dim iStrLen As Integer 
        
    Dim iCtr As Integer 
        
    Dim sAns As String 
        
        
    On Error GoTo errorhandler 
        sAns 
    = "" 
         
        lRetVal 
    = CoCreateGuid(udtGuid) 
         
        
    If lRetVal = 0 Then 
         
           
    'First 8 chars 
            sPartOne = Hex$(udtGuid.PartOne) 
            iStrLen 
    = Len(sPartOne) 
            iDataLen 
    = Len(udtGuid.PartOne) 
            sPartOne 
    = String((iDataLen * 2- iStrLen, "0") _ 
            
    & Trim$(sPartOne) 
             
            
    'Next 4 Chars 
            sPartTwo = Hex$(udtGuid.PartTwo) 
            iStrLen 
    = Len(sPartTwo) 
            iDataLen 
    = Len(udtGuid.PartTwo) 
            sPartTwo 
    = String((iDataLen * 2- iStrLen, "0") _ 
            
    & Trim$(sPartTwo) 
                
            
    'Next 4 Chars 
            sPartThree = Hex$(udtGuid.PartThree) 
            iStrLen 
    = Len(sPartThree) 
            iDataLen 
    = Len(udtGuid.PartThree) 
            sPartThree 
    = String((iDataLen * 2- iStrLen, "0") _ 
            
    & Trim$(sPartThree)   'Next 2 bytes (4 hex digits) 
                
            
    'Final 16 chars 
            For iCtr = 0 To 7 
                sPartFour 
    = sPartFour & _ 
                Format$(
    Hex$(udtGuid.PartFour(iCtr)), "00"
            
    Next 

         
    'To create GUID with "-", change line below to: 
         'sAns = sPartOne & "-" & sPartTwo & "-" & sPartThree _ 
         '& "-" & sPartFour 
            
           sAns 
    = sPartOne & sPartTwo & sPartThree & sPartFour 
                 
            
    End If 
             
            GUID 
    = sAns 
    Exit Function 


    errorhandler: 
    'return a blank string if there's an error 
    Exit Function 
    End Function 
  • 相关阅读:
    HttpWebRequest 改为 HttpClient 踩坑记-请求头设置
    [k8s]docker calico网络&docker cluster-store
    [k8s]jenkins部署在k8s集群
    [k8s]zookeeper集群在k8s的搭建(statefulset模式)-pod的调度
    [svc]cisco ipsec使用证书认证
    [svc]数字证书基础知识
    [svc]logstash和filebeat之间ssl加密
    [svc]cfssl模拟https站点-探究浏览器如何校验证书
    [svc] cisco router as ca server
    [svc]对称加密/非对称加密细枝末节-如何做到数据传输的authentication/data integrity/confidentiality(私密)
  • 原文地址:https://www.cnblogs.com/todd/p/104550.html
Copyright © 2011-2022 走看看