Remediating CSV Injection Assaults In ColdFusion

part
	output = false
	trace = "I present helper strategies for SAFELY serializing Array information as CSV content material."
	{

	// These are used internally, however may also be used externally as properly as a way to make
	// the calling code extra apparent (seeing names is simpler than seeing ASCII numbers).
	this.chars = {
		COMMA: ",",
		TAB: chr( 9 ),
		NEWLINE: chr( 10 ),
		CARRIAGE_RETURN: chr( 13 ),
		QUOTES: """",
		ESCAPED_QUOTES: """"""
	};

	/**
	* I initialize the CSV serializer with the given defaults.
	*/
	public void operate init(
		string fieldDelimiter = this.chars.COMMA,
		string rowDelimiter = this.chars.NEWLINE,
		string encoding = "utf-8"
		) {

		variables.defaultFieldDelimiter = fieldDelimiter;
		variables.defaultRowDelimiter = rowDelimiter;
		variables.defaultEncoding = encoding;

	}

	// ---
	// PUBLIC METHODS.
	// ---

	/**
	* I serialize the given array information as a CSV string payload.
	*/
	public string operate serializeArray(
		required array rows,
		string fieldDelimiter = defaultFieldDelimiter,
		string rowDelimiter = defaultRowDelimiter
		) {

		var csvData = rows
			.map(
				( row ) => {

					return( this.serializeArrayRow( row, fieldDelimiter ) );

				}
			)
			.toList( rowDelimiter )
		;

		return( csvData );

	}


	/**
	* I serialize the given array information as a CSV binary payload.
	* 
	* NOTE: This methodology is supplied for comfort - after I generate CSV content material, I'm
	* ALMOST ALWAYS then streaming the content material again to the shopper utilizing CFContent, which
	* accepts a binary `variable` attribute.
	*/
	public string operate serializeArrayAsBinary(
		required array rows,
		string fieldDelimiter = defaultFieldDelimiter,
		string rowDelimiter = defaultRowDelimiter,
		string encoding = defaultEncoding
		) {

		return(
			charsetDecode(
				serializeArray( rows, fieldDelimiter, rowDelimiter ),
				encoding
			)
		);

	}

	// ---
	// PRIVATE METHODS.
	// ---

	/**
	* I return a price through which any KNOWN potential CSV injection vector has been escaped.
	* 
	* CAUTION MODIFIES DATA OUTPUT: This works by checking the primary character within the
	* discipline; and, if it's a probably harmful character, it prepends the sphere worth
	* with a single-quote. Some spreadsheet packages will disguise this single-quote; others
	* will render it. As such, it could seem to the tip consumer that we have altered their information
	* (which we have now). Sadly, there is not any method round this.
	*/
	personal string operate escapeCsvInjection( required string discipline ) {

		swap ( discipline.left( 1 ) ) ":

				return( "'" & discipline );

			break;
			default:

				return( discipline );

			break;
		

	}


	/**
	* I return a discipline worth that's quoted and through which embedded particular characters have
	* been escaped.
	*/
	personal string operate escapeField( required string discipline ) {

		return(
			this.chars.QUOTES &
			discipline.exchange( this.chars.QUOTES, this.chars.ESCAPED_QUOTES, "all" ) &
			this.chars.QUOTES
		);

	}


	/**
	* I serialize the given row, each QUOTING and ESCAPING the content material of every discipline.
	*/
	personal string operate serializeArrayRow(
		required array row,
		required string fieldDelimiter
		) {

		var csvData = row
			.map(
				( discipline ) => {

					// NOTE: Calling the toString() methodology to solid every discipline to a string
					// in case we're coping with non-string easy values. This enables
					// us to name member-methods in the entire subsequent invocations.
					var escapedValue = toString( discipline );
					escapedValue = escapeCsvInjection( escapedValue );
					escapedValue = escapeField( escapedValue );

					return( escapedValue );

				}
			)
			.toList( fieldDelimiter )
		;

		return( csvData );

	}

}

<cfscript>

	serializer = new CsvSerializer();

	rows = [
		[ "ID", "NAME", "EMAIL" ],
		[ 1, "Sarah ""Stubs"" Smith", "sarah.smith@example.com" ],
		[ 2, "John Johnson", "jon.johnson@example.com" ],
		[ 3, "=(3+5)", "#chr( 9 )#dr.evil@example.com" ], // <== CAUTION: Malicious information!
		[ 4, "Jo Jamila", "jo.jamila@example.com" ]
	];

	header
		identify = "content-disposition"
		worth = getContentDisposition( "user-data.csv" )
	;
	content material
		sort = "textual content/csv; charset=utf-8"
		variable = serializer.serializeArrayAsBinary( rows )
	;

	// ------------------------------------------------------------------------------- //
	// ------------------------------------------------------------------------------- //

	/**
	* I get the content-disposition header worth for the given filename.
	*/
	personal string operate getContentDisposition(
		required string filename,
		string disposition = "attachment"
		) {

		var encodedFilename = encodeForUrl( filename );

		return( "#disposition#; filename=""#encodedFilename#""; filename*=UTF-8''#encodedFilename#" );

	}

</cfscript>