The R13B03 release.OTP_R13B03

1 files changed, 180 insertions, 0 deletions

diff --git a/lib/ssh/src/ssh.hrl b/lib/ssh/src/ssh.hrl
new file mode 100644
index 0000000000..0e4285295c
--- /dev/null
+++ b/lib/ssh/src/ssh.hrl
@@ -0,0 +1,180 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2004-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+
+%%
+
+%%
+%% SSH definitions
+%%
+
+-ifndef(SSH_HRL).
+-define(SSH_HRL, 1).
+
+-define(SSH_DEFAULT_PORT, 22).
+-define(SSH_MAX_PACKET_SIZE, (256*1024)).
+-define(SSH_LENGHT_INDICATOR_SIZE, 4).
+
+-define(FALSE, 0).
+-define(TRUE,  1).
+%% basic binary constructors
+-define(BOOLEAN(X),  X:8/unsigned-big-integer).
+-define(BYTE(X),     X:8/unsigned-big-integer).
+-define(UINT16(X),   X:16/unsigned-big-integer).
+-define(UINT32(X),   X:32/unsigned-big-integer).
+-define(UINT64(X),   X:64/unsigned-big-integer).
+-define(STRING(X),   ?UINT32((size(X))), (X)/binary).
+
+%% building macros
+-define(boolean(X),
+	case X of
+	    true -> <<?BOOLEAN(1)>>;
+	    false -> (<<?BOOLEAN(0)>>)
+	end).
+
+-define(byte(X),   << ?BYTE(X) >> ).
+-define(uint16(X), << ?UINT16(X) >> ).
+-define(uint32(X), << ?UINT32(X) >> ).
+-define(uint64(X), << ?UINT64(X) >> ).
+-define(string(X), << ?STRING(list_to_binary(X)) >> ).
+-define(binary(X), << ?STRING(X) >>).
+
+-ifdef(debug).
+-define(dbg(Debug, Fmt, As),
+	case (Debug) of
+	    true ->
+		io:format([$# | (Fmt)], (As));
+	    _ ->
+		ok
+	end).
+-else.
+-define(dbg(Debug, Fmt, As), ok).
+-endif.
+
+-define(SSH_CIPHER_NONE, 0).
+-define(SSH_CIPHER_3DES, 3).
+-define(SSH_CIPHER_AUTHFILE, ?SSH_CIPHER_3DES).
+
+-record(ssh,
+	{
+	  %%state,        %% what it's waiting for
+
+	  role,         %% client | server
+	  peer,         %% string version of peer address 
+
+	  c_vsn,        %% client version {Major,Minor}
+	  s_vsn,        %% server version {Major,Minor}
+
+	  c_version,    %% client version string
+	  s_version,    %% server version string
+
+	  c_keyinit,    %% binary payload of kexinit packet
+	  s_keyinit,    %% binary payload of kexinit packet
+
+	  algorithms,   %% #alg{}
+	  
+	  kex,          %% key exchange algorithm
+	  hkey,         %% host key algorithm
+	  key_cb,       %% Private/Public key callback module
+	  io_cb,        %% Interaction callback module
+
+	  send_mac = none, %% send MAC algorithm
+	  send_mac_key,  %% key used in send MAC algorithm
+	  send_mac_size = 0,
+
+	  recv_mac = none, %% recv MAC algorithm
+	  recv_mac_key,  %% key used in recv MAC algorithm
+	  recv_mac_size = 0,
+
+	  encrypt = none,       %% encrypt algorithm
+	  encrypt_keys,         %% encrypt keys
+	  encrypt_block_size = 8,
+	  encrypt_ctx,
+
+	  decrypt = none,       %% decrypt algorithm
+	  decrypt_keys,         %% decrypt keys
+	  decrypt_block_size = 8,
+	  decrypt_ctx,          %% Decryption context   
+
+	  compress = none,
+	  compress_ctx,
+	  decompress = none,
+	  decompress_ctx,
+
+	  c_lng=none,   %% client to server languages
+	  s_lng=none,   %% server to client languages
+
+	  user_ack    = true,   %% client
+	  timeout     = infinity,
+
+	  shared_secret,        %% K from key exchange
+	  exchanged_hash,       %% H from key exchange
+	  session_id,           %% same as FIRST exchanged_hash
+	  
+	  opts = [],
+	  send_sequence = 0,
+	  recv_sequence = 0,
+	  keyex_key,
+	  keyex_info,
+	  
+	  %% User auth
+	  user,
+	  service,
+	  userauth_quiet_mode,              %  boolean()
+	  userauth_supported_methods , %  
+	  userauth_methods,
+	  userauth_preference	  
+	 }).
+
+-record(alg,
+	{
+	  kex,
+	  hkey,
+	  send_mac,
+	  recv_mac,
+	  encrypt,
+	  decrypt,
+	  compress,
+	  decompress,
+	  c_lng,
+	  s_lng
+	 }).
+
+-record(ssh_key,
+	{
+	  type,
+	  public,
+	  private,
+	  comment = ""
+	 }).
+
+-record(ssh_pty, {term = "", % e.g. "xterm"
+		  width = 80,
+		  height = 25,
+		  pixel_width = 1024,
+		  pixel_height = 768,
+		  modes = <<>>}).
+
+%% assertion macro
+-define(ssh_assert(Expr, Reason),
+	case Expr of
+	    true -> ok;
+	    _ -> exit(Reason)
+	end).
+
+-endif. % SSH_HRL defined