@verb #322:":initialize" this none this rxdo #55
@program #322:":initialize" this none this
{host} = args
c = this.con = open_network_connection(host, 22)
set_connection_option(c, "hold-input", 1)
set_connection_option(c, "binary", 1)
version = read(c)
while (index(version, "SSH-") != 1)
  player:tell(version)
  version = read(c)
endwhile
(i = index(version, "~0A")) && (version = version[1..i - 1])
(i = index(version, "~0D")) && (version = version[1..i - 1])
this.ssh_version = version
notify(c, "SSH-2.0-0.1~0D~0A")
p = $ssh:parse_packet(this:_read_packet())
if (p[1] != "SSH_MSG_KEXINIT")
  raise(E_INVARG, "SSH_MSG_KEXINIT expected from server")
endif
this:_send_KEXINIT()
"To be secure, lg2(p) < x < p"
x = "~03q"
"x = $bignum_utils:tobignum(random($maxint - 1) + 1);"
e = $bignum_utils:exp_mod($ssh.DH_g1_g, x, $ssh.DH_g1_p)
this:_send_KEXDH_INIT(e)
p = $ssh:parse_packet(this:_read_packet())
"Last modified by manta (#7165) on Wed Mar  7 10:21:49 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sun Aug 18 18:28:00 2002 MDT."
.