Function urlencode$(intext$)
	Return Replace(rawurlencode$(intext$),\"%20\",\"+\")
End Function

Function urldecode$(intext$)
	Return rawurldecode$(Replace(intext$,\"+\",\"%20\"))
End Function

Function rawurlencode$(intext$)
	Local outtext$, zeichen$, asciicode%, i%, laenge%
	laenge% = Len(intext$)
	For i% = 1 To laenge
		zeichen$ = Mid(intext$,i%,1)
		asciicode% = Asc(zeichen$) 
		If ((asciicode%>=45) And (asciicode%<=46)) Or ((asciicode%>=48) And (asciicode%<=57)) Or ((asciicode%>=65) And (asciicode%<=90)) Or (asciicode%=95) Or ((asciicode%>=97) And (asciicode%<=122)) Then
			outtext$ = outtext$ + zeichen$
		Else
			outtext$ = outtext$ + \"%\" + Right(Hex(asciicode%),2)
		EndIf
		intext$ = Mid(intext$,2,-1)
	Next
	Return outtext$
End Function

Function rawurldecode$(intext$)
	Local outtext$, zeichen$
	While intext$<>\"\"
		zeichen$ = Left(intext$,1)
		If zeichen$ = \"%\" Then
			outtext$ = outtext$ + Chr(hextoint(Mid(intext$,2,2)))
			intext$ = Mid(intext$, 4, -1)
		Else
			outtext$ = outtext$ + zeichen$
			intext$ = Mid(intext$,2,-1)
		EndIf
	Wend
	Return outtext$
End Function

Function hextoint%(inhex$)
	Local outint%,faktor%,i%,zeichen$,wert%,laenge%
	inhex$ = Upper(inhex$)
	laenge% = Len(inhex$)
	faktor% = 1
	For i% = 0 To laenge%-1
		zeichen$ = Mid(inhex$, laenge%-i%,1)
		If (zeichen$>=\"0\") And (zeichen$<=\"9\") Then
			wert% = Int(zeichen$)
		Else
			wert% = Asc(zeichen$)-55
		EndIf
		outint% = outint% + faktor% * wert%
		faktor% = faktor% * 16
	Next
	Return outint%
End Function