diff --git a/.build_lobotomized_crypto b/.build_lobotomized_crypto
new file mode 100755
index 0000000000000000000000000000000000000000..81ce19ebff8cd78caf3b3d3638882da6e4957486
--- /dev/null
+++ b/.build_lobotomized_crypto
@@ -0,0 +1,4 @@
+#! /bin/sh
+
+(cd src/modules/_Crypto ; ./.build_lobotomized_crypto)
+
diff --git a/.zap_real_crypto b/.zap_real_crypto
new file mode 100755
index 0000000000000000000000000000000000000000..3d12ff5aabb551c4bf9a8dcb072ab1c0a008812b
--- /dev/null
+++ b/.zap_real_crypto
@@ -0,0 +1,16 @@
+#! /bin/sh
+
+# .zap_real_crypto
+
+echo "Do you really want to delete all cryptography source files?"
+case `read` in
+    y*|Y*)
+	rm -rf src/modules/_Crypto
+	rm -f lib/modules/Crypto/rsa.pike
+	echo "Done. Make sure there are no backup or autosavefiles left,"
+	echo "for example lib/modules/rsa.pike~."
+	;;
+    *)
+	echo "No harm done."
+	;;
+esac
diff --git a/src/modules/_Crypto/.build_lobotomized_crypto b/src/modules/_Crypto/.build_lobotomized_crypto
new file mode 100755
index 0000000000000000000000000000000000000000..3ba968e160d09d21ad6dcdbd015ff1d8b89d6695
--- /dev/null
+++ b/src/modules/_Crypto/.build_lobotomized_crypto
@@ -0,0 +1,29 @@
+#! /bin/sh
+
+# .build_lobotomized_crypto
+
+if [ -f cbc.c ]; then
+    echo ".build_lobotomized_crypto should be run in pike/src/modules/_Crypto"
+    exit 1
+fi
+
+echo "Creating _Lobotomized_Crypto directories..."
+mkdir -p ../_Lobotomized_Crypto
+mkdir -p ../_Lobotomized_Crypto/include
+mkdir -p ../_Lobotomized_Crypto/lib
+
+echo "Copying source files..."
+for d in . include lib; do
+    for f in `$d/.exportable_files`; do
+	echo $d/$f
+	cp $f ../_Lobotomized_Crypto/$d/$f
+    done
+done
+
+echo "Censoring sensitive files"
+for f in crypto.c Makefile.in lib/Makefile.in ; do
+    echo $f
+    sed '/BEGIN NATIONAL SECURITY/,/END NATIONAL SECURITY/d' \
+    < $f > ../_Lobotomized_Crypto/$f
+done
+