Используем линукс к fake usb 2.0 devices detector :)

2 Responses » to “Используем линукс к fake usb 2.0 devices detector :)”

1. fudya says:

   02/09/2008 at 14:53

   Гауно твой скрипД. Вот починеная версия ;-\

   #!/usr/bin/perl
   # Options:
   # “-l” lists vendor/product ID and revision.
   $PROGNAME = $0;
   $DEVFILENAME = “/proc/bus/usb/devices”;
   $showconfig = “yes”;
   $listids = 0;

   system (“mount -t usbfs none /proc/bus/usb”);

   if ($#ARGV > -1)
   {
   if (“$ARGV[0]” eq “-l”)
   {
   $listids = 1;
   }
   else
   {
   $DEVFILENAME = $ARGV[0];
   }
   }

   if (!open(DEVNUM, “<$DEVFILENAME"))
   {
   print “$PROGNAME: cannot open ‘$DEVFILENAME’\n”;
   exit 1;
   }

   while ($line = ) # read a text line from DEVNUM
   {
   # skip all lines except those we recognize:
   if (($line !~ “^C:”) # Configuration: one is active
   && ($line !~ “^D:”) # Device:
   && ($line !~ “^I:”) # Interface: protocol group
   && ($line !~ “^S:”) # String: used with root hub
   && ($line !~ “^P:”) # Ids
   && ($line !~ “^T:”) # Topology: starts each device
   )
   {
   next; # to the next line
   }

   chomp $line; # remove line endings

   # First convert ‘=’ signs to spaces.
   $line =~ tr/=/ /;

   # and convert all ‘(‘ and ‘)’ to spaces.
   $line =~ tr/(/ /;
   $line =~ tr/)/ /;

   # split the line at spaces.
   @fields = split / +/, $line;

   # T: Bus=01 Lev=01 Prnt=01 Port=03 Cnt=01 Dev#= 3 Spd=1.5 MxCh= 0
   if ($line =~ “^T:”)
   {
   # split yields: $bus, $level, $parent, $port, $count, $devnum, $speed,
   # i$maxchild.

   $bus = @fields[2];
   $level = @fields[4];
   $parent = @fields[6]; # parent devnum
   $port = @fields[8] + 1; # make $port 1-based
   $count = @fields[10];
   $devnum = @fields[12];
   $speed = @fields[14];
   $maxchild = @fields[16];
   $devclass = “?”;
   $intclass = “?”;
   $driver = “?”;
   $ifnum = “?”;
   $showclass = “?”; # derived from $devclass or $intclass
   $lastif = “?”; # show only first altsetting
   $HCtype = “?”;
   $showconfig = “no”;
   $nconfig = “0”;
   next;
   } # end T: line

   # only show the _active_ configuration
   # C:* #Ifs= 1 Cfg#= 1 Atr=a0 MxPwr=100mA
   elsif ($line =~ “^C:”) {
   if ($line =~ “^C:\\*”) {
   $showconfig = @fields[4];
   } else {
   $showconfig = “no”;
   }
   next;
   }

   # D: Ver= 1.00 Cls=00(>ifc ) Sub=00 Prot=00 MxPS= 8 #Cfgs= 1
   elsif ($line =~ “^D:”)
   { # for D: line
   $devclass = @fields [5];
   $nconfig = @fields [13];
   next;
   }

   # P: Vendor=0aa7 ProdID=0304 Rev= 0.52
   elsif ($line =~ “^P:”)
   {
   $ids = $line;
   $ids =~ s/P: +//;
   $ids =~ s/ +/ /g;
   $ids =~ s/Vendor /Vendor=/g;
   $ids =~ s/ ProdID /, ProdID=/g;
   $ids =~ s/ Rev /, Rev=/g;
   next;
   }
   # in case this is a root hub, look at the device strings.
   # – S: Manufacturer:Linux 2.6.5 ehci_hcd [all 2.6]
   # – S: Product=USB UHCI Root Hub [all 2.4, 2.2]
   # – S: Product=OPTi Inc 82C861 [2.6/PCI_NAMES]
   elsif ( $line =~ “^S:” )
   { # for S: line
   if ($level == 00 && $line =~ “hcd”)
   {
   $HCtype = @fields [4];
   }
   elsif ($level == 00 && $line =~ “HCI” && $HCtype eq “?”)
   {
   $HCtype = @fields [3];
   }

   if ($line =~ “Product”)
   {
   $product = $line;
   $product =~ s/Product //;
   $product =~ s/S: +//;
   $product =~ s/ +/ /g;
   $product =~ s/ $//g;
   }
   next;
   }

   # the rest of this code:
   # – only shows interface descriptors
   # – for the active configuration
   # – for the first (prefer: active!) altsetting
   elsif (!($line =~ “^I:”)
   || “$showconfig” eq “no”) {
   next;
   }

   # I: If#= 0 Alt= 0 #EPs= 1 Cls=03(HID ) Sub=01 Prot=02 Driver=hid
   $intclass = @fields [9];
   $ifnum = @fields [2];
   $driver = @fields [15];

   if (($devclass eq “>ifc”) || ($devclass eq “unk.”))
   { # then use InterfaceClass, not DeviceClass
   $showclass = $intclass;
   }
   else
   { # use DeviceClass
   $showclass = $devclass;
   }

   if ($level == 0)
   {
   # substitute real driver name
   if ($HCtype =~ “UHCI-alt”)
   {
   $HC = “uhci”;
   }
   elsif ($HCtype =~ “UHCI”)
   {
   $HC = “usb-uhci”;
   }
   elsif ($HCtype =~ “OHCI”)
   {
   $HC = “usb-ohci”;
   }
   else
   {
   $HC = $HCtype;
   }

   print sprintf (“/: Bus $bus.Port $port: Dev $devnum, Class=root_hub,
   Drv=%s/%sp, %sM\n”,
   $HC, $maxchild, $speed );
   }
   elsif ($lastif ne $ifnum)
   {
   $temp = $level;
   while ($temp >= 1)
   {
   print ” “;
   $temp–;
   }

   if ($nconfig ne “1”) {
   $temp = ” Cfg $showconfig/$nconfig”;
   } else {
   $temp = “”;
   }

   print sprintf (“|_ Port $port: Dev $devnum$temp, If $ifnum, Prod=$product,
   Class=$showclass, Drv=$driver%s, %sM”,
   ($maxchild == 0) ? “” : (“/” . $maxchild . “p”),
   $speed);

   if ($listids == 1)
   {
   print “, $ids”;
   }
   print “\n”;
   $lastif = $ifnum;
   }
   $product=””;
   } # end while DEVNUM

   close (DEVNUM);

   # END.

2. admin says:

   02/09/2008 at 15:40

   Ошибко понял 🙂 Жалко нельзя атачмент сделать…