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;