/[lcore]/trunk/fastmd5.pas
ViewVC logotype

Diff of /trunk/fastmd5.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 61 by plugwash, Thu Feb 4 22:47:07 2010 UTC revision 79 by zipplet, Tue Feb 16 22:51:30 2010 UTC
# Line 55  Line 55 
55    
56  procedure getmd5(const data;len:longint;var result);  procedure getmd5(const data;len:longint;var result);
57    
58  function md5tostr(const md5:tmd5):string;  function md5tostr(const md5:tmd5):ansistring;
59    
60  implementation  implementation
61    
62  function inttohex(val,bits:integer):string;  function inttohex(val,bits:integer):ansistring;
63  const  const
64    hexchar:array[0..15] of char='0123456789abcdef';    hexchar:array[0..15] of ansichar='0123456789abcdef';
65  begin  begin
66    inttohex := hexchar[val shr 4]+hexchar[val and $f];    inttohex := hexchar[val shr 4]+hexchar[val and $f];
67  end;  end;
# Line 284  Line 284 
284    md5finish(t,result);    md5finish(t,result);
285  end;  end;
286    
287  function md5tostr(const md5:tmd5):string;  function md5tostr(const md5:tmd5):ansistring;
288  var  var
289    a:integer;    a:integer;
290    s:string;    s:ansistring;
291  begin  begin
292    s := '';    s := '';
293    for a := 0 to 15 do s := s + inttohex(md5[a],2);    for a := 0 to 15 do s := s + inttohex(md5[a],2);

Legend:
Removed from v.61  
changed lines
  Added in v.79

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22