anchor.diff:              encrypt_ctx = IV0} = Ssh, Data) ->
       Enc = crypto:block_encrypt(aes_cbc128, K,IV0,Data),
       IV = crypto:next_iv(aes_cbc, Enc),
  -    {Ssh#ssh{encrypt_ctx = IV}, Enc}.
  +    {Ssh#ssh{encrypt_ctx = IV}, Enc};
  +encrypt(#ssh{encrypt = 'aes128-ctr',
  +            encrypt_ctx = State0} = Ssh, Data) ->
  +    {State, Enc} = crypto:stream_encrypt(State0,Data),
  +    {Ssh#ssh{encrypt_ctx = State}, Enc}.
     
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: mac_key_size('hmac-sha1-96') -> 20*8;
  mac_key_size('hmac-md5')     -> 16*8;
  mac_key_size('hmac-md5-96')  -> 16*8;
  mac_key_size(none) -> 0.
  
  mac_digest_size('hmac-sha1')    -> 20;
  mac_digest_size('hmac-sha1-96') -> 12;
  mac_digest_size('hmac-md5')    -> 20;
  mac_digest_size('hmac-md5-96') -> 12;
  mac_digest_size(none) -> 0.
  
  peer_name({Host, _}) ->
  
negative.code: 	     decrypt_ctx = IV0} = Ssh, Data) ->
      Dec = crypto:block_decrypt(aes_cbc128, Key,IV0,Data),
      IV = crypto:next_iv(aes_cbc, Data),
      {Ssh#ssh{decrypt_ctx = IV}, Dec};
  decrypt(#ssh{decrypt = 'aes128-ctr',
              decrypt_ctx = State0} = Ssh, Data) ->
      {State, Enc} = crypto:stream_decrypt(State0,Data),
      {Ssh#ssh{decrypt_ctx = State}, Enc}.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Compression
  