diff --git a/util/sanitize.pl b/util/sanitize.pl
deleted file mode 100644
index d989b6c5f3..0000000000
--- a/util/sanitize.pl
+++ /dev/null
@@ -1,235 +0,0 @@
-#!/usr/bin/perl
-#
-# Copyright (C) 2004  Internet Systems Consortium, Inc. ("ISC")
-# Copyright (C) 2000, 2001  Internet Software Consortium.
-#
-# Permission to use, copy, modify, and distribute this software for any
-# purpose with or without fee is hereby granted, provided that the above
-# copyright notice and this permission notice appear in all copies.
-#
-# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
-# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
-# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
-# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
-# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
-# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-# PERFORMANCE OF THIS SOFTWARE.
-
-# $Id: sanitize.pl,v 1.15.12.1 2004/03/06 13:16:24 marka Exp $
-
-# Don't try and sanitize this file: NOMINUM_IGNORE
-
-# Go through the directory tree and make sure that all of the files are
-# sanitized.
-#
-# In normal mode, check file, removing code between
-#      #ifndef key
-# and the accompanying #else or #endif.  Similarly, code in an #else
-# clause after an #ifndef test will be removed.  The #else or #endif's
-# must appear as:
-#      #else /* key */
-#      #endif /* key */
-# Balance is tested.
-# Non-.c/.h files are tested for the existance of NOMINUM_anything anywhere
-# in the file, and a warning is generated, unless the string
-# NOMINUM_IGNORE appears before NOMINUM_.
-
-# If the string key_DELETE is present, delete the file when the key
-# is present.
-
-# If the string key_KEEP is present, delete the file when the key
-# is absent.
-
-# Usage:
-#  ./sanitize.pl -c     - Check syntax only, don't change anything
-#  ./sanitize.pl -kkey  - Sanitize against key
-#  ./sanitize.pl -ikey  - Reverse sense of sanitize.
-#  ./sanitize.pl -      - Work as a pipe, sanitizing stdin to stdout.
-#  ./sanitize.pl file   - Sanitize the specified file.
-
-$makechange = 1;
-$debug = 0;
-$curkeys = 0;
-
-# States:
-#    0 - Outside of test, include code
-#    1 - Inside NOMINUM_PUBLIC
-#    2 - Inside !NOMINUM_PUBLIC
-
-foreach $arg (@ARGV) {
-	$_ = $arg;
-	if (/^-c$/i) {
-		$makechange = 0;
-	}
-	elsif (/^-k(.*)$/i) {
-		$showon[$curkeys] = 1;
-		$state[$curkeys] = 0;
-		$key[$curkeys++] = $1;
-	}
-	elsif (/^-i(.*)$/i) {
-		$showon[$curkeys] = 2;
-		$state[$curkeys] = 0;
-		$key[$curkeys++] = $1;
-	}
-	elsif (/^-$/i) {
-		&runfile("-","-");
-	}
-#	elsif (/^-a$/i) {
-#		&rundir();
-#	}
-	elsif (/^-d$/i) {
-		$debug = 1;
-	}
-	else {
-		&runfile($arg, $arg.".sanitize");
-	}
-}
-exit(0);
-
-
-sub runfile($) {
-	for ($i = 0 ; $i < $curkeys; $i++) {
-		$state[$i] = 0;
-	}
-	$deletefile = 0;
-
-	open(INFILE, $_[0]) || die ("$_[0]");
-	open(OUTFILE, ">$_[1]") || die ("$_[1]")
-		if ($makechange);
-	while (<INFILE>) {
-		if (/NOMINUM_IGNORE/) {
-			close(INFILE);
-			close(OUTFILE);
-			unlink($_[1]);
-			last;
-		}
-		$masterstate = 0;
-		$intest = 0;
-		for ($i = 0 ; $i < $curkeys; $i++) {
-			if ((/$key[$i]_DELETE/) &&
-			    ($showon[$i] == 1)) {
-				close(INFILE);
-				close(OUTFILE);
-				unlink($_[1]);
-				$deletefile = 1;
-				goto bailout;
-			}
-			elsif ((/$key[$i]_KEEP/) &&
-			    ($showon[$i] == 2)) {
-				close(INFILE);
-				close(OUTFILE);
-				unlink($_[1]);
-				$deletefile = 1;
-				goto bailout;
-			}
-			elsif (/\#.*ifdef.+$key[$i]/) {
-				if ($state[$i] != 0) {
-					print(STDERR "*** ERROR in file ".
-					      "$_[0] line $.: ".
-					      "#ifdef within unterminated ".
-					      "if[n]def ($key[$i])\n");
-					close(INFILE);
-					close(OUTFILE) if ($makechange);
-					unlink($_[1]);
-					goto bailout;
-				}
-				$masterstate++;
-				$state[$i] = 1;
-				goto doneline;
-			}
-			elsif (/\#.*ifndef.+$key[$i]/) {
-				if ($state[$i] != 0) {
-					print(STDERR "*** ERROR in file ".
-					      "$_[0] line $.: ".
-					      "#ifndef within unterminated ".
-					      "if[n]def ($key[$i])\n");
-					close(INFILE);
-					close(OUTFILE) if ($makechange);
-					unlink($_[1]);
-					last;
-				}
-				$masterstate++;
-				$state[$i] = 2;
-				goto doneline;
-
-			}
-			elsif (/\#.*else.+$key[$i]/) {
-				if ($state[$i] == 0) {
-					print(STDERR "*** ERROR in file ".
-					      "$_[0] line $.: ".
-					      "#else without matching ".
-					      "#if[n]def. ($key[$i])\n");
-					close(INFILE);
-					close(OUTFILE) if ($makechange);
-					unlink($_[1]);
-					last;
-				}
-				$masterstate++;
-				if ($state[$i] == 1) {
-					$state[$i] = 2;
-				} else {
-					$state[$i] = 1;
-				}
-				goto doneline;
-			}
-			elsif (/\#.*endif.+$key[$i]/) {
-				if ($state[$i] == 0) {
-					print(STDERR "*** ERROR in file ".
-					      "$_[0] line $.: ".
-					      "#endif without matching ".
-					      "#if[n]def. ($key[$i])\n");
-					close(INFILE);
-					close(OUTFILE) if ($makechange);
-					unlink($_[1]);
-					last;
-				}
-				$masterstate++;
-				$state[$i] = 0;
-				goto doneline;
-			}
-		}
-	      doneline:
-		for ($i = 0 ; $i < $curkeys; $i++) {
-			if ($state[$i] != 0) {
-				$intest++;
-			}
-			if (($state[$i] != 0) &&
-			    ($state[$i] != $showon[$i])) {
-				$masterstate++;
-				last;
-			}
-		}
-		if (($masterstate == 0) && $makechange) {
-			if ($intest != 0) {
-				if (/^#\+(.*)/) {
-				    print(OUTFILE "$1\n");
-			    } else {
-				    print(OUTFILE);
-			    }
-			} else {
-				print(OUTFILE);
-			}
-		}
-	}
-      bailout:
-	$masterstate = 0;
-	for ($i = 0 ; $i < $curkeys; $i++) {
-		if ($state[$i] != 0) {
-			print(STDERR "*** ERROR in file $_[0]: ".
-			      "file ended with unterminated test.  ".
-			      "$key[$i]\n");
-			$masterstate++;
-		}
-	}
-	if ($masterstate == 0) {
-		close(INFILE);
-		close(OUTFILE) if ($makechange);
-		if (($_[0] ne "-") && ($makechange)) {
-			unlink($_[0]) || die "unlink $_[0]:";
-			if (!$deletefile) {
-				rename($_[1], $_[0]) ||
-					die "rename $_[1] to $_[0]:";
-			}
-		}
-	}
-}
diff --git a/util/sanitize_all.sh b/util/sanitize_all.sh
deleted file mode 100755
index 09be16bd12..0000000000
--- a/util/sanitize_all.sh
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/bin/sh
-#
-# Copyright (C) 2004  Internet Systems Consortium, Inc. ("ISC")
-# Copyright (C) 2000, 2001  Internet Software Consortium.
-#
-# Permission to use, copy, modify, and distribute this software for any
-# purpose with or without fee is hereby granted, provided that the above
-# copyright notice and this permission notice appear in all copies.
-#
-# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
-# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
-# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
-# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
-# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
-# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-# PERFORMANCE OF THIS SOFTWARE.
-
-# $Id: sanitize_all.sh,v 1.11.12.1 2004/03/06 13:16:25 marka Exp $
-
-PERL=perl5
-
-# Run this shell script from a CVS export'ed source tree, and it will
-# sanitize all of the files in that tree.
-
-SANITIZE_FLAGS="-kNOMINUM_PUBLIC -iDNS_OPT_NEWCODES -iDNS_OPT_NEWCODES_LIVE"
-
-find . -name '*.[ch]' -o -name '*.in' |
-	xargs $PERL util/sanitize.pl $SANITIZE_FLAGS
-
-for file in `find . -name '*.dirty'`
-do
-    clean=`echo $file | sed 's/\.dirty$//'`
-    $PERL util/sanitize.pl $SANITIZE_FLAGS - < $file > $clean
-    rm $file
-done
-