One of Taka's clients needed some fairly specialized software but didn't have the budget for a complete system from scratch. After a little bit of research, Taka found some software sold by a third party that would get them 95% of the way done. Better still, the vendor had an "open source" option to that allowed them to add-on and modify the source code for an extra licensing fee.

Now this may come as a complete shock to you, but things didn't quite go as planned. The reason the vendor was so eager to sell it as "open source" was because their software was written entirely in VBScript/ASP. And things just went downhill from there. GUID were used to track certain events and were stored in the database as VARCHARs (as opposed to UNIQUEIDENTIFIER). Not too bad on its own, but their GUID were filled with "Z"s ...

'******************************************
'***       Hexadecimal Generator       ****
'******************************************
Function GenerateHex(Length)

  Dim i, hex

  'Randomize the system timer
  Randomize Timer()

  'Loop to make hex value
  For i = 1 to Length

    'Set Length equal to radom decimal value form 0 to 15
    Length = CInt(Rnd * 1000) Mod 16

    'Convert Int to Hex
    Select Case Length
      Case 1
        hex = "1"
      Case 2
        hex = "2"
      Case 3
        hex = "3"
      Case 4
        hex = "4"
      Case 5
        hex = "5"
      Case 6
        hex = "6"
      Case 7
        hex = "7"
      Case 8
        hex = "8"
      Case 9
        hex = "9"
      Case 10
        hex = "A"
      Case 11
        hex = "B"
      Case 12
        hex = "C"
      Case 13
        hex = "D"
      Case 14
        hex = "E"
      Case 15
        hex = "F"
      Case Else
        hex = "Z"
    End Select

    'add hex to the function output
    GenerateHex = GenerateHex & hex
  Next
End Function