Http decode url code#

Http decode url code#

While the default is to decode parameters as UTF-8 (which is the W3C recommendation,) the characters may have been encoded in another encoding scheme, and this can be handled correctly.Ĭonst INPUT1: & str = 'http%3A%2F%2Ffoo%20bar%2F' const INPUT2: & str = '/search?q=%60Abdu%27l-Bah%C3%A1' fn append_frag ( text: & mut String, frag: & mut String ) ' ) Then str = str & Chr ( Int ( '&H' & Mid ( code, 2, 2 ))) code = Mid ( code, 4 ) Else str = str & '%' code = Mid ( code, 2 ) End If Else str = str & code code = '' End If Wend URLDecode = str End Function url = 'http%3A%2F%2Ffoo%20bar%C3%A8%2F' WScript. URL decoding is the reverse process of encoding. Print( ( url decode( '/search?q=%60Abdu%27l-Bah%C3%A1' ), newline ) )Ĭonst alphanum = '0123456789abcdefghijklmnopqrstuvwxyz' Function ToDecimal ( cadena As String, base_ As Uinteger ) As Uinteger Dim As Uinteger i, n, result = 0 Dim As Uinteger inlength = Len ( cadena ) For i = 1 To inlength n = Instr ( alphanum, Mid ( Lcase ( cadena ), i, 1 )) - 1 n *= ( base_ ^ ( inlength - i )) result += n Next Return result End Function Function url2string ( cadena As String ) As String Dim As String c, nc, res For j As Integer = 1 To Len ( cadena ) c = Mid ( cadena, j, 1 ) If c = '%' Then nc = Chr ( ToDecimal (( Mid ( cadena, j + 1, 2 )), 16 )) res &= nc j += 2 Else res &= c End If Next j Return res End Function Dim As String URL = 'http%3A%2F%2Ffoo%20bar%2F' Print 'Supplied URL '' URL ''' Print 'URL decoding '' url2string ( URL ) ''' URL = '/search?q=%60Abdu%27l-Bah%C3%A1' Print ! ' Supplied URL '' URL ''' Print 'URL decoding '' url2string ( URL ) ''' Sleep Frink It's far more common to use the Uri methods Panagiotis Kanavos at 12:37 Possible duplicate of WebUtility.HtmlDecode replacement in. Print( ( url decode( 'http%3A%2F%2Ffoo%20bar%2F' ), newline ) ) The HttpContext you mention is VERY different from the HttpContext of previous versions. Result := REPR ( ( 16 * hex value( encoded ) ) PROC url decode = ( STRING encoded )STRING:ĬHAR result # returns the URL encoded string decoded - minimal error handling # PROC hex value = ( CHAR c )INT: IF c >= '0' AND c = 'A' AND c <= 'F' THEN 10 + ( ABS c - ABS 'A' )