misc/luabash/md5/md5.lua

   1 -- --- T2-COPYRIGHT-NOTE-BEGIN ---
   2 -- This copyright note is auto-generated by ./scripts/Create-CopyPatch.
   3 --
   4 -- T2 SDE: misc/luabash/md5/md5.lua
   5 -- Copyright (C) 2006 The T2 SDE Project
   6 -- Copyright (C) 2005 Roberto Ierusalimschy
   7 --
   8 -- More information can be found in the files COPYING and README.
   9 --
  10 -- This program is free software; you can redistribute it and/or modify
  11 -- it under the terms of the GNU General Public License as published by
  12 -- the Free Software Foundation; version 2 of the License. A copy of the
  13 -- GNU General Public License can be found in the file COPYING.
  14 -- --- T2-COPYRIGHT-NOTE-END ---
  15
  16 ----------------------------------------------------------------------------
  17 -- $Id: md5.lua,v 1.4 2006/08/21 19:24:21 carregal Exp $
  18 ----------------------------------------------------------------------------
  19
  20 local core = require"md5.core"
  21 local string = require"string"
  22
  23 module ("md5")
  24
  25 ----------------------------------------------------------------------------
  26 -- @param k String with original message.
  27 -- @return String with the md5 hash value converted to hexadecimal digits
  28
  29 function sum (k)
  30   return (string.gsub(core.dosum(k), ".", function (c)
  31            return string.format("%02x", string.byte(c))
  32          end))
  33 end