URLEncode - Revision history

Stuboy: Simplified it

2018-07-06T06:44:12Z

Simplified it

← Older revision		Revision as of 06:44, 6 July 2018
Line 3:		Line 3:
	This is a function to correctly URLEncode a string.<br>		This is a function to correctly URLEncode a string.<br>
	URL encoding of a character consists of a "%" symbol, followed by the two-digit hexadecimal representation (case-insensitive) of the ISO-Latin code point for the character.<br>		URL encoding of a character consists of a "%" symbol, followed by the two-digit hexadecimal representation (case-insensitive) of the ISO-Latin code point for the character.<br>
	Some of the encoding decisions can get tricky in the 32-47 range and you will have to decide how you might encode sections of strings to override encrypting some potentially valid unencoded URI delimiters.

	References:<br>		References:<br>
Line 11:		Line 10:

	<PRE>		<PRE>
	function ~~URLEncode~~(~~inString~~)		function urlEncode(param)
			equ eSafeChars to 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~'
	*// perform standard URL encoding for UV ascii. ISO-8859-1 (ISO-Latin) character set.		string = param<1>
	*// stuart boydell 17-Dec-2004		flag = param<2> + 0
			nstring = ''
	*// basic example:		max = len(string)
	// deffun URLEncode(string) ; calling URLEncode ;[use '~~calling globID' if you globally catalogue the program]~~		for i = 1 to max
	*// encodedString = URLEncode(unencodedString)		if flag then
			*// decode
	// Only alphanumerics [0-9a-zA-Z], the special characters $-_.+!'~~(),~~		if string[i,3] match '"%"2X' then
	*// and reserved characters used for their reserved purposes may be		nstring := oconv(string[i+1,2],'my')
	*// used unencoded within a URL.		i += 2
			end else
	*// This process encodes unsafe characters to their URL safe		nstring := string[i,1]
	*// equivalent. eg. char(2~~) -~~> ~~"%02"~~		end
			end else
	*// First encodes char(37) "%" to %25 then loops through other ASCII.CODES ranges.		*// encode
			if index(eSafeChars,string[i,1],1) then
	*// ranges of ascii codes of all characters to be encoded		nstring := string[i,1]
	*// 0-31 ASCII Control Characters Unsafe		end else
	~~// 32-47 Reserved Characters ' '!?#$%&'()~~+~~,-./ Unsafe~~		nstring := '%':iconv(string[i,1],'my')
	*// 48-57 ASCII Characters and Numbers 0~~-9 Safe~~
	*// 58-64 Reserved Characters :;<=~~>?@ Unsafe~~
	*// 65-90 ASCII Characters A-Z Safe
	*// 91-96 Reserved Characters [\]^_` Unsafe
	*// 97-122 ASCII Characters a-z Safe
	*// 123-126 Reserved Characters {\|}~ Unsafe
	*// 127 Control Characters ' ' ~~Unsafe~~
	*// 128-255 Non-ASCII Characters ' ' Unsafe

	*// 'Special' encoding characters
	~~equ E.PERCENT~~ to ~~'%',~~
	~~E.SPACE~~ ~~to ' ',~~
	~~E.PLUS to '+'~~

	*// ~~'Normal' encoding start/end characters (decimal ascii)~~
	~~equ E.ASCII.START to (00:@am:38:@am:47:@am:58:@am:91:@am:96:@am:123)~~,
	~~E.ASCII.END to (36:@am:44:@am:47:@am:64:@am:94:@am:96:@am:255),~~
	~~E.MAXRANGE to 7~~

	*// convert 'special' ~~encoding characters~~ "%~~+[sp]~~"
	~~outString~~ = ~~change~~(~~inString~~,~~E.PERCENT~~,~~E.PERCENT:~~'25')

	*// space may be converted to '+' under some schemes...
	*//outString = change(outString,E.PLUS,E.PERCENT:~~'2B')~~
	*//outString = ~~change(outString~~,~~E.SPACE,E.PLUS)~~

	*// now convert 'normal' character ranges
	~~for i = 1 to E.MAXRANGE~~
	~~for j = E.ASCII.START<i> to E.ASCII.END<i>~~
	~~jchar = char(j) ;~~*// ~~get char from decimal val~~
	*// index() character before change() - faster
	if index(~~outString~~,~~jchar~~,1) then
	~~outString~~ = ~~change(outString~~,~~jchar,E.PERCENT~~:~~dtx~~(j,2))
	end		end
	~~next j~~		end
	next i		next i

	return(~~outString~~)		return(nstring)
	the:end		the:end

Stuboy: *

2006-06-30T02:55:13Z

← Older revision		Revision as of 02:55, 30 June 2006
Line 3:		Line 3:
	This is a function to correctly URLEncode a string.<br>		This is a function to correctly URLEncode a string.<br>
	URL encoding of a character consists of a "%" symbol, followed by the two-digit hexadecimal representation (case-insensitive) of the ISO-Latin code point for the character.<br>		URL encoding of a character consists of a "%" symbol, followed by the two-digit hexadecimal representation (case-insensitive) of the ISO-Latin code point for the character.<br>
	See http://www.permadi.com/tutorial/urlEncoding~~/ for more info.~~		Some of the encoding decisions can get tricky in the 32-47 range and you will have to decide how you might encode sections of strings to override encrypting some potentially valid unencoded URI delimiters.

			References:<br>
			See http://www.gbiv.com/protocols/uri/rfc/rfc3986.html#characters<br>
			See http://www.permadi.com/tutorial/urlEncoding


Line 13:		Line 17:

	*// basic example:		*// basic example:
	// deffun URLEncode(string) ; calling URLEncode ;- use ~~this~~ if you globally catalogue the program		// deffun URLEncode(string) ; calling URLEncode ;[use 'calling globID' if you globally catalogue the program]
	*// encodedString = URLEncode(unencodedString)		*// encodedString = URLEncode(unencodedString)

Line 26:		Line 30:

	*// ranges of ascii codes of all characters to be encoded		*// ranges of ascii codes of all characters to be encoded
	*// 0-31 ASCII Control Characters ~~These characters are not printable~~ Unsafe		*// 0-31 ASCII Control Characters Unsafe
	// 32-47 Reserved Characters ' '!?#$%&'()+,-./ Unsafe		// 32-47 Reserved Characters ' '!?#$%&'()+,-./ Unsafe
	*// 48-57 ASCII Characters and Numbers 0-9 Safe		*// 48-57 ASCII Characters and Numbers 0-9 Safe
Line 43:		Line 47:

	*// 'Normal' encoding start/end characters (decimal ascii)		*// 'Normal' encoding start/end characters (decimal ascii)
	equ E.ASCII.START to (00~~:@am:34~~:@am:38:@am:47:@am:58:@am:91:@am:96:@am:123),		equ E.ASCII.START to (00:@am:38:@am:47:@am:58:@am:91:@am:96:@am:123),
	E.ASCII.END to (~~31:@am:~~36:@am:38:@am:47:@am:64:@am:94:@am:96:@am:255),		E.ASCII.END to (36:@am:44:@am:47:@am:64:@am:94:@am:96:@am:255),
	E.MAXRANGE to 8		E.MAXRANGE to 7

	*// convert 'special' encoding characters "%+[sp]"		*// convert 'special' encoding characters "%+[sp]"
	~~string~~ = change(inString,E.PERCENT,E.PERCENT:'25')		outString = change(inString,E.PERCENT,E.PERCENT:'25')
	~~string~~ = change(~~string~~,E.PLUS,E.PERCENT:'2B')
	~~string~~ = change(~~string~~,E.SPACE,E.PLUS)		*// space may be converted to '+' under some schemes...
			*//outString = change(outString,E.PLUS,E.PERCENT:'2B')
			*//outString = change(outString,E.SPACE,E.PLUS)

	*// now convert 'normal' character ranges		*// now convert 'normal' character ranges
Line 57:		Line 63:
	jchar = char(j) ;*// get char from decimal val		jchar = char(j) ;*// get char from decimal val
	*// index() character before change() - faster		*// index() character before change() - faster
	if index(~~string~~,jchar,1) then		if index(outString,jchar,1) then
	~~string~~ = change(~~string~~,jchar,E.PERCENT:dtx(j,2))		outString = change(outString,jchar,E.PERCENT:dtx(j,2))
	end		end
	next j		next j
	next i		next i

	return(~~string~~)		return(outString)
	the:end		the:end

Stuboy: *

2006-06-30T01:13:32Z

← Older revision		Revision as of 01:13, 30 June 2006
Line 1:		Line 1:
	HomePage>>SourceCode>>BasicSource>>URLEncode		HomePage>>SourceCode>>BasicSource>><nowiki>URLEncode</nowiki>

	This is a function to correctly URLEncode a string.<br>		This is a function to correctly URLEncode a string.<br>
	~~I wrote this when I was posting data into~~ a ~~SQL database using XML datagrams~~ (~~very useful~~)~~. The posted data had to be URL encoded and this was what I came up with~~.<br>		URL encoding of a character consists of a "%" symbol, followed by the two-digit hexadecimal representation (case-insensitive) of the ISO-Latin code point for the character.<br>
	~~Because the data I was dealing with was only printable ascii < char(128) I have encoded only this range + uv delimiters~~ for ~~speed~~.		See http://www.permadi.com/tutorial/urlEncoding/ for more info.


	<PRE>		<PRE>
	function URLEncode(~~string~~)		function URLEncode(inString)

	*// perform standard URL encoding for UV ascii.		*// perform standard URL encoding for UV ascii. ISO-8859-1 (ISO-Latin) character set.
	*// ~~sboydell~~ 17-Dec-2004		*// stuart boydell 17-Dec-2004

	// deffun URLEncode(string) [calling URLEncode]		*// basic example:
			// deffun URLEncode(string) ; calling URLEncode ;- use this if you globally catalogue the program
	*// encodedString = URLEncode(unencodedString)		*// encodedString = URLEncode(unencodedString)

Line 18:		Line 19:
	*// and reserved characters used for their reserved purposes may be		*// and reserved characters used for their reserved purposes may be
	*// used unencoded within a URL.		*// used unencoded within a URL.

			*// This process encodes unsafe characters to their URL safe
			*// equivalent. eg. char(2) -> "%02"

			*// First encodes char(37) "%" to %25 then loops through other ASCII.CODES ranges.

	*// ranges of ascii codes of all characters to be encoded		*// ranges of ascii codes of all characters to be encoded
Line 31:		Line 37:
	*// 128-255 Non-ASCII Characters ' ' Unsafe		*// 128-255 Non-ASCII Characters ' ' Unsafe

	~~equ E.COMMA to~~ ',',		*// 'Special' encoding characters
	E.PERCENT to '%',		equ E.PERCENT to '%',
	E.~~MAXRANGE~~ to 9,		E.SPACE to ' ',
	E.~~ASCII.CODES~~ to '~~37,37,32,36,38,44,47,47,58,64,91,94,96,96,123,128,250,255~~'		E.PLUS to '+'

	*// ~~define pairs of ranges to encode~~		*// 'Normal' encoding start/end characters (decimal ascii)
	~~dim ENCODE~~.~~RANGE~~(~~E.MAXRANGE~~,2)		equ E.ASCII.START to (00:@am:34:@am:38:@am:47:@am:58:@am:91:@am:96:@am:123),
	~~matparse ENCODE.RANGE from~~ E.ASCII.~~CODES~~, E.~~COMMA~~		E.ASCII.END to (31:@am:36:@am:38:@am:47:@am:64:@am:94:@am:96:@am:255),
			E.MAXRANGE to 8

			*// convert 'special' encoding characters "%+[sp]"
			string = change(inString,E.PERCENT,E.PERCENT:'25')
			string = change(string,E.PLUS,E.PERCENT:'2B')
			string = change(string,E.SPACE,E.PLUS)

			*// now convert 'normal' character ranges
	for i = 1 to E.MAXRANGE		for i = 1 to E.MAXRANGE
	for j = ~~ENCODE~~.~~RANGE(~~i~~,1)~~ to ~~ENCODE~~.~~RANGE~~(i,2)		for j = E.ASCII.START<i> to E.ASCII.END<i>
	string = change(string,~~char(j)~~,E.PERCENT:dtx(j,2))		jchar = char(j) ;*// get char from decimal val
			*// index() character before change() - faster
			if index(string,jchar,1) then
			string = change(string,jchar,E.PERCENT:dtx(j,2))
			end
	next j		next j
	next i		next i

	return(string)		return(string)
			the:end





	~~the:end~~

	</PRE>		</PRE>

			HomePage>>SourceCode>>BasicSource>><nowiki>URLEncode</nowiki>

Stuboy: *

2005-04-22T00:39:01Z

New page

HomePage>>SourceCode>>BasicSource>>URLEncode

This is a function to correctly URLEncode a string.<br>
I wrote this when I was posting data into a SQL database using XML datagrams (very useful). The posted data had to be URL encoded and this was what I came up with.<br>
Because the data I was dealing with was only printable ascii < char(128) I have encoded only this range + uv delimiters for speed.

<PRE>
function URLEncode(string)

*// perform standard URL encoding for UV ascii.
*// sboydell 17-Dec-2004

*// deffun URLEncode(string) [calling *URLEncode]
*// encodedString = URLEncode(unencodedString)

*// Only alphanumerics [0-9a-zA-Z], the special characters $-_.+!*'(),
*// and reserved characters used for their reserved purposes may be
*// used unencoded within a URL.

*// ranges of ascii codes of all characters to be encoded
*// 0-31 ASCII Control Characters These characters are not printable Unsafe
*// 32-47 Reserved Characters ' '!?#$%&'()*+,-./ Unsafe
*// 48-57 ASCII Characters and Numbers 0-9 Safe
*// 58-64 Reserved Characters :;<=>?@ Unsafe
*// 65-90 ASCII Characters A-Z Safe
*// 91-96 Reserved Characters [\]^_` Unsafe
*// 97-122 ASCII Characters a-z Safe
*// 123-126 Reserved Characters {|}~ Unsafe
*// 127 Control Characters ' ' Unsafe
*// 128-255 Non-ASCII Characters ' ' Unsafe

equ E.COMMA to ',',
E.PERCENT to '%',
E.MAXRANGE to 9,
E.ASCII.CODES to '37,37,32,36,38,44,47,47,58,64,91,94,96,96,123,128,250,255'

*// define pairs of ranges to encode
dim ENCODE.RANGE(E.MAXRANGE,2)
matparse ENCODE.RANGE from E.ASCII.CODES, E.COMMA

for i = 1 to E.MAXRANGE
for j = ENCODE.RANGE(i,1) to ENCODE.RANGE(i,2)
string = change(string,char(j),E.PERCENT:dtx(j,2))
next j
next i

return(string)

the:end

</PRE>