Asp Programming Code Examples Asp > Mathematics Code Examples GUID Generator - 26 Characters GUID Generator - 26 Characters 'Generate 26 charcter Unique ID Function GetUniqueId() Dim strUniqueID, GUID Dim iCount, strBinary, strUniqueChar 'Set GUID = Server.CreateObject("GuidMak ' r.GUID") Set GUID = Server.CreateObject("GuidMakr.GUID") strUniqueID = Trim(GUID.GetGUID) 'Returns something like E06019F5A31311D4902B00A0C9ECF1DF 'Remove -, { in the generated number strUniqueID = Right(Left(Replace(strUniqueID, "-", ""), 33), 32) 'Convert to binary strBinary = "" For iCount = 1 To 32 strBinary = strBinary & ConvertHexToBin(Mid(strUniqueID, iCount, 1)) Next 'make it to 130 bit number strBinary = strBinary & "00" 'Regroup binary into 5bits and convert t ' o number For iCount = 1 To 130 Step 5 strNo = (CInt(Mid(strBinary, iCount, 1)) * 16) + (CInt(Mid(strBinary, iCount + 1, 1)) * 8) + (CInt(Mid(strBinary, iCount + 2, 1)) * 4) + (CInt(Mid(strBinary, iCount + 3, 1)) * 2) + (CInt(Mid(strBinary, iCount + 4, 1))) 'If greater than 9 convert the number To alphabet. Where A maps to 10 If strNo > 9 Then strChar = Chr(strNo + 56) Else strChar = CStr(strNo) End If strUniqueChar = strUniqueChar & strChar Next GetUniqueId = strUniqueChar 'Something like T1H1KUE32D8U941C02HDKS7IST End Function Function ConvertHexToBin(strHex) Dim strBin Select Case UCase(strHex) Case "0" strBin = "0000" Case "1" strBin = "0001" Case "2" strBin = "0010" Case "3" strBin = "0011" Case "4" strBin = "0100" Case "5" strBin = "0101" Case "6" strBin = "0110" Case "7" strBin = "0111" Case "8" strBin = "1000" Case "9" strBin = "1001" Case "A" strBin = "1010" Case "B" strBin = "1011" Case "C" strBin = "1100" Case "D" strBin = "1101" Case "E" strBin = "1110" Case "F" strBin = "1111" Case Else strBin = "" End Select ConvertHexToBin = strBin End Function