home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 15 / hacker15 / 15_H4CK3R#15.ISO / linux_security / engarde / ENGARDE_COMMUNITY_FEINT.ISO / bin / card_detect.pl < prev    next >
Encoding:
Perl Script  |  2002-05-30  |  701 b   |  42 lines
  1. #!/bin/perl
  2.  
  3. $device = $ARGV[0];
  4. $fileIn = $ARGV[1];
  5. $tmpstr = $device;
  6.  
  7. if ( length($fileIn) <= 0 ) {
  8.    printf ("Usage: card_detect.pl [CARD_ID] [FILENAME]\n");
  9.    exit 1;
  10. }
  11.  
  12. open INFILE, "<$fileIn" or die "Can't open $fileIn\n";
  13.  
  14. @lines = <INFILE>;
  15. close (INFILE);
  16.  
  17. $deviceInfo = "Unknown\n";
  18.  
  19. foreach $line (@lines) {
  20.  
  21. if ( $line =~ /$device/ ) {
  22.     $deviceInfo = $line;
  23.    }
  24. }
  25.  
  26. if ($deviceInfo !~ /Unknown/ ) {
  27.   
  28. ### Format search results 
  29.   @tmparray = split (/\ \ /, $deviceInfo);
  30.   foreach $item (@tmparray) {
  31.     $item =~ s/\#//g;
  32.     chomp $item;
  33.     $printStr .= "$item ";
  34.   }
  35. }
  36.  
  37. ### Write results to tempfile
  38.  
  39. open OUTFILE, ">/tmp/ad_results";
  40. print (OUTFILE "$printStr");
  41. close (OUTFILE);
  42.