diff --git a/bin/blackbox_shred_all_files b/bin/blackbox_shred_all_files
new file mode 100755
index 0000000..8324ecf
--- /dev/null
+++ b/bin/blackbox_shred_all_files
@@ -0,0 +1,23 @@
+#!/usr/bin/env bash
+
+#
+# blackbox_shred_all_files -- shred all decrypted versions of encrypted files
+#
+
+set -e
+. _blackbox_common.sh
+
+echo '========== ENCRYPTED FILES THAT WERE UNLOCKED:'
+awk <"$BB_FILES" '{ print "    " $1 ".gpg" }'
+
+echo '========== FILES THAT WILL BE SHREDDED:'
+need_warning=false
+for i in $(<$BB_FILES) ; do
+  unencrypted_file=$(get_unencrypted_filename "$i")
+  encrypted_file=$(get_encrypted_filename "$i")
+  if [[ -f "$unencrypted_file" ]]; then
+    shred_file "$unencrypted_file"
+  fi
+done
+
+echo '========== DONE.'