https://www.solaris.opennet.ru/openforum/vsluhforumID8/7750.html #!/usr/bin/perl<br>use strict;<br>use Socket;<br>use Carp;<br>sub logmsg { print "@_ \n" }<br>my $port = shift &#124;&#124; 8888;<br>my $proto = getprotobyname('tcp');<br>($port) = $port =~ /^(\d+)$/ or die "invalid port";<br>socket(Server, PF_INET, SOCK_STREAM, $proto) &#124;&#124; die "socket: $!";<br>setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) &#124;&#124; die "setsockopt:$!";<br>bind(Server, sockaddr_in($port, INADDR_ANY)) &#124;&#124; die "bind: $!";<br>listen(Server,SOMAXCONN) &#124;&#124; die "listen: $!";<br>my $paddr;<br>$SIG{CHLD} = \&REAPER;<br>for ( ; $paddr = accept(Client,Server); close Client) {<br> my($port,$iaddr) = sockaddr_in($paddr);<br> my $name = gethostbyaddr($iaddr,AF_INET);<br> my ($len, $data) = (0, "");<br> $len = sysread(Client, $data, 8192, length($data));<br> logmsg $data;<br> my $Key;<br> my $SecretKey = "258EAFA5-E914-47DA-95CA-C5AB0DC85B11";<br> if ($data =~ /Sec-WebSocket-Key: (.*?)\r/) {<br> my $data = $1.$SecretKey;<br> use Digest::SHA1 qw/sha1_base64/;<br> $Key https://www.solaris.opennet.ru/openforum/vsluhforumID8/7750.html#2 Wed, 27 Apr 2016 21:58:08 GMT http://perldoc.perl.org/Digest/SHA.html<br>By convention, CPAN Digest modules do not pad their Base64 output. <br> [code] while (length($b64_digest) % 4) {<br> $b64_digest .= '=';<br> }<br>[/code] <br>&gt; Так работает - <br>&gt; [code] <br>&gt; use MIME::Base64; <br>&gt; $Key = MIME::Base64::encode(sha1($data)); <br>&gt; [/code] https://www.solaris.opennet.ru/openforum/vsluhforumID8/7750.html#1 Thu, 18 Jul 2013 21:50:31 GMT Баг в sha1_base64. Причём и в Digest::SHA1 и в Digest::SHA<br><br>Так работает - <br>[code]<br> use MIME::Base64;<br> $Key = MIME::Base64::encode(sha1($data));<br>[/code]<br>