anchor.diff:  	case ocs:authorize(ocs:normalize(Subscriber), []) of
   		{ok, <<>>, Attributes} ->
   			request4(?AccessAccept, Attributes, StateData);
  -		{ok, Password, Attributes} ->
  -			VendorSpecific = {?Mikrotik, ?MikrotikWirelessPsk, Password},
  +		{ok, PSK, Attributes} when is_binary(PSK) ->
  +			VendorSpecific = {?Mikrotik, ?MikrotikWirelessPsk, binary_to_list(PSK)},
   			ResponseAttributes = radius_attributes:store(?VendorSpecific,
   					VendorSpecific, Attributes),
   			request4(?AccessAccept, ResponseAttributes, StateData);
  
positive.code: 	Server = {ServerAddress, ServerPort},
  	Client= {ClientAddress, ClientPort},
  	case ocs:authorize(Subscriber, Password) of
  		{ok, _Password, _Attr} ->
  			Answer = #diameter_nas_app_AAA{'Session-Id' = SessionID,
  					'Auth-Application-Id' = AppId, 'Auth-Request-Type' = Type,
  					'Origin-Host' = OHost, 'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  
negative.code: 	end;
  request3(Password, #statedata{subscriber = Subscriber} = StateData) ->
  	case ocs:authorize(Subscriber, Password) of
  		{ok, _, ResponseAttributes} ->
  			request4(?AccessAccept, ResponseAttributes, StateData);
  		{error, Reason} ->
  			request5(Reason, StateData)
  