src/Modules/md5.pl

   1 #       md5.pl: md5 a string
   2 #       Author: Tim Riker
   3 #    Licensing: Artistic License
   4 #      Version: v0.1 (20041209)
   5 #
   6 use strict;
   7
   8 package md5;
   9
  10 sub md5 {
  11     my($message) = @_;
  12     return unless &::loadPerlModule('Digest::MD5');
  13
  14     &::performStrictReply(&Digest::MD5::md5_hex($message));
  15 }
  16
  17 1;
  18
  19 # vim:ts=4:sw=4:expandtab:tw=80