X-Git-Url: https://code.kerkeslager.com/?p=sandbox;a=blobdiff_plain;f=cryptopals-erlang%2F01.01%2Fhex.erl;fp=cryptopals-erlang%2F01.01%2Fhex.erl;h=d778f158d552b67b43c14328546f5afef5c430c9;hp=0000000000000000000000000000000000000000;hb=b37c633b0ba51e497920762fa2eb4d732ebca291;hpb=545381e1397107d4ab00d2e54d85d3e11d98e4f1

diff --git a/cryptopals-erlang/01.01/hex.erl b/cryptopals-erlang/01.01/hex.erl
new file mode 100644
index 0000000..d778f15
--- /dev/null
+++ b/cryptopals-erlang/01.01/hex.erl
@@ -0,0 +1,7 @@
+-module(hex).
+-export([decode/1]).
+
+data_in_pairs([]) -> [];
+data_in_pairs([C1,C2|Tail]) -> [ [C1] ++ [C2] | data_in_pairs(Tail) ].
+
+decode(Data) -> << <<(list_to_integer(C,16)):8>> || C <- data_in_pairs(Data) >>.