zeek/scripts/base/files/x509/main.bro
Bernhard Amann 110d9fbd6a X509 file analyzer nearly done. Verification and most other policy scripts
work fine now.

Todo:
 * update all baselines
 * fix the circular reference to the fa_file structure I introduced :)
   Sadly this does not seem to be entirely straightforward.

addresses BIT-953, BIT-760
2014-03-03 17:07:50 -08:00

77 lines
1.8 KiB
Text

@load base/frameworks/files
@load base/files/hash
module X509;
export {
redef enum Log::ID += { LOG };
type Info: record {
## current timestamp
ts: time &log &default=network_time();
## file id of this certificate
id: string &log;
## Basic information about the certificate
certificate: X509::Certificate &log;
## The opaque wrapping the certificate. Mainly used
## for the verify operations
handle: opaque of x509;
## All extensions that were encountered in the certificate
extensions: vector of X509::Extension &default=vector();
## Subject alternative name extension of the certificate
san: string_vec &optional &log;
## Basic constraints extension of the certificate
basic_constraints: X509::BasicConstraints &optional &log;
};
## Event for accessing logged records.
global log_x509: event(rec: Info);
}
event bro_init() &priority=5
{
Log::create_stream(X509::LOG, [$columns=Info, $ev=log_x509]);
}
redef record fa_file += {
## Information about X509 certificates. This is used to keep
## certificate information until all events have been received.
x509: X509::Info &optional;
};
event x509_certificate(f: fa_file, cert_ref: opaque of x509, cert: X509::Certificate) &priority=5
{
f$x509 = [$id=f$id, $certificate=cert, $handle=cert_ref];
}
event x509_extension(f: fa_file, ext: X509::Extension) &priority=5
{
if ( f?$x509 )
f$x509$extensions[|f$x509$extensions|] = ext;
}
event x509_ext_basic_constraints(f: fa_file, ext: X509::BasicConstraints) &priority=5
{
if ( f?$x509 )
f$x509$basic_constraints = ext;
}
event x509_ext_subject_alternative_name(f: fa_file, names: string_vec) &priority=5
{
if ( f?$x509 )
f$x509$san = names;
}
event file_state_remove(f: fa_file)
{
if ( f?$x509 )
{
Log::write(LOG, f$x509);
}
}