From: beware <beware@bircd.org>
Date: Thu, 16 Mar 2023 14:21:13 +0000 (+0000)
Subject: add md5selftest to fastmd5
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/a77cd534c22418ec9a8a22ae42efef1a9500b193

add md5selftest to fastmd5
---

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