@verb #322:":_send_KEXINIT" this none this rxdo #55
@program #322:":_send_KEXINIT" this none this
cookie = {}
for x in [1..16]
  cookie = {@cookie, random(255)}
endfor
kex_algorithms = "diffie-hellman-group1-sha1"
server_host_key_algorithms = "ssh-dss"
encryption_algorithms_client_to_server = "3des-cbc"
encryption_algorithms_server_to_client = "3des-cbc"
mac_algorithms_client_to_server = "hmac-md5"
mac_algorithms_server_to_client = "hmac-md5"
compression_algorithms_client_to_server = "none"
compression_algorithms_server_to_client = "none"
languages_client_to_server = ""
languages_server_to_client = ""
packet = tostr(encode_binary("SSH_MSG_KEXINIT" in $ssh.messages, @cookie), $ssh:create_string(kex_algorithms), $ssh:create_string(server_host_key_algorithms), $ssh:create_string(encryption_algorithms_client_to_server), $ssh:create_string(encryption_algorithms_server_to_client), $ssh:create_string(mac_algorithms_client_to_server), $ssh:create_string(mac_algorithms_server_to_client), $ssh:create_string(compression_algorithms_client_to_server), $ssh:create_string(compression_algorithms_server_to_client), $ssh:create_string(languages_client_to_server), $ssh:create_string(languages_server_to_client), encode_binary(0), "~00~00~00~00")
this:_send_packet(packet)
"Last modified by manta (#7165) on Wed Mar  7 10:15:08 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:31 2002 MDT."
.