send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Alternativa a LOF | Filelen FUD (By M3)

  • 1 Respuestas
  • 2135 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    30%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« 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
« Respuesta #1 en: Junio 09, 2012, 01:03:18 pm »
Este si que es bueno si señor.

 

¿Te gustó el post? COMPARTILO!