code.kerkeslager.com Git - sandbox/blob - cryptopals-erlang/01.02/hex.erl

   1 -module(hex).
   2 -export([decode/1,encode/1,fixed_xor/2]).
   3
   4 data_in_pairs([]) -> [];
   5 data_in_pairs([C1,C2|Tail]) -> [ [C1] ++ [C2] | data_in_pairs(Tail) ].
   6
   7 decode(Data) -> [ list_to_integer(P,16) || P <- data_in_pairs(Data) ].
   8
   9 fixed_xor(Data1,Data2) ->
  10     DecodedData1 = decode(Data1),
  11     DecodedData2 = decode(Data2),
  12     XoredData = lists:zipwith(
  13         fun(P1,P2) -> P1 bxor P2 end,
  14         DecodedData1,
  15         DecodedData2),
  16     encode(XoredData).
  17
  18 encode(L) -> string:join(lists:map(fun(X) -> int_to_hex(X) end, L), "").
  19
  20 int_to_hex(N) when N < 256 -> [hex(N div 16), hex(N rem 16)].
  21
  22 hex(N) when (0  =< N) and (N < 10) -> $0 + N;
  23 hex(N) when (10 =< N) and (N < 16) -> $a + (N-10).