34 lines
1.1 KiB
Plaintext
34 lines
1.1 KiB
Plaintext
|
$OpenBSD: patch-courtney_pl,v 1.1.1.1 2001/01/12 04:27:46 danh Exp $
|
||
|
|
--- courtney.pl.orig Thu Jan 11 19:48:03 2001
|
||
|
|
+++ courtney.pl Thu Jan 11 19:49:53 2001
|
||
|
|
@@ -1,4 +1,4 @@
|
||
|
|
-#!/bin/perl
|
||
|
|
+#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
#
|
||
|
|
# COURTNEY: program to detect SATAN scans.
|
||
|
|
@@ -52,11 +52,11 @@
|
||
|
|
require 5; # This won't run on Perl 4.
|
||
|
|
|
||
|
|
# Let's make sure we're OK
|
||
|
|
-$ENV{'PATH'} = '/bin:/usr/bin:/usr/ucb:/usr/bsd:/usr/sbin:/usr/etc:/usr/local/bin';
|
||
|
|
-$ENV{'SHELL'} = '/bin/sh' if $ENV{'SHELL'} ne '';
|
||
|
|
-$ENV{'IFS'} = '' if $ENV{'IFS'} ne '';
|
||
|
|
+$ENV{'PATH'} = '/usr/sbin';
|
||
|
|
+$ENV{'SHELL'} = '/bin/sh';
|
||
|
|
+$ENV{'IFS'} = '';
|
||
|
|
|
||
|
|
-@assoc_list = ( 'sunrpc', 'icmp', 'ttime', 'telnet', 'smtp',
|
||
|
|
+@assoc_list = ( 'sunrpc', 'icmp', 'ttime', 'telnet', 'smtp', 'ssh',
|
||
|
|
'ftp', 'whois', 'domain', 'gopher', 'www',
|
||
|
|
'finger', 'exec', 'login', 'shell', 'printer',
|
||
|
|
'uucp', 'tcpmux', 'echo', 'discard', 'systat',
|
||
|
|
@@ -137,6 +137,7 @@ open (TCPDUMP, "$tcpdump '\
|
||
|
|
ftp or \
|
||
|
|
telnet or \
|
||
|
|
smtp or \
|
||
|
|
+ ssh or \
|
||
|
|
time or \
|
||
|
|
whois or \
|
||
|
|
domain or\
|