bdesham · August 11, 2012 20:26
diff --git a/obfuscate.clj b/obfuscate.clj
 ; Replaces each character with an HTML escape code like "&#x20;".
 ; This is useful as some lightweight protection against e-mail harvesting;
 ; it probably won't perform correctly with non-ASCII input.
 ;
 ; example:
 ;   (obfuscate "example.com")
 ;   => "&#x65;&#x78;&#x61;&#x6d;&#x70;&#x6c;&#x65;&#x2e;&#x63;&#x6f;&#x6d;"

 (defn obfuscate
  [text]
  (apply str (map #(format "&#x%x;" (int %))
                  text)))
	; Replaces each character with an HTML escape code like " ".
	; This is useful as some lightweight protection against e-mail harvesting;
	; it probably won't perform correctly with non-ASCII input.
	;
	; example:
	; (obfuscate "example.com")
	; => "example.com"

	(defn obfuscate
	[text]
	(apply str (map #(format "&#x%x;" (int %))
	text)))