Mensajes

[Sergio Desanti (Hasseds)]

Estoy pasando un code a VB.net 2005 de Sergio Desanti (Hasseds) del foro VB6 : Seriales

Pen-Drives
http://foro.elhacker.net/programacion_visual_basic/seriales_de_pendrives_conectados_src-t331333.0.html

EL problema es que entra en un bucle interminable, y tampoco estoy seguro si estoy utilizando bien las

funciones del API

Código (vbnet) [Seleccionar] Expandir



   Imports System.Runtime.InteropServices    

   <StructLayout(LayoutKind.Sequential)> _
   public structure SP_DEVICE_INTERFACE_DATA
       public cbSize as Long
       public InterfaceClassGuid as GUID
       public flags as Long
       public IntPtr as Long
   End Structure
   
   <StructLayout(LayoutKind.Sequential)> _
   Public Structure SP_DEVINFO_DATA
    Public cbSize As UInteger
    Public ClassGuid As Guid
Public DevInst As UInteger
    Public Reserved As IntPtr
   End Structure
   
   
  <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
  Public Structure SP_DEVICE_INTERFACE_DETAIL_DATA
  Public cbSize As UInt32
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> _
Public strDevicePath As String
  End Structure
   
   ' SetupDiGetClassDevs: Retorna informacion sobre el dispositivo.
   <DllImport("setupapi.dll",EntryPoint:="SetupDiGetClassDevsW", SetLastError:=True, _
   CharSet:=CharSet.Unicode, ExactSpelling:=True, PreserveSig:=True, _
   CallingConvention:=CallingConvention.Winapi)> _
   Private Shared Function SetupDiGetClassDevs( _
   ByRef ClassGuid As GUID, _
   ByVal Enumerator As Integer, _
   ByVal hwndParent As Integer, _
   ByVal Flags As Integer) As Integer
   End Function    

 ' SetupDiEnumDeviceInterfaces
 <DllImport("setupapi.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
 Public Shared Function SetupDiEnumDeviceInterfaces(ByVal hDevInfo As IntPtr, _
   ByRef devInfo As SP_DEVICE_INTERFACE_DATA, _
   ByRef interfaceClassGuid As Guid, _
   ByVal memberIndex As UInt32, _
   ByRef deviceInterfaceData As SP_DEVICE_INTERFACE_DATA) As Boolean
 End Function
 
 ' SetupDiGetDeviceInterfaceDetail
 <DllImport("setupapi.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
   Public Shared Function SetupDiGetDeviceInterfaceDetail ( _
   ByVal DeviceInfoSet As IntPtr, _
   ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA, _
   ByRef DeviceInterfaceDetailData As SP_DEVICE_INTERFACE_DETAIL_DATA, _
   ByVal DeviceInterfaceDetailDataSize As UInteger, _
   ByRef RequiredSize As UInteger, _
   ByRef DeviceInfoData As SP_DEVINFO_DATA) As Boolean
   end function
   
   ' SetupDiDestroyDeviceInfoList
   <DllImport("setupapi.dll", _
   EntryPoint:="SetupDiDestroyDeviceInfoList", _
   SetLastError:=True, _
   ExactSpelling:=True, _
   PreserveSig:=True, _
   CallingConvention:=CallingConvention.Winapi)> _
   Private Shared Function SetupDiDestroyDeviceInfoList( _
   ByVal DeviceInfoSet As Integer) As Boolean
   End Function
   
   '------CharSet:=CharSet.Auto
'    <DllImport("ole32.dll", CharSet:=CharSet.Unicode,PreserveSig:=false)> _
' static IIDFromString(lpsz as String)
   

' Funcion
Public Function FlashSerials() As String

  Dim TGUID As GUID
  Dim lCount       As Long
  Dim lSize        As Long
  Dim DTL          As new SP_DEVICE_INTERFACE_DETAIL_DATA
  Dim DTA          As new SP_DEVICE_INTERFACE_DATA
  dim cad as String  
  Dim strValue As String ="{a5dcbf10-6530-11d2-901f-00c04fb951ed}"

  ' esto era: Call IIDFromString(StrPtr("{a5dcbf10-6530-11d2-901f-00c04fb951ed}"), TGUID)
  ' pero no encuentro un equivalente en NET de IIDFromString
  ' encontre por ahi que se podia crear un Guid asi, estara bien?
  TGUID = New Guid(strvalue)
 
  Dim hDev As Long  
  hDev = SetupDiGetClassDevs(TGUID, &H0, &H0, &H12)

  If hDev = -1 Then
  return "No hay nada"
  Exit Function
  End If
 
  DTA.cbSize = Len(DTA)
  DTL.cbSize = &H5
 
  Dim dia As  SP_DEVICE_INTERFACE_DATA  
  dia.cbSize = &H0  
   
  Dim dd As SP_DEVINFO_DATA
  dd.cbSize = &H0
  cad = ""
  lCount = 0
  Dim nulo As new SP_DEVICE_INTERFACE_DETAIL_DATA

  ' Esto era asi
  'do while not (SetupDiEnumDeviceInterfaces(hDev, &H0, TGUID, lCount, DTA) = &H0)
  ' Entra en un bucle interminable,que estoy haciendo mal?
  do While not SetupDiEnumDeviceInterfaces(hDev, dia , TGUID, lCount, DTA)

    ' Tengo mis dudas si estoy utilizando bien las funciones
    'call SetupDiGetDeviceInterfaceDetail(hDev, DTA, ByVal &H0, &H0, lSize, ByVal &H0)      
    Call SetupDiGetDeviceInterfaceDetail(hDev, dia, nulo , &H0, lSize, dd)      

    ' Call SetupDiGetDeviceInterfaceDetail(hDev, DTA, DTL, ByVal lSize, &H0, ByVal &H0)
    call SetupDiGetDeviceInterfaceDetail(hDev, DTA, DTL, lSize, &H0, dd)
   
    If UBound(Split(DTL.strDevicePath, "#")) > 1 Then
      cad = cad & Split(UCase(DTL.strDevicePath), "#")(2) & Chr(&HD)      
    End If    
    lCount = lCount + 1
  loop
  Call SetupDiDestroyDeviceInfoList(hDev)
 
  If cad = "" Then cad = "No hay conexiones"
  return cad
End Function


Si alguien tiene sugerencias o alguna informacion sobre las funciones de la API que comento, se los

agradeceria.

Saludos.

Funciona muy bien, gracias por el dato, seria muy bueno pasar tu code de los seriales a VB2005. Yo uso el http://www.icsharpcode.net/OpenSource/SD/ para no pagar licencia.

Gracias.

[AddressOf WindowProc]

Intente pasar tu code a VB2005 yo utilizo el Sharpdevelop
Estoy averiguando como utilizar la API
SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)

me da problemas con AddressOf WindowProc si tienes alguna recomendación, algún link que puedas compartir te lo agradeceria. Seguiré averiguando.

Saludos

[karmany]

Gracias por las sugerencias karmany, pienso cifrar el valor del serial. Voy a empezar a leer sobre cracking, tengo nociones de asm, espero eso ayude. Buenos tips _Enko y quizá .:UND3R:. envio una versión pequeña, aunque soy medio paranoico  .

Saludos

compilo en P-code.
En mi programa pienso comparar el serial del disco duro o usb. Pienso poner el serial previamente obtenido en una variable y comparar en tiempo de ejecución 2 ó 3 veces.

Este método que tan dificil de crackear es? y si tendrían algunas sugerencias para hacerlo más dificil de crackear.

gracias por las sugerencias.

modificado, hare un nuevo asunto.

mmm... me parece q me fuí al carajo 

? 

Entendi que hook es detectar las acciones que el usuario realiza mientras el programa esta activo, en este caso el USB conectado o no.

Me sirve, claro que si, como decimos en mi barrio: Gracielas 

Funciona en una cuenta de usuario, cuando usas WMI necesitas permisos  lo utilizaré, aún no entiendo que es eso de hook en el formulario. Pero averiguaré.

Saludos.

Si no eres administrador no deberia poderse,y no se puede. Aunque quizá alguien sabe como... jaja

parece que si, aún no lo reviso

http://www.perio.unlp.edu.ar/amnti/?q=node/5