1# $OpenBSD: integrity.sh,v 1.10 2013/05/17 01:32:11 dtucker Exp $ 2# Placed in the Public Domain. 3 4tid="integrity" 5 6# start at byte 2900 (i.e. after kex) and corrupt at different offsets 7# XXX the test hangs if we modify the low bytes of the packet length 8# XXX and ssh tries to read... 9tries=10 10startoffset=2900 11macs="hmac-sha1 hmac-md5 umac-64@openssh.com umac-128@openssh.com 12 hmac-sha1-96 hmac-md5-96 13 hmac-sha1-etm@openssh.com hmac-md5-etm@openssh.com 14 umac-64-etm@openssh.com umac-128-etm@openssh.com 15 hmac-sha1-96-etm@openssh.com hmac-md5-96-etm@openssh.com" 16config_defined HAVE_EVP_SHA256 && 17 macs="$macs hmac-sha2-256 hmac-sha2-512 18 hmac-sha2-256-etm@openssh.com hmac-sha2-512-etm@openssh.com" 19# The following are not MACs, but ciphers with integrated integrity. They are 20# handled specially below. 21config_defined OPENSSL_HAVE_EVPGCM && \ 22 macs="$macs aes128-gcm@openssh.com aes256-gcm@openssh.com" 23 24# avoid DH group exchange as the extra traffic makes it harder to get the 25# offset into the stream right. 26echo "KexAlgorithms diffie-hellman-group14-sha1,diffie-hellman-group1-sha1" \ 27 >> $OBJ/ssh_proxy 28 29# sshd-command for proxy (see test-exec.sh) 30cmd="$SUDO sh ${SRC}/sshd-log-wrapper.sh ${SSHD} ${TEST_SSHD_LOGFILE} -i -f $OBJ/sshd_proxy" 31 32for m in $macs; do 33 trace "test $tid: mac $m" 34 elen=0 35 epad=0 36 emac=0 37 ecnt=0 38 skip=0 39 for off in `jot $tries $startoffset`; do 40 skip=`expr $skip - 1` 41 if [ $skip -gt 0 ]; then 42 # avoid modifying the high bytes of the length 43 continue 44 fi 45 # modify output from sshd at offset $off 46 pxy="proxycommand=$cmd | $OBJ/modpipe -wm xor:$off:1" 47 case $m in 48 aes*gcm*) macopt="-c $m";; 49 *) macopt="-m $m";; 50 esac 51 verbose "test $tid: $m @$off" 52 ${SSH} $macopt -2F $OBJ/ssh_proxy -o "$pxy" \ 53 999.999.999.999 'printf "%4096s" " "' >/dev/null 54 if [ $? -eq 0 ]; then 55 fail "ssh -m $m succeeds with bit-flip at $off" 56 fi 57 ecnt=`expr $ecnt + 1` 58 output=$(tail -2 $TEST_SSH_LOGFILE | egrep -v "^debug" | \ 59 tr -s '\r\n' '.') 60 case "$output" in 61 Bad?packet*) elen=`expr $elen + 1`; skip=3;; 62 Corrupted?MAC* | Decryption?integrity?check?failed*) 63 emac=`expr $emac + 1`; skip=0;; 64 padding*) epad=`expr $epad + 1`; skip=0;; 65 *) fail "unexpected error mac $m at $off";; 66 esac 67 done 68 verbose "test $tid: $ecnt errors: mac $emac padding $epad length $elen" 69 if [ $emac -eq 0 ]; then 70 fail "$m: no mac errors" 71 fi 72 expect=`expr $ecnt - $epad - $elen` 73 if [ $emac -ne $expect ]; then 74 fail "$m: expected $expect mac errors, got $emac" 75 fi 76done 77