anchor.diff:  
   encrypt_config_file(SrcFileName, EncryptFileName, {key,Key}) ->
       crypto:start(),
  -    {K1,K2,K3,IVec} = make_crypto_key(Key),
  +    {Key,IVec} = make_crypto_key(Key),
       case file:read_file(SrcFileName) of
   	{ok,Bin0} ->
   	    Bin1 = term_to_binary({SrcFileName,Bin0}),
  
positive.code: 
  decrypt_config_file(EncryptFileName, TargetFileName, {key,Key}) ->
      crypto:start(),
      {K1,K2,K3,IVec} = make_crypto_key(Key),
      case file:read_file(EncryptFileName) of
  	{ok,Bin} ->
  	    DecBin = crypto:des3_cbc_decrypt(K1, K2, K3, IVec, Bin),
  	    case catch binary_to_term(DecBin) of
  		{'EXIT',_} ->
  		    {error,bad_file};
  
negative.code: make_crypto_key(String) ->
      <<K1:8/binary,K2:8/binary>> = First = erlang:md5(String),
      <<K3:8/binary,IVec:8/binary>> = erlang:md5([First|lists:reverse(String)]),
      {[K1,K2,K3],IVec}.
  
  random_bytes(N) ->
      {A,B,C} = now(),
  