summaryrefslogtreecommitdiff
path: root/img/lib/IM/MD5.pm
diff options
context:
space:
mode:
Diffstat (limited to 'img/lib/IM/MD5.pm')
-rw-r--r--img/lib/IM/MD5.pm189
1 files changed, 103 insertions, 86 deletions
diff --git a/img/lib/IM/MD5.pm b/img/lib/IM/MD5.pm
index ba9fe4f7..3c995b28 100644
--- a/img/lib/IM/MD5.pm
+++ b/img/lib/IM/MD5.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Apr 14, 2000
+### Revised: Dec 7, 2002
###
-my $PM_VERSION = "IM::MD5.pm version 20000414(IM141)";
+my $PM_VERSION = "IM::MD5.pm version 20021207(IM142)";
package IM::MD5;
require 5.003;
@@ -21,30 +21,6 @@ use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(md5_str);
-=head1 NAME
-
-MD5 - The MD5 Message-Digesting package
-
-=head1 SYNOPSIS
-
- use IM::MD5;
-
- $digest = &md5_str($text);
-
-=head1 DESCRIPTION
-
- &md5_str("") returns d41d8cd98f00b204e9800998ecf8427e.
- &md5_str("a") returns 0cc175b9c0f1b6a831c399e269772661.
- &md5_str("abc") returns 900150983cd24fb0d6963f7d28e17f72.
- &md5_str("message digest") returns f96b697d7cb7938d525a2f31aaf161d0.
- &md5_str("abcdefghijklmnopqrstuvwxyz") returns c3fcd3d76192e4007dfb496cca67e13b.
- &md5_str("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789") returns d174ab98d277d9f5a5611c2c9f419d9f.
- &md5_str("12345678901234567890123456789012345678901234567890123456789012345678901234567890") returns 57edf4a22be3c955ac49da2e2107b67a.
-
- % perl -MIM::MD5 -e 'IM::MD5::MD5_TEST()'
-
-=cut
-
use vars qw($MD5_S11 $MD5_S12 $MD5_S13 $MD5_S14
$MD5_S21 $MD5_S22 $MD5_S23 $MD5_S24
$MD5_S31 $MD5_S32 $MD5_S33 $MD5_S34
@@ -54,11 +30,11 @@ use vars qw($MD5_S11 $MD5_S12 $MD5_S13 $MD5_S14
# MD5 routines #
################
-sub md5_str ($) {
+sub md5_str($) {
my($str) = @_;
my($len);
- my (@context_count, @context_state, @context_buffer);
- my (@digest);
+ my(@context_count, @context_state, @context_buffer);
+ my(@digest);
$len = length($str);
my @string = unpack('C*', $str);
@@ -69,41 +45,10 @@ sub md5_str ($) {
&MD5Final(\@digest, \@context_count, \@context_state, \@context_buffer);
return unpack('H*', pack('C*', @digest));
- }
+}
###############################################################################
-###
-### md5.pl -- MD5 message-digest algorithm converted to Perl4 from C version
-###
-### Copyright (C) 1996 by NAKAMURA, Motonori <motonori@econ.kyoto-u.ac.jp>.
-### All rights reserved.
-### [August 16, 1996]
-
-# MD5C.C - RSA Data Security, Inc., MD5 message-digest algorithm
-
-# Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All
-# rights reserved.
-
-# License to copy and use this software is granted provided that it
-# is identified as the "RSA Data Security, Inc. MD5 Message-Digest
-# Algorithm" in all material mentioning or referencing this software
-# or this function.
-
-# License is also granted to make and use derivative works provided
-# that such works are identified as "derived from the RSA Data
-# Security, Inc. MD5 Message-Digest Algorithm" in all material
-# mentioning or referencing the derived work.
-
-# RSA Data Security, Inc. makes no representations concerning either
-# the merchantability of this software or the suitability of this
-# software for any particular purpose. It is provided "as is"
-# without express or implied warranty of any kind.
-
-# These notices must be retained in any copies of any part of this
-# documentation and/or software.
-
-
# F, G, H and I are basic MD5 functions.
sub MD5_F {my($x, $y, $z) = @_; ((($x) & ($y)) | (&MD5_trunc(~$x) & ($z))); }
@@ -130,19 +75,19 @@ sub MD5_FF {
$a = &MD5_trunc($a + &MD5_F($b, $c, $d) + $x + $ac);
$a = &MD5_ROTATE_LEFT($a, $s);
$a = &MD5_trunc($a + $b);
- }
+}
sub MD5_GG {
my($a, $b, $c, $d, $x, $s, $ac) = @_;
$a = &MD5_trunc($a + &MD5_G($b, $c, $d) + $x + $ac);
$a = &MD5_ROTATE_LEFT($a, $s);
$a = &MD5_trunc($a + $b);
- }
+}
sub MD5_HH {
my($a, $b, $c, $d, $x, $s, $ac) = @_;
$a = &MD5_trunc($a + &MD5_H($b, $c, $d) + $x + $ac);
$a = &MD5_ROTATE_LEFT($a, $s);
$a = &MD5_trunc($a + $b);
- }
+}
sub MD5_II {
my($a, $b, $c, $d, $x, $s, $ac) = @_;
$a = &MD5_trunc($a + &MD5_I($b, $c, $d) + $x + $ac);
@@ -168,8 +113,8 @@ sub MD5_trunc {
# MD5 initialization. Begins an MD5 operation, writing a new context.
-sub MD5Init ($$$) {
- my ($context_count, $context_state, $context_buffer) = @_;
+sub MD5Init($$$) {
+ my($context_count, $context_state, $context_buffer) = @_;
# Constants for MD5Transform routine.
$MD5_S11 = 7;
@@ -208,10 +153,10 @@ sub MD5Init ($$$) {
# operation, processing another message block, and updating the
# context.
-sub MD5Update ($$$$$) {
- my ($context_count, $context_state, $context_buffer,
+sub MD5Update($$$$$) {
+ my($context_count, $context_state, $context_buffer,
$input, $inputLen) = @_;
- my (@arg1, @arg2);
+ my(@arg1, @arg2);
my($i, $index, $partLen);
# Compute number of bytes mod 64
@@ -255,9 +200,9 @@ sub MD5Update ($$$$$) {
# MD5 finalization. Ends an MD5 message-digest operation, writing the
# the message digest and zeroizing the context.
-sub MD5Final ($$$$) {
- my ($digest, $context_count, $context_state, $context_buffer) = @_;
- my (@bits);
+sub MD5Final($$$$) {
+ my($digest, $context_count, $context_state, $context_buffer) = @_;
+ my(@bits);
my($index, $padLen);
@bits = ((0) x 8);
@@ -284,13 +229,13 @@ sub MD5Final ($$$$) {
# MD5 basic transformation. Transforms state based on block.
-sub MD5Transform ($$) {
- my ($state, $block) = @_;
+sub MD5Transform($$) {
+ my($state, $block) = @_;
my($a) = $state->[0];
my($b) = $state->[1];
my($c) = $state->[2];
my($d) = $state->[3];
- my (@x);
+ my(@x);
&MD5_Decode(\@x, $block, 64);
@@ -378,8 +323,8 @@ sub MD5Transform ($$) {
# Encodes input (UINT4) into output (unsigned char). Assumes len is
# a multiple of 4.
-sub MD5_Encode ($$$) {
- my ($output, $input, $len) = @_;
+sub MD5_Encode($$$) {
+ my($output, $input, $len) = @_;
my($i, $j);
for ($i = 0, $j = 0; $j < $len; $i++, $j += 4) {
@@ -393,8 +338,8 @@ sub MD5_Encode ($$$) {
# Decodes input (unsigned char) into output (UINT4). Assumes len is
# a multiple of 4.
-sub MD5_Decode ($$$) {
- my ($output, $input, my $len) = @_;
+sub MD5_Decode($$$) {
+ my($output, $input, my $len) = @_;
my($i, $j);
for ($i = 0, $j = 0; $j < $len; $i++, $j += 4) {
@@ -405,8 +350,8 @@ sub MD5_Decode ($$$) {
# Note: Replace "for loop" with standard memcpy if possible.
-sub MD5_memcpy ($$$) {
- my ($output, $input, $len) = @_;
+sub MD5_memcpy($$$) {
+ my($output, $input, $len) = @_;
my($i);
for ($i = 0; $i < $len; $i++) {
@@ -416,8 +361,8 @@ sub MD5_memcpy ($$$) {
# Note: Replace "for loop" with standard memset if possible.
-sub MD5_memset ($$$) {
- my ($output, $value, $len) = @_;
+sub MD5_memset($$$) {
+ my($output, $value, $len) = @_;
my($i);
for ($i = 0; $i < $len; $i++) {
@@ -430,8 +375,8 @@ use SelfLoader;
__DATA__
sub MD5_CHECK {
- my ($str, $should) = @_;
- my ($r) = &md5_str($str);
+ my($str, $should) = @_;
+ my($r) = &md5_str($str);
printf "MD5 (\"%s\") = %s", $str, $r;
if ($r eq $should) {
@@ -442,7 +387,7 @@ sub MD5_CHECK {
}
sub MD5_TEST {
- my (%v);
+ my(%v);
$v{""} = "d41d8cd98f00b204e9800998ecf8427e";
$v{"a"} = "0cc175b9c0f1b6a831c399e269772661";
$v{"abc"} = "900150983cd24fb0d6963f7d28e17f72";
@@ -457,6 +402,78 @@ sub MD5_TEST {
}
}
+1;
+
+__END__
+
+=head1 NAME
+
+IM::MD5 - MD5 message-digesting
+
+=head1 SYNOPSIS
+
+ use IM::MD5;
+
+ $digest = &md5_str($text);
+
+=head1 DESCRIPTION
+
+The I<IM::MD5> module handles MD5 message-digest algorithm.
+
+This modules is provided by IM (Internet Message).
+
+=head1 EXAMPLES
+
+ &md5_str("") returns d41d8cd98f00b204e9800998ecf8427e.
+ &md5_str("a") returns 0cc175b9c0f1b6a831c399e269772661.
+ &md5_str("abc") returns 900150983cd24fb0d6963f7d28e17f72.
+ &md5_str("message digest") returns f96b697d7cb7938d525a2f31aaf161d0.
+ &md5_str("abcdefghijklmnopqrstuvwxyz") returns c3fcd3d76192e4007dfb496cca67e13b.
+ &md5_str("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789") returns d174ab98d277d9f5a5611c2c9f419d9f.
+ &md5_str("12345678901234567890123456789012345678901234567890123456789012345678901234567890") returns 57edf4a22be3c955ac49da2e2107b67a.
+
+ % perl -MIM::MD5 -e 'IM::MD5::MD5_TEST()'
+
+=head1 COPYRIGHT
+
+This modules is derived from md5.pl copyrighted by NAKAMURA, Motonori
+<motonori@econ.kyoto-u.ac.jp>. It is converted to Perl4 from C version
+derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm.
+
+IM (Internet Message) is copyrighted by IM developing team.
+You can redistribute it and/or modify it under the modified BSD
+license. See the copyright file for more details.
+
+=cut
+
+### md5.pl -- MD5 message-digest algorithm converted to Perl4 from C version
+###
+### Copyright (C) 1996 by NAKAMURA, Motonori <motonori@econ.kyoto-u.ac.jp>.
+### All rights reserved.
+### [August 16, 1996]
+###
+### MD5C.C - RSA Data Security, Inc., MD5 message-digest algorithm
+###
+### Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All
+### rights reserved.
+###
+### License to copy and use this software is granted provided that it
+### is identified as the "RSA Data Security, Inc. MD5 Message-Digest
+### Algorithm" in all material mentioning or referencing this software
+### or this function.
+###
+### License is also granted to make and use derivative works provided
+### that such works are identified as "derived from the RSA Data
+### Security, Inc. MD5 Message-Digest Algorithm" in all material
+### mentioning or referencing the derived work.
+###
+### RSA Data Security, Inc. makes no representations concerning either
+### the merchantability of this software or the suitability of this
+### software for any particular purpose. It is provided "as is"
+### without express or implied warranty of any kind.
+###
+### These notices must be retained in any copies of any part of this
+### documentation and/or software.
### Copyright (C) 1997, 1998, 1999 IM developing team
### All rights reserved.
generated by cgit v1.2.1 (git 2.18.0) at 2026-09-12 02:24:44 +0000