ZaneYork
/
zoneminder
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use Digest::SHA instead of Digest::SHA1. API appears to be the same

This commit is contained in:
Isaac Connor 2016-03-02 10:18:58 -05:00
parent 0a5d7a11b2
commit 7d346747d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
onvif/modules/lib/WSSecurity/SecuritySerializer.pm
View File

@ -26,7 +26,7 @@ use strict;
use warnings; use warnings;
use SOAP::WSDL::Factory::Serializer; use SOAP::WSDL::Factory::Serializer;
use Time::Local; use Time::Local;
use Digest::SHA1; use Digest::SHA;
use MIME::Base64; use MIME::Base64;
@ -94,7 +94,7 @@ sub ws_authen {
my $nonce = $nonce_generator->(); my $nonce = $nonce_generator->();
my $timestamp = timestamp(); my $timestamp = timestamp();
my $pwDigest = Digest::SHA1::sha1( $nonce . $timestamp . $password ); my $pwDigest = Digest::SHA::sha1( $nonce . $timestamp . $password );
my $passwordHash = MIME::Base64::encode_base64($pwDigest,""); my $passwordHash = MIME::Base64::encode_base64($pwDigest,"");
my $nonceHash = MIME::Base64::encode_base64($nonce,""); my $nonceHash = MIME::Base64::encode_base64($nonce,"");