Skip to content
Snippets Groups Projects
Select Git revision
  • 2c5c43fa091b3a4b6446e44f6e2761f66f04c43d
  • master default protected
  • devel
  • hruska-feature-clients-api
  • malostik-#5066-deduplicate-idea-ids
  • warden-postgresql-port
  • hruska-feature-#6799-filter-keys
  • hruska-feature-5066-duplicateIdeaID
  • warden-client-3.0-beta3
  • warden-server-3.0-beta3
  • warden-client-2.2-final
  • warden-server-2.2-final
  • warden-client-3.0-beta2
  • warden-server-3.0-beta2
  • warden-client-2.2
  • warden-server-2.2-patch3
  • warden-client-3.0-beta1
  • warden-server-3.0-beta1
  • warden-server-2.2-patch1
  • warden-client-3.0-beta0
  • warden-server-3.0-beta0
  • warden-server-2.2
  • warden-server-2.1-patch1
  • warden-client-2.1
  • warden-server-2.1
  • warden-server-2.1-beta6
  • warden-server-2.1-beta5
  • warden-server-2.1-beta4
28 results

sender.pl

Blame
  • sender.pl 3.76 KiB
    #!/usr/bin/perl -w
    #
    # sender.pl
    #
    # Copyright (C) 2011-2012 Cesnet z.s.p.o
    # Author(s):    Tomas PLESNIK   <plesnik@ics.muni.cz>
    #               Jan SOUKAL      <soukal@ics.muni.cz>
    #
    # Redistribution and use in source and binary forms, with or without
    # modification, are permitted provided that the following conditions
    # are met:
    # 1. Redistributions of source code must retain the above copyright
    #    notice, this list of conditions and the following disclaimer.
    # 2. Redistributions in binary form must reproduce the above copyright
    #    notice, this list of conditions and the following disclaimer in
    #    the documentation and/or other materials provided with the
    #    distribution.
    # 3. Neither the name of the Cesnet z.s.p.o nor the names of its
    #    contributors may be used to endorse or promote products derived from
    #    this software without specific prior written permission.
    #
    # This software is provided ``as is'', and any express or implied
    # warranties, including, but not limited to, the implied warranties of
    # merchantability and fitness for a particular purpose are disclaimed.
    # In no event shall the Cesnet z.s.p.o or contributors be liable for
    # any direct, indirect, incidental, special, exemplary, or consequential
    # damages (including, but not limited to, procurement of substitute
    # goods or services; loss of use, data, or profits; or business
    # interruption) however caused and on any theory of liability, whether
    # in contract, strict liability, or tort (including negligence or
    # otherwise) arising in any way out of the use of this software, even
    # if advised of the possibility of such damage.
    #
    
    use Switch;
    use strict;
    use DateTime;
    
    my $warden_path = '/opt/warden-client';
    require $warden_path . '/lib/WardenClientSend.pm';
    
    my $service = "";
    switch (int(rand(2) + 0.5)) {
      case 0 { $service = 'ScanDetector'; }
      case 1 { $service = 'PhiGaro'; }
      case 2 { $service = 'HoneyScan'; }
      }
    
    my $detected = DateTime->from_epoch(epoch => time());
    
    my $type = "";
    switch (int(rand(9) + 0.5)) {
      case 0 { $type = 'portscan'; }
      case 1 { $type = 'bruteforce'; }
      case 2 { $type = 'spam'; }
      case 3 { $type = 'phishing'; }
      case 4 { $type = 'botnet_c_c'; }
      case 5 { $type = 'dos'; }
      case 6 { $type = 'malware'; }
      case 7 { $type = 'copyright'; }
      case 8 { $type = 'webattack'; }
      case 9 { $type = 'other'; }
      }
      
    my $source_type = "";
    switch (int(rand(2) + 0.5)) {
      case 0 { $source_type = 'IP'; }
      case 1 { $source_type = 'url'; }
      case 2 { $source_type = 'Reply-To:'; }
      }