urlencode a string

Strict

Local test:String = "test''~q~q~~"

Print "Original string = "+test

Local a:String=urlencode(test)

Print "urlencoded = "+a

Local b:String=urldecode(a)

Print "urldecoded = "+b

Function urlencode:String(str:String)
	If str="" Then Return str
	
	' Define unwanted characters
	'---------------------------
	Local bad:String = "~~<>%}\];?@&#{|^[`/:=$+~q'~n~r~t~0"
	'---------------------------
	Local result:String
	Local char:String
	For Local i:Int = 1 To Len(str)
		char=Mid(str,i,1)
		If Instr(bad,char,1)
			result:+ "%"+Right(Hex(Asc(char)-1),2)
		Else
			result:+char
		EndIf
	Next
	Return result
EndFunction

Function urldecode:String(str:String)
	If str="" Then Return str
	Local result:String
	Local char:String
	For Local i:Int = 1 To Len(str)
		char=Mid(str,i,1)
		If Instr(char,"%",1)
			result:+Chr(Int("$"+Mid(str,i+1,2))+1)
			i:+2
		Else
			result:+char
		EndIf
	Next
	Return result	
EndFunction