third-party-mirrors/sslh
1
0
Fork 0
mirror of https://github.com/yrutschle/sslh.git synced 2025-04-13 07:37:15 +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
# Just comment out protocols you don't want to use.
my %protocols = (
#"ssh" => { address => "localhost:9001", client => client("ssh") },
"ssh" => { address => "localhost:9000" },
# "tls" => { address => "localhost:9002", client => client("tls") },
"openvpn" => {address => "localhost:9004" },
"tinc" => {address => "localhost:9003" },
@ -63,14 +63,22 @@ sub connect_service {
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") {
sleep rand 10;
$test_data = "\x00\x00";
syswrite $cnx, $test_data;
sleep 1;
sysread $cnx, $r, 11; # length "openvpn: \x0\x0" => 11
}
if ($service eq "tinc") {
sleep rand 10;
$test_data = "0 ";
syswrite $cnx, $test_data;
sleep 1;