]> git.donarmstrong.com Git - infobot.git/blob - src/Modules/md5.pl
md5
[infobot.git] / 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 #perl -e'use Digest::MD5 qw(md5_hex); print md5_hex("foo\n") . "\n";'
15
16     &::pSReply(&Digest::MD5::md5_hex($message));
17 }
18
19 1;