--- /dev/null
+-module(main).
+-export([run/0]).
+
+% TODO Scoring function to identify which string is English
+
+get_xored_possibilities() ->
+ Base = hex:decode("1b37373331363f78151b7f2b783431333d78397828372d363c78373e783a393b3736"),
+ XorBytes = lists:seq(0,255),
+ lists:map(fun(XorByte) -> hex:single_byte_xor(XorByte,Base) end, XorBytes).
+
+get_comparison_text() ->
+ {ok, Data} = file:read_file("1984.html"),
+ Data.
+
+print_all(List) -> lists:map(fun(S) -> io:format("~s~n",[S]) end, List).
+
+run() -> print_all(get_xored_possibilities()).