third-party-mirrors/sslh
1
0
Fork 0
mirror of https://github.com/yrutschle/sslh.git synced 2025-04-15 08:30:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix ssh test and add random delays to exercise probing code

Browse Source
This commit is contained in:
yrutschle 2021-04-17 21:28:55 +02:00
parent 21ed247acb
commit a487ad4cbe
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
t_load
View File

@ -44,7 +44,7 @@ my $stop_client_probability = .001;
# What protocols we test, and on what ports # What protocols we test, and on what ports
# Just comment out protocols you don't want to use. # Just comment out protocols you don't want to use.
my %protocols = ( my %protocols = (
#"ssh" => { address => "localhost:9001", client => client("ssh") }, "ssh" => { address => "localhost:9000" },
# "tls" => { address => "localhost:9002", client => client("tls") }, # "tls" => { address => "localhost:9002", client => client("tls") },
"openvpn" => {address => "localhost:9004" }, "openvpn" => {address => "localhost:9004" },
"tinc" => {address => "localhost:9003" }, "tinc" => {address => "localhost:9003" },
@ -63,14 +63,22 @@ sub connect_service {
my ($test_data, $r); my ($test_data, $r);
sleep 5 if $service eq "ssh"; if ($service eq "ssh") {
sleep rand 20;
$test_data = "SSH-2.0 hello";
syswrite $cnx, $test_data;
sleep 1;
sysread $cnx, $r, 18; # length "ssh: SSH-2.0 hello" => 18
}
if ($service eq "openvpn") { if ($service eq "openvpn") {
sleep rand 10;
$test_data = "\x00\x00"; $test_data = "\x00\x00";
syswrite $cnx, $test_data; syswrite $cnx, $test_data;
sleep 1; sleep 1;
sysread $cnx, $r, 11; # length "openvpn: \x0\x0" => 11 sysread $cnx, $r, 11; # length "openvpn: \x0\x0" => 11
} }
if ($service eq "tinc") { if ($service eq "tinc") {
sleep rand 10;
$test_data = "0 "; $test_data = "0 ";
syswrite $cnx, $test_data; syswrite $cnx, $test_data;
sleep 1; sleep 1;