class
	EL_PUBLIC_KEY_FIELD

inherit
	EL_SIGNED_EIFFEL_FIELD
		redefine
			new_data_lines
		end

	SINGLE_MATH

create
	make

feature {NONE} -- Implementation

	append_factorized (str: STRING; n: INTEGER)
		local
			factor: INTEGER
		do
			from factor := 2 until n \\ factor = 0 or factor > sqrt (n).rounded loop
				factor := factor + 1
			end
			if factor < n and then n \\ factor = 0 then
				str.append_integer (factor)
				str.append_character ('*')
				str.append_integer (n // factor)
			else
				str.append_integer (n)
			end
		end

	new_data_lines (a_value: INTEGER_X): EL_STRING_8_LIST
			-- Intended to create a manifest format that is more difficult to tamper with at machine code level
			-- Anti-piracy measure
		local
			count_per_line, i: INTEGER; bytes: SPECIAL [NATURAL_8]
			line: STRING
		do
			bytes := a_value.as_bytes
			create Result.make (bytes.upper + 1)
			count_per_line := 18
			from i := 0 until i > bytes.upper loop
				if i \\ count_per_line = 0 then
					create line.make (100)
					Result.extend (line)
				end
				append_factorized (line, bytes [i])
				i := i + 1
				if i >= 1 and i <= bytes.upper then
					line.append_string (", ")
				end
			end
		end

end