liyujie
2025-08-28 786ff4f4ca2374bdd9177f2e24b503d43e7a3b93
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#    $OpenBSD: dhgex.sh,v 1.3 2015/10/23 02:22:01 dtucker Exp $
#    Placed in the Public Domain.
 
tid="dhgex"
 
LOG=${TEST_SSH_LOGFILE}
rm -f ${LOG}
cp $OBJ/sshd_proxy $OBJ/sshd_proxy_bak
 
kexs=`${SSH} -Q kex | grep diffie-hellman-group-exchange`
 
ssh_test_dhgex()
{
   bits="$1"; shift
   cipher="$1"; shift
   kex="$1"; shift
 
   cp $OBJ/sshd_proxy_bak $OBJ/sshd_proxy
   echo "KexAlgorithms=$kex" >> $OBJ/sshd_proxy
   echo "Ciphers=$cipher" >> $OBJ/sshd_proxy
   rm -f ${LOG}
   opts="-oKexAlgorithms=$kex -oCiphers=$cipher"
   min=2048
   max=8192
   groupsz="$min<$bits<$max"
   verbose "$tid bits $bits $kex $cipher"
   ${SSH} ${opts} $@ -vvv -F ${OBJ}/ssh_proxy somehost true
   if [ $? -ne 0 ]; then
       fail "ssh failed ($@)"
   fi
   # check what we request
   grep "SSH2_MSG_KEX_DH_GEX_REQUEST($groupsz) sent" ${LOG} >/dev/null
   if [ $? != 0 ]; then
       got=`egrep "SSH2_MSG_KEX_DH_GEX_REQUEST(.*) sent" ${LOG}`
       fail "$tid unexpected GEX sizes, expected $groupsz, got $got"
   fi
   # check what we got (depends on contents of system moduli file)
   gotbits="`awk '/bits set:/{print $4}' ${LOG} | head -1 | cut -f2 -d/`"
   if [ "$gotbits" -lt "$bits" ]; then
       fatal "$tid expected $bits bit group, got $gotbits"
   fi
}
 
check()
{
   bits="$1"; shift
 
   for c in $@; do
       for k in $kexs; do
           ssh_test_dhgex $bits $c $k
       done
   done
}
 
#check 2048 3des-cbc
check 3072 `${SSH} -Q cipher | grep 128`
check 3072 arcfour blowfish-cbc
check 7680 `${SSH} -Q cipher | grep 192`
check 8192 `${SSH} -Q cipher | grep 256`
check 8192 rijndael-cbc@lysator.liu.se chacha20-poly1305@openssh.com