anchor.diff:      end;
   
   %%---- banner to client
  -handle_event(_, #ssh_msg_userauth_banner{message = Msg}, {userauth,client}, D) ->
  +handle_event(internal, #ssh_msg_userauth_banner{message = Msg}, {userauth,client}, D) ->
       case D#data.ssh_params#ssh.userauth_quiet_mode of
   	false -> io:format("~s", [Msg]);
   	true -> ok
  
positive.code:     D = send_msg(MsgReq, D0#data{ssh_params = Ssh}),
      {next_state, {ext_info,client,init}, D};
  
  handle_event(_, #ssh_msg_newkeys{} = Msg, {new_keys,server,init}, D) ->
      {ok, Ssh} = ssh_transport:handle_new_keys(Msg, D#data.ssh_params),
      %% {ok, ExtInfo, Ssh} = ssh_transport:ext_info_message(Ssh1),
      %% send_bytes(ExtInfo, D),
      {next_state, {ext_info,server,init}, D#data{ssh_params=Ssh}};
  
  %% Subsequent key exchange rounds (renegotiation):
  handle_event(_, #ssh_msg_newkeys{} = Msg, {new_keys,Role,renegotiate}, D) ->
      {ok, Ssh} = ssh_transport:handle_new_keys(Msg, D#data.ssh_params),
      %% {ok, ExtInfo, Ssh} = ssh_transport:ext_info_message(Ssh1),
      %% send_bytes(ExtInfo, D),
  
negative.code: 
  %%% ######## {service_request, client|server} ####
  
  handle_event(internal, Msg = #ssh_msg_service_request{name=ServiceName}, StateName = {service_request,server}, D0) ->
      case ServiceName of
  	"ssh-userauth" ->
  	    Ssh0 = #ssh{session_id=SessionId} = D0#data.ssh_params,
  