Tadashi Okoshi
slash****@users*****
2005年 12月 17日 (土) 01:19:43 JST
Index: affelio/lib/Affelio/misc/WSSE.pm
diff -u affelio/lib/Affelio/misc/WSSE.pm:1.3 affelio/lib/Affelio/misc/WSSE.pm:1.4
--- affelio/lib/Affelio/misc/WSSE.pm:1.3 Sat Dec 10 11:14:12 2005
+++ affelio/lib/Affelio/misc/WSSE.pm Sat Dec 17 01:19:43 2005
@@ -14,13 +14,13 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: WSSE.pm,v 1.3 2005/12/10 02:14:12 slash5234 Exp $
+# $Id: WSSE.pm,v 1.4 2005/12/16 16:19:43 slash5234 Exp $
package Affelio::misc::WSSE;
{
use strict;
use lib("../../../extlib/");
- use Digest::SHA::PurePerl ();
+ use Digest::SHA1;
use MIME::Base64 ();
use Error qw(:try);
use lib("../../../lib/");
@@ -48,7 +48,7 @@
my $now = now_w3cdtf();
my $nonce = make_nonce();
my $nonce_enc = MIME::Base64::encode_base64($nonce, '');
- my $digest = MIME::Base64::encode_base64( Digest::SHA::PurePerl::sha1($nonce . $now . $pass), '' );
+ my $digest = MIME::Base64::encode_base64( Digest::SHA1::sha1($nonce . $now . $pass), '' );
my $wsse_value = 'UsernameToken ' . join(
', ',
@@ -63,7 +63,7 @@
sub make_nonce {
- return Digest::SHA::PurePerl::sha1(Digest::SHA::PurePerl::sha1(time() . {} . rand() . $$));
+ return Digest::SHA1::sha1(Digest::SHA1::sha1(time() . {} . rand() . $$));
}
sub now_w3cdtf {