libventi: add functions vtsha1 and vtsha1check

These functions are equivalent to vtSha1 and vtSha1Check
from the old libventi and are particularly used by Fossil.

R=rsc
http://codereview.appspot.com/5555064
diff --git a/include/venti.h b/include/venti.h
index d6b753b..45c0aab 100644
--- a/include/venti.h
+++ b/include/venti.h
@@ -381,6 +381,10 @@
 int	vtsync(VtConn*);
 int	vtping(VtConn*);
 
+/* sha1 */
+void	vtsha1(uchar score[VtScoreSize], uchar*, int);
+int	vtsha1check(uchar score[VtScoreSize], uchar*, int);
+
 /*
  * Data blocks and block cache.
  */
diff --git a/src/libventi/mkfile b/src/libventi/mkfile
index 289262a..3788185 100644
--- a/src/libventi/mkfile
+++ b/src/libventi/mkfile
@@ -24,6 +24,7 @@
 	scorefmt.$O\
 	send.$O\
 	server.$O\
+	sha1.$O\
 	srvhello.$O\
 	strdup.$O\
 	string.$O\
diff --git a/src/libventi/sha1.c b/src/libventi/sha1.c
new file mode 100644
index 0000000..358f923
--- /dev/null
+++ b/src/libventi/sha1.c
@@ -0,0 +1,28 @@
+#include <u.h>
+#include <libc.h>
+#include <venti.h>
+#include <libsec.h>
+
+void
+vtsha1(uchar score[VtScoreSize], uchar *p, int n)
+{
+	DigestState ds;
+
+	memset(&ds, 0, sizeof ds);
+	sha1(p, n, score, &ds);
+}
+
+int
+vtsha1check(uchar score[VtScoreSize], uchar *p, int n)
+{
+	DigestState ds;
+	uchar score2[VtScoreSize];
+
+	memset(&ds, 0, sizeof ds);
+	sha1(p, n, score2, &ds);
+	if(memcmp(score, score2, VtScoreSize) != 0) {
+		werrstr("vtsha1check failed");
+		return -1;
+	}
+	return 0;
+}