New program for finding a machine's ownership tag (only found in Compaq

machines).

1 files changed, 183 insertions, 0 deletions

diff --git a/ownership.c b/ownership.c
new file mode 100644
index 0000000..36e0809
--- /dev/null
+++ b/ownership.c
@@ -0,0 +1,183 @@
+/*
+ * Compaq Ownership Tag
+ *
+ *   (C) 2003 Jean Delvare <khali@linux-fr.org>
+ *
+ *   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; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+ *
+ *   For the avoidance of doubt the "preferred form" of this code is one which
+ *   is in an open unpatent encumbered format. Where cryptographic key signing
+ *   forms part of the process of creating an executable the information 
+ *   including keys needed to generate an equivalently functional executable
+ *   are deemed to be part of the source code.
+ *
+ * References:
+ *   None, this is guess work.
+ */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+#include "types.h"
+#include "util.h"
+
+#define WORD(x) (*(const u16 *)(x))
+#define DWORD(x) (*(const u32 *)(x))
+
+static void ownership(int fd, u32 base, const char *pname, const char *devmem)
+{
+	u8 *buf;
+	int i;
+	
+	if((buf=malloc(0x51))==NULL)
+	{
+		perror(pname);
+		return;
+	}
+	
+	/* read the ownership tag */
+	if(lseek(fd, (off_t)base, SEEK_SET)==-1)
+	{
+		perror(devmem);
+		return;
+	}
+	if(myread(fd, buf, 0x50, devmem)==-1)
+	{
+		free(buf);
+		exit(1);
+	}
+	
+	/* chop the trailing garbage */
+	i=0x4f;
+	while(i>=0 && (buf[i]==0x20 || buf[i]==0x00))
+		i--;
+	buf[i+1]='\0';
+	
+	/* filter and print */
+	if(i>=0)
+	{
+		for(; i>=0; i--)
+		{
+			if(buf[i]<32 || (buf[i]>=127 && buf[i]<160))
+				buf[i]='?';
+		}
+		printf("%s\n", buf);
+	}
+
+	free(buf);
+}
+
+static u32 decode(const u8 *p)
+{
+	int i;
+
+	/* integrity checking (lack of checksum) */
+	for(i=0; i<p[4]; i++)
+	{
+		if(p[5+i*10]!='$' || !(p[6+i*10]>='A' && p[6+i*10]<='Z')
+			|| !(p[7+i*10]>='A' && p[7+i*10]<='Z')
+			|| !(p[8+i*10]>='A' && p[8+i*10]<='Z'))
+		{
+			printf("\t Abnormal Entry! Please report. [%02x %02x %02x %02x]\n",
+				p[5+i*10], p[6+i*10], p[7+i*10], p[8+i*10]);
+			return 0;
+		}
+	}
+	
+	/* search for the right entry */
+	for(i=0; i<p[4]; i++)
+		if(memcmp(p+5+i*10, "$ERB", 4)==0)
+			return DWORD(p+9+i*10);
+	
+	return 0;
+}
+
+int main(__attribute__ ((unused)) int argc, const char *argv[])
+{
+	u8 buf[16];
+	int fd;
+	off_t fp=0xE0000;
+	const char *devmem="/dev/mem";
+	int ok=0;
+	
+	if(sizeof(u8)!=1 || sizeof(u16)!=2 || sizeof(u32)!=4)
+	{
+		fprintf(stderr,"%s: compiler incompatibility\n", argv[0]);
+		exit(255);
+	}
+	
+	if(argc>=2)
+		devmem=argv[1];
+	if((fd=open(devmem, O_RDONLY))==-1 || lseek(fd, fp, SEEK_SET)==-1)
+	{
+		perror(devmem);
+		exit(1);
+	}
+
+	while(!ok && fp<0xFFFFF)
+	{
+		if(myread(fd, buf, 16, devmem)==-1)
+			exit(1);
+		
+		if(memcmp((char *)buf, "32OS", 4)==0)
+		{
+			off_t len=buf[4]*10+5;
+			u8 *p;
+
+			if(fp+len-1<=0xFFFFF)
+			{
+				u32 base;
+				
+				if((p=malloc(len))==NULL)
+				{
+					perror("malloc");
+					exit(1);
+				}
+
+				memcpy(p, buf, 16);
+				if(len>16)
+				{
+					/* buffer completion */
+					if(myread(fd, p+16, len-16, devmem)==-1)
+					{
+						free(p);
+						exit(1);
+					}
+				}
+				if((base=decode(p)))
+				{
+					ok=1;
+					ownership(fd, base, argv[0], devmem);
+				}
+				else
+					lseek(fd, fp+16, SEEK_SET);
+				free(p);
+			}
+		}
+		fp+=16;
+	}
+	
+	if(close(fd)==-1)
+	{
+		perror(devmem);
+		exit(1);
+	}
+	
+	return 0;
+}