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! ☺" 

Does the internet yet have "run this code on fifty different processors as a service"?

That is an interesting question. I wouldn't be surprised if Amazon or Travis might offer something like that, but quick Google searches don't return positive results for me. I would expect companies like Google, Amazon, Facebook, Microsoft probably have internal tools to test software against their data center fleets of servers, with their variations in processors, but that isn't likely to be a public service.

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

stenanography.com is still available! :-)