So I searched everywhere for what I figured would be a pretty simple chunk of code to take an encrypted string and make it URL friendly, so it could be passed to another page. Not so. Everyone’s solution seemed to be much more difficult than necessary.

And sure, say what you will about VBScript, but suffice to say, if you ever find yourself using VBScript and needing something to make a string URL safe, try this.

You pass the function the string (vString) and whether to encode or decode it (vEncDec — "enc" is encode; "dec" is decode). See also url encoding at blooberry.com.

Function furlEncode(vString,vEncDec)
Dim i
Dim aReserved(24,1)
  'column 1
  aReserved(0,0) = "%" '25
  aReserved(1,0) = ";" '3B
  aReserved(2,0) = "/" '2F
  aReserved(3,0) = "?" '3F
  aReserved(4,0) = ":" '3A
  aReserved(5,0) = "@" '40
  aReserved(6,0) = "&" '26
  aReserved(7,0) = "=" '3D
  aReserved(8,0) = "+" '2B
  aReserved(9,0) = "$" '24
  aReserved(10,0) = "," '2C
  aReserved(11,0) = " " '20
  aReserved(12,0) = """" '22
  aReserved(13,0) = "<" '3C
  aReserved(14,0) = ">" '3E
  aReserved(15,0) = "#" '23
  aReserved(16,0) = "{" '7B
  aReserved(17,0) = "}" '7D
  aReserved(18,0) = "|" '7C
  aReserved(19,0) = "\" '5C
  aReserved(20,0) = "^" '5E
  aReserved(21,0) = "~" '7E
  aReserved(22,0) = "[" '5B
  aReserved(23,0) = "]" '5D
  aReserved(24,0) = "`" '60
  'column 2
  aReserved(0,1) = "%25"
  aReserved(1,1) = "%3B"
  aReserved(2,1) = "%2F"
  aReserved(3,1) = "%3F"
  aReserved(4,1) = "%3A"
  aReserved(5,1) = "%40"
  aReserved(6,1) = "%26"
  aReserved(7,1) = "%3D"
  aReserved(8,1) = "%2B"
  aReserved(9,1) = "%24"
  aReserved(10,1) = "%2C"
  aReserved(11,1) = "%20"
  aReserved(12,1) = "%22"
  aReserved(13,1) = "%3C"
  aReserved(14,1) = "%3E"
  aReserved(15,1) = "%23"
  aReserved(16,1) = "%7B"
  aReserved(17,1) = "%7D"
  aReserved(18,1) = "%7C"
  aReserved(19,1) = "%5C"
  aReserved(20,1) = "%5E"
  aReserved(21,1) = "%7E"
  aReserved(22,1) = "%5B"
  aReserved(23,1) = "%5D"
  aReserved(24,1) = "%60"

For i = 0 to Ubound(aReserved)
  If vEncDec = "enc" Then
    vString = Replace(vString,aReserved(i,0),aReserved(i,1))
  End If
  If vEncDec = "dec" Then
    vString = Replace(vString,aReserved(i,1),aReserved(i,0))
  End If
Next

furlEncode = vString

End Function