anchor.diff:       T}.
   
   pad16(Passwd) ->
  -    concat_binary([Passwd, list_to_binary(zero(16 - size(Passwd)))]).
  +    list_to_binary([Passwd, list_to_binary(zero(16 - size(Passwd)))]).
   
   zero(0) -> [];
   zero(N) -> [0 | zero(N-1)].
  
positive.code: type_conv(V, binary)         -> V;
  type_conv(V, integer)        -> <<V:32>>;
  type_conv({A,B,C,D}, ipaddr) -> <<A:8, B:8, C:8, D:8>>;
  type_conv(V, string)         -> list_to_binary(V);
  type_conv(V, octets)         -> list_to_binary(V);
  type_conv(V, date)           -> list_to_binary(V).  %% FIXME !!
  
  
  enc_cmd(R) when is_record(R, rad_request) ->
  
negative.code:     patch_authenticator(PDU, l2b(Secret)).
  
  patch_authenticator(Req,Secret) ->
      case {erlang:md5([Req,Secret]),list_to_binary(Req)} of
  	{Auth,<<Head:4/binary, _:16/binary, Rest/binary>>} ->
  	    B = l2b(Auth),
  	    <<Head/binary, B/binary, Rest/binary>>;
  