md5.nim

# crypto/md5/md5.h 
# Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
#  All rights reserved.
# 
#  This package is an SSL implementation written
#  by Eric Young (eay@cryptsoft.com).
#  The implementation was written so as to conform with Netscapes SSL.
#  
#  This library is free for commercial and non-commercial use as long as
#  the following conditions are aheared to.  The following conditions
#  apply to all code found in this distribution, be it the RC4, RSA,
#  lhash, DES, etc., code; not just the SSL code.  The SSL documentation
#  included with this distribution is covered by the same copyright terms
#  except that the holder is Tim Hudson (tjh@cryptsoft.com).
#  
#  Copyright remains Eric Young's, and as such any Copyright notices in
#  the code are not to be removed.
#  If this package is used in a product, Eric Young should be given attribution
#  as the author of the parts of the library used.
#  This can be in the form of a textual message at program startup or
#  in documentation (online or textual) provided with the package.
#  
#  Redistribution and use in source and binary forms, with or without
#  modification, are permitted provided that the following conditions
#  are met:
#  1. Redistributions of source code must retain the copyright
#     notice, this list of conditions and the following disclaimer.
#  2. Redistributions in binary form must reproduce the above copyright
#     notice, this list of conditions and the following disclaimer in the
#     documentation and/or other materials provided with the distribution.
#  3. All advertising materials mentioning features or use of this software
#     must display the following acknowledgement:
#     "This product includes cryptographic software written by
#      Eric Young (eay@cryptsoft.com)"
#     The word 'cryptographic' can be left out if the rouines from the library
#     being used are not cryptographic related :-).
#  4. If you include any Windows specific code (or a derivative thereof) from 
#     the apps directory (application code) you must include an acknowledgement:
#     "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
#  
#  THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
#  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
#  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
#  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
#  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
#  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
#  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
#  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
#  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
#  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
#  SUCH DAMAGE.
#  
#  The licence and distribution terms for any publically available version or
#  derivative of this code cannot be changed.  i.e. this code cannot simply be
#  copied and put under another distribution licence
#  [including the GNU Public Licence.]
# 

when defined(WINDOWS): 
  const 
    DLLUtilName = "libeay32.dll"
  from winlean import TSocketHandle
else:
  const
    versions = "(|.1.0.0|.0.9.9|.0.9.8|.0.9.7|.0.9.6|.0.9.5|.0.9.4)"
  when defined(macosx):
    const
      DLLUtilName = "libcrypto" & versions & ".dylib"
  else:
    const 
      DLLUtilName = "libcrypto.so" & versions
#
#  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#  ! MD5_LONG has to be at least 32 bits wide. If it's wider, then !
#  ! MD5_LONG_LOG2 has to be defined along.			   !
#  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# 
type 
  MD5_LONG* {.importc,header:"<openssl/md5.h>".} = cuint
const 
  MD5_CBLOCK* = 64
  MD5_LBLOCK* = int(MD5_CBLOCK div 4)
  MD5_DIGEST_LENGTH* = 16
type 
  MD5_CTX* {.importc.} = object 
    A*: MD5_LONG
    B*: MD5_LONG
    C*: MD5_LONG
    D*: MD5_LONG
    Nl*: MD5_LONG
    Nh*: MD5_LONG
    data*: array[MD5_LBLOCK, MD5_LONG]
    num*: cuint

{.pragma: ic, importc: "$1".}
{.push callconv:cdecl, dynlib:DLLUtilName.}
proc MD5_Init*(c: var MD5_CTX): cint{.ic.}
proc MD5_Update*(c: var MD5_CTX; data: pointer; len: csize): cint{.ic.}
proc MD5_Final*(md: cstring; c: var MD5_CTX): cint{.ic.}
proc MD5*(d: ptr cuchar; n: csize; md: ptr cuchar): ptr cuchar{.ic.}
proc MD5_Transform*(c: var MD5_CTX; b: ptr cuchar){.ic.}
{.pop.}

from strutils import toHex,toLower

proc MD5_File* (file: string): string =
  const
    sz = 512
  let f = open(file,fmRead)
  var
    buf: array[sz,char]
    c: MD5_CTX

  discard c.md5_init
  while(let bytes = f.readChars(buf, 0, sz); bytes > 0):
    discard c.md5_update(buf[0].addr, bytes)

  discard buf[0].addr.md5_final c
  f.close
  
  result = newStringOfCap(32)
  for i in 0 .. <16:
    result.add toHex(ord(buf[i]),2).toLower