14 replies to this topic

[rhino0nt]

Este es mi primer post y para variar es para solicitar ayuda u orientación.

¿ Alguien sabe como obtener la ID única de un dispositivo USB ? Necesito obtener el ID único de una memoria USB para encriptar el contenido basándome en ese ID, he investigado y entiendo que cada dispositivo USB tiene un ID único que es posible leer en Linux.

De antemano, Gracias.

[enecumene]

Hola Rhino, ¿necesariamente debe ser en Linux?.

Saludos.

[rhino0nt]

Mea culpa, quise decir Windows, con esto de que vivo en Linux emulando Windows, ultimamente se me van las cabras. 

Saludos.

[enecumene]

Pues usando la función GetVolumeInformation de la API de windows, aquí­ un ejemplo donde se puede sacar esa información en cualquier tipo de unidad:

delphi

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, FileCtrl;
 
 
type
  TFileFlag = (fsCaseIsPreserved, fsCaseSensitive, fsUnicodeStoredOnDisk,
              fsPersistentAcls, fsFileCompression, fsVolumeIsCompressed);
  TFileFlags = set of TFileFlag;
 
  //This set is used for determining the drive type of the drive
  //set in DriveComboBox1
  TDrvType = (dtNotDetermined, dtNonExistent, dtRemoveable,
              dtFixed, dtRemote, dtCDROM, dtRamDrive);
 
  TForm1 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Bevel1: TBevel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DriveComboBox1Change(Sender: TObject);
  private
    procedure GetVolInfo; //This is the meat and potatoes procedure
  end;
 
var
  Form1: TForm1;
 
  function GetLogDrives : String; //Extra procedure to demonstrate
                                  //getting logical drives from system.
 
implementation
 
{$R *.DFM}
 
procedure TForm1.GetVolInfo;
var
  //Variables de informacion del volumen
  nVNameSer   : PDWORD;
  drv         : String;
  pVolName    : PChar;
  FSSysFlags,
  maxCmpLen   : DWord;
  I           : Integer;
  pFSBuf       : PChar;
 
  //Variables de informacion de discos;
  dType       : TDrvType;
  SectPerCls,
  BytesPerCls,
  FreeCls,
  TotCls      : DWord;
 
begin
  //inicializar las variables
  drv := DriveComboBox1.Drive + ':\';
  GetMem(pVolName, MAX_PATH);
  GetMem(pFSBuf, MAX_PATH);
  GetMem(nVNameSer, MAX_PATH);
 
  //Limpiamos el memo primero
  Memo1.Lines.Clear;
 
  //Obtenemos la información de volumen
  GetVolumeInformation(PChar(drv), pVolName, MAX_PATH, nVNameSer,
                       maxCmpLen, FSSysFlags, pFSBuf, MAX_PATH);
 
  //Obtener la descripcion de los tipos de flags
  for I := 0 to 5 do begin
    if ((FSSysFlags AND I) <> 0) then
      case I of
        Ord(fsCaseIsPreserved)     :
          Memo1.Lines.Add('...preserves case with file names');
        Ord(fsCaseSensitive)       :
          Memo1.Lines.Add('...supports case sensitive file names');
        Ord(fsUnicodeStoredOnDisk) :
          Memo1.Lines.Add('...stores Unicodes as on disk');
        Ord(fsPersistentAcls)      :
          Memo1.Lines.Add('...preserves and enforces ACLs');
        Ord(fsFileCompression)     :
          Memo1.Lines.Add('...supports file-based compression');
        Ord(fsVolumeIsCompressed)  :
          Memo1.Lines.Add('...resides on a compressed volume');
      end;
  end;
 
  //Determinar si el sistema soporta nombres largos
  if (maxCmpLen > 8.3) then
    Memo1.Lines.Add('...soporta nombres largos');
 
  Label6.Caption := StrPas(pVolName);
  Label3.Caption := IntToStr(nVNameSer^);
  Label4.Caption := StrPas(pFSBuf);
 
  //Obtener el tipo de Unidad
  dType := TDrvType(GetDriveType(PChar(drv)));
  case dType of
    dtNotDetermined : Label10.Caption := 'Imposible de determinar';
    dtNonExistent   : Label10.Caption := 'No existe';
    dtRemoveable    : Label10.Caption := 'Unidad portatil)';
    dtFixed         : Label10.Caption := 'Disco Fixed';
    dtRemote        : Label10.Caption := 'Unidad de Red';
    dtCDROM         : Label10.Caption := 'CD-ROM';
    dtRamDrive      : Label10.Caption := 'RAM';
  end;
 
  //Obtener la capacidad total y espacio disponible del disco
  //presentado en MB's
  GetDiskFreeSpace(PChar(drv), SectPerCls, BytesPerCls, FreeCls, TotCls);
  Label11.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls *
                                          TotCls)/1000000) + ' MB';
  Label12.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls *
                                          FreeCls)/1000000) + ' MB';
 
  FreeMem(pVolName, MAX_PATH);
  FreeMem(pFSBuf, MAX_PATH);
  FreeMem(nVNameSer, MAX_PATH);
end;
 
function GetLogDrives : String;
var
  stDrives : Set of 0..25; //Posibles unidades lógicas
  drvNum  : Integer;
begin
  Integer(stDrives) := GetLogicalDrives; //Tal vez cargue posibles valores;
  Result := '';
  for drvNum := 0 to 25 do begin
    if not (drvNum in stDrives) then
      Continue;
    Result := Result + Char(drvNum + Ord('a'));
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Release;
  Application.Terminate;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(GetLogDrives);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  GetVolInfo;
end;
 
procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
  GetVolInfo;
end;
 
end.

No sé si eso es lo que buscas.

Saludos.

[cHackAll]

Amigo enecumene, eso te da información lógica de un dispositivo, una vez reformateado el SN que esta almacenado en el Boot cambia y deja de ser un valor identificativo, aquí­ escribi algo hace un tiempo atrás...

[seoane]

Yo estoy dándole vueltas a esto:

delphi

uses ComObj, ActiveX;
 
procedure USBPnPIDs(List: TStringList);
var
  ScriptControl: OleVariant;
  WmiService: OleVariant;
  Items: IUnknown;
  DiskDrives: IEnumVariant;
  Fetched: Cardinal;
  Item: OleVariant;
  Str: String;
begin
  List.Clear;
  ScriptControl:= CreateOleObject('ScriptControl');
  ScriptControl.Language := 'VBScript';
  WmiService:= ScriptControl.Eval('GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")');
  Items:= WMIService.ExecQuery('SELECT * FROM Win32_DiskDrive')._NewEnum;
  DiskDrives:= Items as IEnumVariant;
  DiskDrives.Next(1, Item, Fetched);
  while Fetched = 1 do
  begin
    if VarToStrDef(Item.InterfaceType,EmptyStr) = 'USB'  then
    begin
      Str:= VarToStrDef(Item.PNPDeviceID,EmptyStr);
      if Str <> EmptyStr then
        List.Add(Str);
    end;
    DiskDrives.Next(1, Item, Fetched);
  end;
end;
 
// Por ejemplo
var
  List: TStringList;
begin
  List:= TStringList.Create;
  try
    USBPnpIDs(List);
    memo1.Lines.Assign(List);
  finally
    List.Free;
  end;
end;

Y tambien a esto:

delphi

procedure USBPnPIDs(List: TStringList);
var
  i: integer;
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum') then
    begin
      i:= 0;
      while ValueExists(IntToStr(i)) do
      begin
        List.Add(ReadString(IntToStr(i)));
        inc(i);
      end;
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Pero no termina de convencerme  :^)

[enecumene]

Amigo enecumene, eso te da información lógica de un dispositivo, una vez reformateado el SN que esta almacenado en el Boot cambia y deja de ser un valor identificativo, aquí­ escribi algo hace un tiempo atrás...

Ah vaya, no sabí­a eso , gracias por la info ChackAll, .

Saludos.

[rhino0nt]

Yo estoy dándole vueltas a esto:

delphi

uses ComObj, ActiveX;
 
procedure USBPnPIDs(List: TStringList);
var
  ScriptControl: OleVariant;
  WmiService: OleVariant;
  Items: IUnknown;
  DiskDrives: IEnumVariant;
  Fetched: Cardinal;
  Item: OleVariant;
  Str: String;
begin
  List.Clear;
  ScriptControl:= CreateOleObject('ScriptControl');
  ScriptControl.Language := 'VBScript';
  WmiService:= ScriptControl.Eval('GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")');
  Items:= WMIService.ExecQuery('SELECT * FROM Win32_DiskDrive')._NewEnum;
  DiskDrives:= Items as IEnumVariant;
  DiskDrives.Next(1, Item, Fetched);
  while Fetched = 1 do
  begin
    if VarToStrDef(Item.InterfaceType,EmptyStr) = 'USB'  then
    begin
      Str:= VarToStrDef(Item.PNPDeviceID,EmptyStr);
      if Str <> EmptyStr then
        List.Add(Str);
    end;
    DiskDrives.Next(1, Item, Fetched);
  end;
end;
 
// Por ejemplo
var
  List: TStringList;
begin
  List:= TStringList.Create;
  try
    USBPnpIDs(List);
    memo1.Lines.Assign(List);
  finally
    List.Free;
  end;
end;

Y tambien a esto:

delphi

procedure USBPnPIDs(List: TStringList);
var
  i: integer;
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum') then
    begin
      i:= 0;
      while ValueExists(IntToStr(i)) do
      begin
        List.Add(ReadString(IntToStr(i)));
        inc(i);
      end;
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Pero no termina de convencerme  :^)

Esto serí­a para obtener el id del puerto donde se ha conectado el dispositivo USB, es correcto ? Tengo entendido que Windows asigna un id único a cada puerto usb en el sistema pero esto no serí­a el número de identificación del usb, como comentaba anteriormente tengo entendido que cada dispisitivo USB cuenta con un id único...

Continuaré investigando y cualquier avance lo publicaré.

[enecumene]

¿La solución de ChacKall no te sirve?, él colocó un ví­nculo a su web donde presenta un código al respecto.

Saludos.

[seoane]

Esto serí­a para obtener el id del puerto donde se ha conectado el dispositivo USB, es correcto ?

No, esto devuelve el numero de serie del disco usb.

La cadena de texto que te devuelve para cada disco tienen varios parámetros separados por el sí­mbolo "\". El ultimo de ellos es el numero de serie que el fabricante grabo en el disco. Pero este numero no tiene porque ser único, bien porque dos fabricantes pueden usar números de serie iguales, o porque un fabricante perezoso no se moleste en grabar números de serie diferentes para cada dispositivo.

De todas formas si quieres solo el numero de serie usa la función ExtractFilename. Por ejemplo:

delphi

procedure USBPnPIDs(List: TStringList);
var
 i: integer;
begin
 with TRegistry.Create do
 try
   RootKey:= HKEY_LOCAL_MACHINE;
   if OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum') then
   begin
     i:= 0;
     while ValueExists(IntToStr(i)) do
     begin
       List.Add(ExtractFilename(ReadString(IntToStr(i))));
       inc(i);
     end;
     CloseKey;
   end;
 finally
   Free;
 end;
end;

Pero yo usarí­a la cadena completa, ya que, además del numero de serie, contiene otros identificadores como el fabricante o la versión, lo que hace esta cadena mas "única" que el simple numero de serie.

[pcicom]

Saludos SEOANE

Oye con respecto a los SERIES de los USB,,  sabes si alguna marca en PARTICULAR las SERIALIZA distintas,,,  es decir que CADA USB tenga su propia SERIE independientemente si FABRICARON "x" cantidad.

Porque como lo comentas si fue PERESOSO el FABRICANTE y se utiliza la de ese fabricante pues la llave seria muy sencilla de CLONAR copiar..

[seoane]

Pues no se que fabricante es el mas adecuado pcicom, supongo que seria una cuestión de "prueba y error".

De todas formas esta protección usb es algo improvisado, no se deberí­a de usar como algo seguro al 100%. Para eso ya hay sistemas de protección comerciales muchí­simo mas seguros, que ya utilizan llaves usb (no discos) combinados con sistemas de cifrado asimétrico.

[rhino0nt]

Esto serí­a para obtener el id del puerto donde se ha conectado el dispositivo USB, es correcto ?

No, esto devuelve el numero de serie del disco usb.

La cadena de texto que te devuelve para cada disco tienen varios parámetros separados por el sí­mbolo "\". El ultimo de ellos es el numero de serie que el fabricante grabo en el disco. Pero este numero no tiene porque ser único, bien porque dos fabricantes pueden usar números de serie iguales, o porque un fabricante perezoso no se moleste en grabar números de serie diferentes para cada dispositivo.

De todas formas si quieres solo el numero de serie usa la función ExtractFilename. Por ejemplo:

delphi

procedure USBPnPIDs(List: TStringList);
var
 i: integer;
begin
 with TRegistry.Create do
 try
   RootKey:= HKEY_LOCAL_MACHINE;
   if OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum') then
   begin
     i:= 0;
     while ValueExists(IntToStr(i)) do
     begin
       List.Add(ExtractFilename(ReadString(IntToStr(i))));
       inc(i);
     end;
     CloseKey;
   end;
 finally
   Free;
 end;
end;

Pero yo usarí­a la cadena completa, ya que, además del numero de serie, contiene otros identificadores como el fabricante o la versión, lo que hace esta cadena mas "única" que el simple numero de serie.

Me salta un poco el uso del HKEY_LOCAL_MACHINE en el registro, voy a hacer las pruebas con un usuario restringido para ver si no brinca por falta de derechos, lo pruebo y les comento.

Lo que estoy haciendo es básicamente una alternativa para algunos clientes perezosos que tengo en mis sistemas que no quieren ni siquiera recordar una contraseña para acceder a sus sistemas pero que si son muy esquizofrénicos con la infomración que guardan en la misma, asi que básicamente lo que hago es crear una llave única con la combinación de la serie de una usb que ellos definan y un algoritmo de encriptación por cuadros que no es nada del otro mundo pero que me ha servido mucho personalmente.

Una vez que lo tenga terminado pueden dar por hecho que publicaré un tutorial al respecto, quizá alguien cuenta con el mismo tipo de clientes para sus aplicaciones.

Saludos a todos.

[root]

y en que quedo ???

se puede o no se puede ???

digo suena interesante como para hacer algo asi como un licenciamiento de tipo
te regalo el programa
pero te vendo la USB que hace que corra
jjiijjiijijij

[cHackAll]

y en que quedo ???

se puede o no se puede ???

digo suena interesante como para hacer algo asi como un licenciamiento de tipo
te regalo el programa
pero te vendo la USB que hace que corra
jjiijjiijijij

usbGetSerial