Alternativa a LOF | Filelen FUD (By M3)

  • 1 Respuestas
  • 3265 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5702
  • Actividad:
    76.67%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Alternativa a LOF | Filelen FUD (By M3)

  • en: Junio 01, 2012, 06:18:43 am
Código: Visual Basic
  1. ' =================================================================================================================
  2. ' => Autor : M3
  3. ' => Lenguaje: VB6
  4. ' => Proposito : Alternativa a LOF | FileLen
  5. ' => Flecha : 15|05|2012
  6. ' => Detecciones : 0 | 37 ( http://scanner.udtools.net/reporte.php?id=skj5_dzyE )
  7. '==================================================================================================================
  8. Declare Function lOpen Lib "KERNEL32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
  9. Declare Function GetFileSize Lib "KERNEL32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
  10. Declare Function SysAllocStringLen Lib "oleaut32" (ByVal Ptr As Long, ByVal Length As Long) As Long
  11. Declare Sub PutMem4 Lib "msvbvm60" (ByVal Ptr As Long, ByVal Value As Long)
  12.  
  13.  
  14. Private Sub Main()
  15.  
  16.  Dim sBuffer   As String
  17.  Dim sAppPath  As String
  18.  
  19.  Call PutMem4(VarPtr(sBuffer), SysAllocStringLen(&H0, GetFileSize(lOpen(sAppPath, &H0), &H0)))
  20.  
  21. End Sub
« Última modificación: Mayo 12, 2014, 03:34:21 pm por Expermicid »


Desconectado decoder79

  • *
  • Underc0der
  • Mensajes: 5
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email

Re:Alternativa a LOF | Filelen FUD (By M3)

  • en: Junio 09, 2012, 01:03:18 pm
Este si que es bueno si señor.