:
# wipefile - completely overwrite a file
# Heiner Steven (heiner.steven@odn.de), 7/96

PN=`basename "$0"`			# Program name

Times=1				# Number of times to overwrite
for File
do
    [ -f "$File" ] || continue

    Size=`ls -ld "$File" | awk '{print $(NF-4)}'`
    echo "$PN: really overwrite and delete <$File> ($Size bytes) (y/n)? \c"
    read ok || exit 2
    case "$ok" in
	y)	;;
	*)	continue;;
    esac

    echo "$PN: wiping <$File> $Times times..."; sleep 3
    i=0
    while [ $i -lt $Times ]
    do
	dd if=/dev/zero of="$File" bs=1 count="$Size" 2>/dev/null ||
		continue 2
	i=`expr $i + 1`
    done
    rm -f "$File"
done