diff --git a/ntfsprogs/cluster.c b/ntfsprogs/cluster.c
index e69de29b..cc1d7c3a 100644
--- a/ntfsprogs/cluster.c
+++ b/ntfsprogs/cluster.c
@@ -0,0 +1,134 @@
+/**
+ * cluster - Part of the Linux-NTFS project.
+ *
+ * Copyright (c) 2002-2003 Richard Russon
+ *
+ * This function will locate the owner of any given sector or cluster range.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program (in the main directory of the Linux-NTFS
+ * distribution in the file COPYING); if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "config.h"
+
+#include <stdio.h>
+#include <getopt.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "cluster.h"
+#include "utils.h"
+
+DEC_PRINTF (Eprintf)
+DEC_PRINTF (Vprintf)
+DEC_PRINTF (Qprintf)
+
+#define RED	""
+#define YELLOW	""
+#define GREEN	""
+#define NORM	""
+
+/**
+ * cluster_find
+ */
+int cluster_find (ntfs_volume *vol, LCN c_begin, LCN c_end, cluster_cb *cb, void *data)
+{
+	u64 i;
+	int j;
+	int in_use = 0;
+	int result = -1;
+	struct mft_search_ctx *m_ctx = NULL;
+	ntfs_attr_search_ctx  *a_ctx = NULL;
+	ATTR_RECORD *rec;
+	runlist *runs;
+
+	if (!vol || !cb)
+		return -1;
+
+	// Quick check that at least one cluster is in use
+	for (i = c_begin; (LCN)i < c_end; i++) {
+		if (utils_cluster_in_use (vol, i) == 1) {
+			in_use = 1;
+			break;
+		}
+	}
+
+	if (!in_use) {
+		if (c_begin == c_end)
+			Vprintf ("cluster isn't in use\n");
+		else
+			Vprintf ("clusters aren't in use\n");
+		return 0;
+	}
+
+	m_ctx = mft_get_search_ctx (vol);
+	m_ctx->flags_search = FEMR_IN_USE | FEMR_BASE_RECORD;
+
+	while (mft_next_record (m_ctx) == 0) {
+		printf (RED "Inode: %lld\n" NORM, m_ctx->inode->mft_no);
+
+		if (!(m_ctx->flags_match & FEMR_BASE_RECORD))
+			continue;
+
+		Vprintf ("Inode: %lld\n", m_ctx->inode->mft_no);
+
+		a_ctx = ntfs_attr_get_search_ctx (NULL, m_ctx->inode->mrec);
+
+		while ((rec = find_attribute (AT_UNUSED, a_ctx))) {
+
+			if (!rec->non_resident) {
+				Vprintf ("0x%02x skipped - attr is resident\n", a_ctx->attr->type);
+				continue;
+			}
+
+			runs = ntfs_mapping_pairs_decompress (vol, a_ctx->attr, NULL);
+			if (!runs) {
+				Eprintf ("Couldn't read the data runs.\n");
+				goto done;
+			}
+
+			Vprintf ("\t[0x%02X]\n", a_ctx->attr->type);
+
+			Vprintf ("\t\tVCN\tLCN\tLength\n");
+			for (j = 0; runs[j].length > 0; j++) {
+				LCN a_begin = runs[j].lcn;
+				LCN a_end   = a_begin + runs[j].length - 1;
+
+				if (a_begin < 0)
+					continue;	// sparse, discontiguous, etc
+
+				Vprintf ("\t\t%lld\t%lld-%lld (%lld)\n", runs[j].vcn, runs[j].lcn, runs[j].lcn + runs[j].length - 1, runs[j].length);
+				//dprint list
+
+				if ((a_begin > c_end) || (a_end < c_begin))
+					continue;	// before or after search range
+
+				if ((*cb) (m_ctx->inode, a_ctx->attr, runs+j, data))
+					return 1;
+			}
+		}
+
+		ntfs_attr_put_search_ctx (a_ctx);
+		a_ctx = NULL;
+	}
+
+	result = 0;
+done:
+	ntfs_attr_put_search_ctx (a_ctx);
+	mft_put_search_ctx (m_ctx);
+
+	return result;
+}
+