io.ftp.pl
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:3k
源码类别:

通讯编程

开发平台:

Visual C++

  1. #!/usr/bin/perl -w
  2. #
  3. # Copyright (C) 2001 by USC/ISI
  4. # All rights reserved.
  5. #
  6. # Redistribution and use in source and binary forms are permitted
  7. # provided that the above copyright notice and this paragraph are
  8. # duplicated in all such forms and that any documentation, advertising
  9. # materials, and other materials related to such distribution and use
  10. # acknowledge that the software was developed by the University of
  11. # Southern California, Information Sciences Institute.  The name of the
  12. # University may not be used to endorse or promote products derived from
  13. # this software without specific prior written permission.
  14. #
  15. # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
  16. # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  17. # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  18. #
  19. # An perl script that seperate inbound and outbound traffic of ISI domain, 
  20. # used by SAMAN ModelGen
  21. #
  22. # This work is supported by DARPA through SAMAN Project
  23. # (http://www.isi.edu/saman/), administered by the Space and Naval
  24. # Warfare System Center San Diego under Contract No. N66001-00-C-8066
  25. #
  26. sub usage {
  27.         print STDERR <<END;
  28. usage: $0 [a] [-s DomainPrefix] [-p Port] [-w FilenameExtention]
  29. Options:
  30.     -s string  specify IP prefix to distinguish Inbound from outbound
  31.                traffic (eg. 192.1)
  32.     -w string  specify the filename extention
  33. END
  34.         exit 1;
  35. }
  36. BEGIN {
  37.      $dblibdir = "./";
  38.         push(@INC, $dblibdir);
  39. }
  40. use DbGetopt;
  41. require "dblib.pl";
  42. my(@orig_argv) = @ARGV;
  43. &usage if ($#ARGV < 0);
  44. my($prog) = &progname;
  45. my($dbopts) = new DbGetopt("s:w:?", @ARGV);
  46. my($ch);
  47. while ($dbopts->getopt) {
  48.      $ch = $dbopts->opt;
  49.         if ($ch eq 's') {
  50. $prefix = $dbopts->optarg;
  51. } elsif ($ch eq 'w') {
  52.         $fext = $dbopts->optarg;
  53.      } else {
  54.              &usage;
  55.         };
  56. };
  57. $foutf=join(".",$fext,"outbound");
  58. $finf=join(".",$fext,"inbound");
  59. $ftp_port="21";
  60. $ftpdata_port="20";
  61. open(FOUT,"> $foutf") || die("cannot open $foutfn");
  62. open(FIN,"> $finf") || die("cannot open $finfn");
  63. while (<>) {
  64.         ($time1,$time2,$ip11,$ip12,$ip13,$ip14,$srcPort,$dummy1,$ip21,$ip22,$ip23,$ip24,$dstPort,$dummy2) = split(/[.:() ]/,$_);
  65. #        $dummy0="";
  66.         $dummy1="";
  67.         $dummy2="";
  68. $time1=0;
  69. $time2=0;
  70. $ip13="";
  71. $ip14="";
  72. $ip23="";
  73. $ip24="";
  74. $prefixc=join(".",$ip11,$ip12);
  75. $prefixs=join(".",$ip21,$ip22);
  76.         #seperate Inbound and Outbound FTP traffic of ISI
  77. if ((( $prefixc eq $prefix) && (( $srcPort eq $ftp_port) || ( $srcPort eq $ftpdata_port))) || (( $prefixs eq $prefix) && (($dstPort eq $ftp_port) || ($dstPort eq $ftpdata_port)))) {
  78. print FOUT "$_";
  79. } else {
  80. print FIN "$_";
  81. }
  82. }
  83. close(FOUT);
  84. close(FIN);