anchor.diff:  	#eap_pwd{length = false, more = false, pwd_exch = id,
   			data = EapPwdData} = ocs_eap_codec:eap_pwd(EapData),
   	#eap_pwd_id{group_desc = 19, random_fun = 16#1,
  -			prf = 16#1, pwd_prep = none,
  +			prf = 16#1, pwd_prep = none, token = Token,
   			identity = ServerID} = ocs_eap_codec:eap_pwd_id(EapPwdData),
  -	{EapId, ServerID}.
  +	{EapId, Token, ServerID}.
   
   send_id(Socket, Address, Port, Secret, Auth, UserName,
   		NasId, PeerId, MAC, Token, EapId, RadId) ->
  
positive.code: 	ok = send_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, MAC, ReqAuth, EapId, RadId),
  	NextEapId = EapId + 1,
  	{NextEapId, _ServerID} = receive_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  pwd_id() ->
  
negative.code: 	ok = send_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  	EapId2 = EapId1 + 1,
  	{EapId2, Token, _ServerID} = receive_id(Socket, Address,
  			Port, Secret, ReqAuth1, RadId1),
  	RadId2 = RadId1 + 1,
  	ReqAuth2 = radius:authenticator(),
  	EapPwdId = #eap_pwd_id{group_desc = 19, random_fun = 16#1, prf = 16#1,
  			token = Token, pwd_prep = none, identity = PeerId},
  	EapPwd = #eap_pwd{pwd_exch = id, data = ocs_eap_codec:eap_pwd_id(EapPwdId)},
  