nhyatt/putty-source
1
0
Fork 0
mirror of https://git.tartarus.org/simon/putty.git synced 2025-01-09 17:38:00 +00:00
Code Issues Projects Releases Wiki Activity

logparse.pl: support GSSAPI key exchange messages.

Browse Source
This commit is contained in:
Simon Tatham 2018-04-05 18:24:00 +01:00
parent d515e4f1a3
commit 65acff1f70
1 changed files with 83 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
contrib/logparse.pl
View File

@ -112,6 +112,41 @@ my %packets = (
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXGSS_INIT 30 /* 0x1e */
'SSH2_MSG_KEXGSS_INIT' => sub {
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXGSS_CONTINUE 31 /* 0x1f */
'SSH2_MSG_KEXGSS_CONTINUE' => sub {
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXGSS_COMPLETE 32 /* 0x20 */
'SSH2_MSG_KEXGSS_COMPLETE' => sub {
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXGSS_HOSTKEY 33 /* 0x21 */
'SSH2_MSG_KEXGSS_HOSTKEY' => sub {
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXGSS_ERROR 34 /* 0x22 */
'SSH2_MSG_KEXGSS_ERROR' => sub {
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXGSS_GROUPREQ 40 /* 0x28 */
'SSH2_MSG_KEXGSS_GROUPREQ' => sub {
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXGSS_GROUP 41 /* 0x29 */
'SSH2_MSG_KEXGSS_GROUP' => sub {
my ($direction, $seq, $data) = @_;
print "\n";
},
#define SSH2_MSG_KEXRSA_PUBKEY 30 /* 0x1e */
'SSH2_MSG_KEXRSA_PUBKEY' => sub {
my ($direction, $seq, $data) = @_;
@ -710,6 +745,54 @@ my %verbose_packet_dump_functions = (
my ($seq) = &parse("u", $data);
printf " sequence number: %d\n", $seq;
},
'SSH2_MSG_KEXGSS_INIT' => sub {
my ($data) = @_;
my ($token, $e) = &parse("sm", $data);
printf " output token: %s\n", unpack "H*", $token;
printf " e: %s\n", $e;
},
'SSH2_MSG_KEXGSS_CONTINUE' => sub {
my ($data) = @_;
my ($token) = &parse("s", $data);
printf " output token: %s\n", unpack "H*", $token;
},
'SSH2_MSG_KEXGSS_COMPLETE' => sub {
my ($data) = @_;
my ($f, $permsgtoken, $got_output) = &parse("msb", $data);
printf " f: %s\n", $f;
printf " per-message token: %s\n", unpack "H*", $permsgtoken;
printf " output token present: %s\n", $got_output;
if ($got_output eq "yes") {
my ($token) = &parse("s", $data);
printf " output token: %s\n", unpack "H*", $token;
}
},
'SSH2_MSG_KEXGSS_HOSTKEY' => sub {
my ($data) = @_;
my ($hostkey) = &parse("s", $data);
printf " host key: %s\n", unpack "H*", $hostkey;
},
'SSH2_MSG_KEXGSS_ERROR' => sub {
my ($data) = @_;
my ($maj, $min, $msg, $lang) = &parse("uuss", $data);
printf " major status: %d\n", $maj;
printf " minor status: %d\n", $min;
printf " message: '%s'\n", $msg;
printf " language tag: '%s'\n", $lang;
},
'SSH2_MSG_KEXGSS_GROUPREQ' => sub {
my ($data) = @_;
my ($min, $pref, $max) = &parse("uuu", $data);
printf " min bits: %d\n", $min;
printf " preferred bits: %d\n", $pref;
printf " max bits: %d\n", $max;
},
'SSH2_MSG_KEXGSS_GROUP' => sub {
my ($data) = @_;
my ($p, $g) = &parse("mm", $data);
printf " p: %s\n", $p;
printf " g: %s\n", $g;
},
);
my %sftp_packets = (