anchor.diff:      inet:setopts(Sock, [{active,once}]),
       receive
   	{tcp,Sock,Data} ->
  -	    S#s{enc = <<(S#s.enc)/binary,Data/binary>>};
  +	    S#s{encrypted_data_buffer = <<(S#s.encrypted_data_buffer)/binary,Data/binary>>};
   	{tcp_closed,Sock} ->
   	    throw({tcp,tcp_closed});
   	{tcp_error, Sock, Reason} ->
  
positive.code: 		    S3 = opt(print_messages, S2, 
  			     fun(detail) -> {"decrypted bytes ~p~n",[SshPacket]} end),
  		    S3#s{ssh = inc_recv_seq_num(C3),
  			 enc = Rest,
  			 return_value = Msg
  			}
  	    end
  
negative.code: 	  opts = [],
  	  timeout = 5000,			% ms
  	  seen_hello = false,
  	  ssh = #ssh{},				% #ssh{}
  	  alg_neg = {undefined,undefined},      % {own_kexinit, peer_kexinit}
  	  alg,                                  % #alg{}
  	  vars = dict:new(),
  	  reply = [],				% Some repy msgs are generated hidden in ssh_transport :[
  	  prints = [],
  	  return_value,
  
            %% Packet retrival and decryption
            decrypted_data_buffer     = <<>>,
            encrypted_data_buffer     = <<>>,
            aead_data                 = <<>>,
            undecrypted_packet_length
           }).
  
  -define(role(S), ((S#s.ssh)#ssh.role) ).
  
  