Encoding strings as a collection of NaNs.

sneaky_NaNs.clj

(ns sneaky-NaNs
  "Secret codez.")
 
(defn char->NaN
  [c]
  (-> c
      (int)
      (bit-or 0x7ff8000000000000)
      (Double/longBitsToDouble)))
 
(defn NaN->char
  [nan]
  (-> nan
      (Double/doubleToRawLongBits)
      (bit-and 0xffffffffffff)
      (char)))
 
(->> "¡Hello, world! ☺" (map char->NaN))
=> (NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN)
 
(->> "¡Hello, world! ☺" (map char->NaN) (map NaN->char) (apply str))
=> "¡Hello, world! ☺" 

Time to combine that with my other startup idea of mining and selling/trading testnet cryptocurrency.

stenanography.com is still available! :-)