anchor.diff:  	ok = send_identity(Socket, Address, Port, NasId, UserName,
   			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
   	EapId2 = EapId1 + 1,
  -	{EapId2, ServerID} = receive_id(Socket, Address,
  +	{EapId2, Token, ServerID} = receive_id(Socket, Address,
   			Port, Secret, ReqAuth1, RadId1),
   	RadId2 = RadId1 + 1,
   	ReqAuth2 = radius:authenticator(),
  -	Token = crypto:rand_bytes(4),
   	send_id(Socket, Address, Port, Secret,
   			ReqAuth2, UserName, NasId, PeerId, MAC, Token, EapId2, RadId2),
   	EapId3 = EapId2 + 1,
  
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(),
  	send_id(Socket, Address, Port, Secret,
  			ReqAuth2, UserName, NasId, PeerId, MAC, Token, EapId2, RadId2),
  	EapId3 = EapId2 + 1,
  