elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12
1  Programación / Programación Visual Basic / Re: Crear Dongles en VB en: 18 Octubre 2013, 04:24 am
Saludos.


El dongle lo pensaba asi. Que cuando inicie sección en mi cuenta de Windows XP, se ejecute el mismo programa rapidamente, y este pida una contrasenha y un usuario. Pero que al mismo tiempo revise un archivo X en una memoria USB. De tal manera que aunque se sepa la contrasenha del dongle, si no esta la memoria USB saque rapidamente de la sección.
 


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




2  Foros Generales / Foro Libre / Re: ¿Que recortariais para salir de la crisis? en: 1 Septiembre 2012, 20:30 pm

http://es.wikipedia.org/wiki/Bankia


http://es.wikipedia.org/wiki/Rodrigo_Rato


http://es.wikipedia.org/wiki/Fondo_Monetario_Internacional

3  Foros Generales / Foro Libre / Re: ¿Que recortariais para salir de la crisis? en: 31 Agosto 2012, 19:16 pm

Recortaría los consejos del FMI ...

4  Programación / Programación C/C++ / Re: disco virtual en: 21 Enero 2012, 10:53 am

Como decia antes esta en el WDK, buscalo en Google, bajalo y selecciona los "samples" al instalar.



hola
como dice el amigo Eternal Idol  este ejemplo se encuentra en el WDK ,pero si quieres mira este link ,también tiene un ejemplo un poco mas sencillo (creo yo)que el del WDK.


http://support.microsoft.com/kb/257405
o este
http://code.msdn.microsoft.com/windowshardware/WDKRamDisk-c3322885



Gracias nuevamente, recien me inicio con este tema, peden ayudar las "APIs del Setup" para facilitar el trabajo ?


http://translate.google.com.ar/translate?hl=es&sl=en&u=http://msdn.microsoft.com/en-us/library/windows/hardware/ff544717(v%3Dvs.85).aspx&ei=Q4kaT8PTGcPg0QG094jGCw&sa=X&oi=translate&ct=result&resnum=1&sqi=2&ved=0CCIQ7gEwAA&prev=/search%3Fq%3Ddiinstalldriver%26hl%3Des%26biw%3D1024%26bih%3D600%26prmd%3Dimvnsfd


5  Programación / Programación C/C++ / Re: disco virtual en: 15 Enero 2012, 00:39 am
Hola, no pude encuentrar el ejemplo al que se refieren, me pueden facilitar el link, gracias y saludos.



6  Programación / Programación Visual Basic / Re: Seriales de Pen-Drives conectados (SRC) en: 5 Diciembre 2011, 18:52 pm
Sí, en adelante será mejor referirse a estas clases de dispositivos como GUID.





estas seguro que no es el serial verdadero?  :-[


Segurísimo !!!


Seriales de Hard Disk conectados (Solo funciona como usuario Administrador ):


Código
  1.  
  2. Option Explicit
  3.  
  4. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  5. ' Function: SerialHD
  6. ' Autor: Adrian Desanti (Dessa)
  7. ' Creditos: es una adaptacion a mis necesidades de una clase de Antonio Giuliana
  8. ' Agradecimientos: Karcrak (IsAdministrador)
  9. ' Requisitos : Windows NT + Administrador
  10. ' Rertorno: retorna el serial verdadero de Discos IDE o S-ATA conectados
  11. ' Serial verdadero: Es el que figura en la etiqueta del Disco y no cambia al formatear
  12. ' Fecha : V.2 Septiembre 2010
  13. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  14.  
  15. Private Declare Function CheckTokenMembership Lib "ADVAPI32" (ByVal TokenHandle As Long, ByVal pSidToCheck As Long, ByRef IsMember As Boolean) As Long
  16.  
  17. Private Declare Function GetVersion Lib "KERNEL32" () As Long
  18. Private Declare Function CreateFile Lib "KERNEL32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
  19. Private Declare Function CloseHandle Lib "KERNEL32" (ByVal hObject As Long) As Long
  20. Private Declare Function DeviceIoControl Lib "KERNEL32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
  21. Private Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes As Long)
  22.  
  23. Private Type IDEREGS
  24.    bFeaturesReg As Byte: bSectorCountReg As Byte: bSectorNumberReg As Byte: bCylLowReg As Byte: bCylHighReg As Byte: bDriveHeadReg As Byte: bCommandReg As Byte: bReserved As Byte
  25. End Type
  26. Private Type SENDCMDINPARAMS
  27.    cBufferSize As Long: irDriveRegs As IDEREGS: bDriveNumber As Byte: bReserved(1 To 3) As Byte: dwReserved(1 To 4) As Long
  28. End Type
  29. Private Type DRIVERSTATUS
  30.    bDriveError As Byte: bIDEStatus As Byte: bReserved(1 To 2) As Byte: dwReserved(1 To 2) As Long
  31. End Type
  32. Private Type SENDCMDOUTPARAMS
  33.    cBufferSize As Long: DStatus As DRIVERSTATUS: bBuffer(1 To 512) As Byte
  34. End Type
  35.  
  36. Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As GUID) As Long
  37. Private Declare Function SetupDiGetClassDevs Lib "setupapi.dll" Alias "SetupDiGetClassDevsA" (ByVal ClassGuid As Long, ByVal Enumerator As Long, ByVal HwndParent As Long, ByVal flags As Long) As Long
  38. Private Declare Function SetupDiEnumDeviceInterfaces Lib "setupapi.dll" (ByVal DeviceInfoSet As Long, ByVal DeviceInfoData As Long, ByRef InterfaceClassGuid As GUID, ByVal MemberIndex As Long, ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA) As Long
  39. Private Declare Function SetupDiDestroyDeviceInfoList Lib "setupapi.dll" (ByVal DeviceInfoSet As Long) As Long
  40.  
  41. Private Type GUID
  42.    Data1 As Long: Data2 As Integer: Data3 As Integer: Data4(0 To 7) As Byte
  43. End Type
  44.  
  45. Private Type SP_DEVICE_INTERFACE_DATA
  46.    cbSize As Long: InterfaceClassGuid As GUID: flags As Long: Reserved As Long
  47. End Type
  48.  
  49.  
  50. Private Sub Form_Load()
  51.  
  52.  If (GetVersion And &HFF) > &H5 Then
  53.    If App.LogMode = 0 Then
  54.        MsgBox "En Vista o Seven ejecutar compilado en modo Administrador"
  55.        End
  56.    End If
  57.  End If
  58.  
  59.  
  60.  AutoRedraw = True
  61.  FontBold = True
  62.  Caption = ""
  63.  Print SerialHD()
  64.  
  65.  
  66.  
  67. End Sub
  68.  
  69. Public Function SerialHD() As String
  70.  
  71.  If (GetVersion And &HFF) < 5 Then
  72.    SerialHD = "Sistema Operativo No válido"
  73.    Exit Function
  74.  End If
  75.  
  76.  If IsAdministrador = False Then
  77.    SerialHD = "Se requiere usuario Administrador"
  78.    Exit Function
  79.  End If
  80.  
  81.  Dim RetDiskCount  As Long
  82.  
  83.  RetDiskCount = DiskCount()
  84.  
  85.  If RetDiskCount < 0 Then
  86.    SerialHD = "DiskCount No válido"
  87.    Exit Function
  88.  End If
  89.  
  90.  Dim nDisco        As Long
  91.  Dim hdh           As Long
  92.  Dim hddfr         As Byte
  93.  Dim hddln         As Byte
  94.  Dim bin           As SENDCMDINPARAMS
  95.  Dim bout          As SENDCMDOUTPARAMS
  96.  Dim br            As Long
  97.  Dim x             As Byte
  98.  Dim s             As String
  99.  
  100.  For nDisco = 0 To RetDiskCount - 1 ' los ciclos del For serán solo la cantidad de "PhysicalDrive" conectados
  101.  
  102.      hdh = CreateFile("\\.\PhysicalDrive" & nDisco, &H3, &H0, &H0, &H3, &H0, &H0)
  103.  
  104.      If hdh = -1 Then
  105.          If nDisco = 0 Then
  106.              SerialHD = " IDE " & nDisco & " = " & "Error en CreateFile" & vbNewLine
  107.          Else
  108.              SerialHD = SerialHD & " IDE " & nDisco & " = " & "Error en CreateFile" & vbNewLine
  109.          End If
  110.      Else
  111.          hddfr = 21 ' Posicion en el buffer del SerialNumber
  112.          hddln = 20 ' Tamaño resrvado en el buffer para el SerialNumber
  113.  
  114.          Call ZeroMemory(bin, Len(bin))
  115.          Call ZeroMemory(bout, Len(bout))
  116.  
  117.          With bin
  118.              .bDriveNumber = nDisco
  119.              .cBufferSize = 512
  120.            With .irDriveRegs
  121.                If (nDisco And 1) Then
  122.                    .bDriveHeadReg = &HB0
  123.                Else
  124.                    .bDriveHeadReg = &HA0
  125.                End If
  126.                .bCommandReg = &HEC
  127.                .bSectorCountReg = 1
  128.                .bSectorNumberReg = 1
  129.            End With
  130.          End With
  131.  
  132.          'DFP_RECEIVE_DRIVE_DATA = &H7C088
  133.          Call DeviceIoControl(hdh, &H7C088, bin, Len(bin), bout, Len(bout), br, 0)
  134.  
  135.          s = ""
  136.          For x = hddfr To hddfr + hddln - 1 Step 2
  137.              If bout.bBuffer(x + 1) = 0 Then Exit For
  138.              s = s & Chr(bout.bBuffer(x + 1))
  139.              If bout.bBuffer(x) = 0 Then Exit For
  140.              s = s & Chr(bout.bBuffer(x))
  141.          Next x
  142.          Call CloseHandle(hdh)
  143.  
  144.          If Trim$(s) <> "" Then
  145.              SerialHD = SerialHD & " IDE " & nDisco & " = " & Trim$(s) & vbNewLine
  146.          End If
  147.      End If
  148.  
  149.  Next nDisco
  150.  
  151. End Function
  152.  
  153. Private Function DiskCount() As Long
  154.  
  155.    Dim TGUID   As GUID
  156.    Dim hDev    As Long
  157.  
  158.    Call IIDFromString(StrPtr("{53f56307-b6bf-11d0-94f2-00a0c91efb8b}"), TGUID)
  159.  
  160.    '&H12 ===> DIGCF_PRESENT = &H10 Or DIGCF_DEVICEINTERFACE = &H2
  161.    hDev = SetupDiGetClassDevs(VarPtr(TGUID), &H0, &H0, &H12)
  162.  
  163.    If hDev = -1 Then
  164.      DiskCount = -1
  165.      Exit Function
  166.    End If
  167.  
  168.    Dim Cnt As Long
  169.    Dim DTA  As SP_DEVICE_INTERFACE_DATA
  170.    DTA.cbSize = Len(DTA)
  171.  
  172.    While Not (SetupDiEnumDeviceInterfaces(hDev, &H0, TGUID, Cnt, DTA) = &H0)
  173.        Cnt = Cnt + 1
  174.    Wend
  175.  
  176.    Call SetupDiDestroyDeviceInfoList(hDev)
  177.  
  178.    DiskCount = Cnt
  179.  
  180. End Function
  181.  
  182. Private Function IsAdministrador() As Boolean
  183.   Dim SID(1)  As Currency
  184.   SID(0) = 36028797018964.0193@
  185.   SID(1) = 233646220.9056@
  186.   Call CheckTokenMembership(&H0, VarPtr(SID(0)), IsAdministrador)
  187. End Function
  188.  
  189.  
  190.  



7  Programación / Programación Visual Basic / Re: Seriales de Pen-Drives conectados (SRC) en: 4 Diciembre 2011, 22:24 pm
Hola Maurice_Lupin , la clase 53f56307-b6bf-11d0-94f2-00a0c91efb8b si detecta los discos Sata 1 y sata 2, todavia no pude probar con Sata 3 pero seguramente tambien los detecta ya que es la misma interface.

Esta clase tambien detecta (o enumera mejor dicho) Discos IDE, ZIP de interface IDE y Dispositivos de almacenamiento USB... por lo tanto deberás filtrar los retornos de acuerdo a lo que quieras listar, por ejemplo en el codigo original solo listé la interface USB

 If InStr(UCase$(DTL.strDevicePath), "USB") Then      

http://foro.elhacker.net/programacion_visual_basic/seriales_de_pendrives_conectados_src-t331333.0.html;msg1664147#msg1664147



Nota: Las interfaces "IDE" & Sata no retornan el Serial verdadero por esta vía... A Diferencia de la interface USB que sí se puede obtener con este método


La clase a5dcbf10-6530-11d2-901f-00c04fb951ed solo enumera Dispositivos de almacenamiento USB, por lo tanto no hay que "filtrar retornos"
http://foro.elhacker.net/programacion_visual_basic/seriales_de_pendrives_conectados_src-t331333.0.html;msg1629437#msg1629437








8  Programación / Programación Visual Basic / Re: Simular Click en: 1 Diciembre 2011, 01:13 am
Hola, no sé si entendí bien lo de arrastrar objetos... te dejo un ejemplo (sin optimizar) válido para xp (para W7 tenés q cambiar el nombre de clase "SciCalc" por la q corresponda)

Código:


Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command1_Click()
   
    Shell "calc"
   
    Dim Hndl As Long

    Hndl = FindWindow("SciCalc", vbNullString)
    Hndl = FindWindowEx(Hndl, 0, vbNullString, "1")
   
    Call SetWindowPos(Hndl, vbNull, 1, 1, 35, 28, 0)

End Sub


9  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda pasar codigo a VB.Net: Seriales Pen-Drives vb6 en: 16 Noviembre 2011, 21:37 pm


   ' 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)
   
 


Fijate si esto ayuda

http://bytes.com/topic/visual-basic-net/answers/381152-how-declare-globally-unique-identifier-guid


10  Programación / Programación Visual Basic / Re: Seriales de Pen-Drives conectados (SRC) en: 8 Noviembre 2011, 19:05 pm
En VB.Net no tengo ni idea de como capturar los mensajes del Form, pero mirá este link, aparentemente es un hook al mouse... tal vez te sirva de ejemplo para AddressOf .

http://support.microsoft.com/kb/319524






Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines