anchor.diff:  		       0 -> Bin1;
   		       N -> list_to_binary([Bin1,random_bytes(8-N)])
   		   end,
  -	    EncBin = crypto:block_encrypt(des3_cbc, Key, IVec, Bin2),
  +	    EncBin = crypto:block_encrypt(des3_cbc, CryptoKey, IVec, Bin2),
   	    case file:write_file(EncryptFileName, EncBin) of
   		ok ->
   		    io:format("~ts --(encrypt)--> ~ts~n",
  
positive.code: 
  encrypt_config_file(SrcFileName, EncryptFileName, {key,Key}) ->
      _ = crypto:start(),
      {Key,IVec} = make_crypto_key(Key),
      case file:read_file(SrcFileName) of
  	{ok,Bin0} ->
  	    Bin1 = term_to_binary({SrcFileName,Bin0}),
  
negative.code: 
  decrypt_config_file(EncryptFileName, TargetFileName, {key,Key}) ->
      _ = crypto:start(),
      {CryptoKey,IVec} = make_crypto_key(Key),
      case file:read_file(EncryptFileName) of
  	{ok,Bin} ->
  	    DecBin = crypto:block_decrypt(des3_cbc, CryptoKey, IVec, Bin),
  	    case catch binary_to_term(DecBin) of
  		{'EXIT',_} ->
  		    {error,bad_file};
  