md5 complete + md5sum added as a prog.

git-svn-id: https://spexeah.com:8443/svn/Asuro@971 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/prog/md5sum.pas

@@ -0,0 +1,40 @@
+{ 
+	Prog->VMLog - Virtual Machine Event Log.
+	
+	@author(Kieron Morris <kjm@kieronmorris.me>)
+}
+unit md5sum;
+
+interface
+
+uses
+    console, terminal, keyboard, util, strings, tracer, md5;
+
+procedure init();
+
+implementation
+
+procedure run(Params : PParamList);
+var
+    md5word     : pchar;
+    wordlen     : uint32;
+    MD5_Hash    : PMD5Digest; 
+    i           : uint32;
+
+begin
+    md5word:= getParam(0, Params);
+    wordlen:= stringSize(md5word);
+    MD5_Hash := MD5Buffer(puint8(md5word), wordlen);
+    for i:=0 to 15 do begin
+        writehexpairWND(MD5_Hash^[i], getTerminalHWND);
+    end;
+    writestringlnWND(' ', getTerminalHWND);
+end;
+
+procedure init();
+begin
+    tracer.push_trace('md5sum.init');
+    terminal.registerCommand('MD5SUM', @Run, 'Perform MD5SUM on a word.');
+end;
+
+end.