XProfan

Proc Urlpathencode

    Parameters String$
    Declare I&,Char%,Urlpathencode$
    Urlpathencode$ = String$

    Whileloop Len(Urlpathencode$),1,-1

        Char% = Ord(Mid$(Urlpathencode$,&Loop,1))

        If ((Char%>96) And (Char%<123))

        Elseif ((Char%>47) And (Char%<58))

        Elseif ((Char%>64) And (Char%<91))

        Elseif ((Char%>44) And (Char%<48))

        Elseif (Char% = 95)

        Elseif (Char% = 126)

        Elseif (Char% = 38)

        Elseif (Char% = 58)

        Elseif (Char% = 63)

        Elseif (Char% = 64)

        Elseif (Char% = 35)

        Elseif (Char% = 33)

        Elseif (Char% = 36)

        Elseif (Char% = 42)

        Elseif (Char% = 43)

        Else

            If (&Loop=1)

                Urlencode$ = "%" + Hexx(Char%) + Mid$(Urlencode$,&Loop+1,Len(Urlencode$))

            Elseif (&Loop=Len(Urlencode$))

                Urlencode$ = Left$(Urlencode$,&Loop-1) + "%" + Hexx(Char%)

            Else

                Urlencode$ = Left$(Urlencode$,&Loop-1) + "%" + Hexx(Char%) + Mid$(Urlencode$,&Loop+1,Len(Urlencode$))

            Endif

        Endif

    Wend

    Return Urlpathencode$

Endproc

Proc Hexx

    Parameters Zahl&

    If (Zahl&>15)

        Return Hex$(Zahl&)

    Else

        Return "0"+Hex$(Zahl&)

    Endif

Endproc