fix slow send speed, new fifo allows get of entire buffer

[lcore.git] / fastmd5.pas

diff --git a/fastmd5.pas b/fastmd5.pas
index 27755b90bf51707a02341426dd5b4ca5c352a3d6..ad19876be73d5f05f63e13f9eedd7809f639ad0c 100644 (file)
--- a/fastmd5.pas
+++ b/fastmd5.pas
@@ -57,6 +57,8 @@ procedure getmd5(const data;len:longint;var result);
 \r
 function md5tostr(const md5:tmd5):ansistring;\r
 \r
+function md5selftest:boolean;\r
+\r
 implementation\r
 \r
 function inttohex(val,bits:integer):ansistring;\r
@@ -294,4 +296,18 @@ begin
   md5tostr := s;\r
 end;\r
 \r
+function md5selftest;\r
+const\r
+  teststring:ansistring='The quick brown fox jumps over the lazy dog';\r
+  testresult:array[0..15] of byte=($9e,$10,$7d,$9d,$37,$2b,$b6,$82,$6b,$d8,$1d,$35,$42,$a4,$19,$d6);\r
+var\r
+  h:tmd5;\r
+  a:integer;\r
+begin\r
+  getmd5(teststring[1],length(teststring),h);\r
+  result := true;\r
+  for a := 0 to 15 do if h[a] <> ord(testresult[a]) then result := false;\r
+end;\r
+\r
+\r
 end.\r