Skip to content
Snippets Groups Projects
test_strings.sh 1.53 KiB
Newer Older
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
export AFL_TIMEOUT=15
export AFL_SKIP_CPUFREQ=1
export AFL_SKIP_BIN_CHECK=1
export AFL_I_DONT_CARE_ABOUT_MISSING_CRASHES=1
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$SECURITY_TRANSFORMS_HOME/lib/:. 

Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
session=/tmp/tmp.$(whoami).zafl.strings.$$
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed

cleanup()
{
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
	rm -fr $session
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
}

log_error()
{
	echo "TEST FAIL: $1"
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
	cleanup
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
	exit 1
}

log_message()
{
	echo "TEST  MSG: $1"
}

log_success()
{
	echo "TEST PASS: $1"
}

fuzz_with_zafl()
{
	strings_zafl=$1

	# setup AFL directories
	mkdir zafl_in
	echo "1" > zafl_in/1

	if [ -d zafl_out ]; then
		rm -fr zafl_out
	fi

	# run for 30 seconds
	timeout $AFL_TIMEOUT afl-fuzz -i zafl_in -o zafl_out -- $strings_zafl 
	if [ $? -eq 124 ]; then
		if [ ! -e zafl_out/fuzzer_stats ]; then
			log_error "$strings_zafl: something went wrong with afl -- no fuzzer stats file"
		fi

		cat zafl_out/fuzzer_stats
		execs_per_sec=$( grep execs_per_sec zafl_out/fuzzer_stats )
		log_success "$strings_zafl: $execs_per_sec"
	else
		log_error "$strings_zafl: unable to run with afl"
	fi

}

Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
loc_afl=$(which afl-fuzz)
if [ -z "$loc_afl" ]; then
	which afl-fuzz
	log_error "afl-fuzz not found"
fi

Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
mkdir $session
pushd $session

# build ZAFL version of strings executable
Jason Hiser's avatar
Jason Hiser committed
zafl.sh `which strings` strings.zafl.d.g.laf --enable-laf -d -g --tempdir analysis.strings.zafl.d.g.laf 
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
if [ $? -eq 0 ]; then
	log_success "build strings.zafl.d.g.laf"
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
else
	log_error "build strings.zafl.d.g.laf"
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed
fi
grep ATTR analysis.strings.zafl.d.g.laf/logs/zax.log
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed

log_message "Fuzz for $AFL_TIMEOUT secs"
fuzz_with_zafl $(realpath ./strings.zafl.d.g.laf)
Anh Nguyen-Tuong's avatar
Anh Nguyen-Tuong committed

cleanup
popd