michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Revert "Fix to always use use Digest::SHA"

Browse Source 
This reverts commit 7fb5e74e2b.
This commit is contained in:
iliajie
2022-10-30 20:56:32 +02:00
parent d180b0a0f4
commit 3d73e2faae
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
miniserv.pl
View File

@@ -5654,12 +5654,12 @@ else {
}
# Send successful connection headers
eval "use Digest::SHA";
eval "use Digest::SHA1";
if ($@) {
&http_error(500, "Missing Digest::SHA perl module");
&http_error(500, "Missing Digest::SHA1 perl module");
}
my $rkey = $key."258EAFA5-E914-47DA-95CA-C5AB0DC85B11";
my $sha1 = Digest::SHA->new;
my $sha1 = Digest::SHA1->new;
$sha1->add($rkey);
my $digest = $sha1->digest;
$digest = &b64encode($digest);
@@ -5721,7 +5721,7 @@ lc($rheader{'connection'}) =~ /upgrade/ ||
# Check the reply key
my $brkey = $bsession_id."258EAFA5-E914-47DA-95CA-C5AB0DC85B11";
my $bsha1 = Digest::SHA->new;
my $bsha1 = Digest::SHA1->new;
$bsha1->add($brkey);
my $bdigest = $bsha1->digest;
$bdigest = &b64encode($bdigest);