Mensajes

Que no haya bronca, como dice Leandro el modulo que esta en el RevShell NO tiene nada de creditos adentro del code (fueron dados en el post) por que ese modulo no los tenia, no recuerdo concretamente de donde lo saque creo que fue de HH, si mal no recuerdo lo edite para usar el tlb porque el code usaba estructuras, pero el credito fue dado en su mometo.

Aca esta el post original: http://cobein.com/wp/?p=607

Muy lindo Leandro, lo testie localmente sin ningun problema. Admiro mucho tu habilidad y la dedicacion que le pones a tus proyectos.

   Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

Mirando el stack, se puede encontrar la direccion de retorno y "posiblemnete" ver desde donde se llamo pero no estoy seguro, en el caso de que se pueda, desde y ate digo que no tiene sentido en lo mas minimo devido al trabajo que involucraria comparado con simplemente pasar un paramtro.

Como decia BlackZeroX, yo usaria una variable para almacenar el handle o de ser necesario un objeto para el form y listo, no vale la pena hacer otra cosa.

Aca hay un documento muy interesante

hxxp://vision.ai.uiuc.edu/mhyang/papers/icpr04_tutorial.pdf

[Ningun programador puede jaja xD]

Ningun programador puede jaja xD <----- Ironico no? xD

Ahi arme un modulo de clase para dibujar barcode128 B , http://cobein.com/wp/?p=631 es bastante simple asi que cualquier extra lo dejo para el ususrio AKA mejorar la funcion de dibujado etc.

http://sourceforge.net/apps/trac/libusb-win32/wiki/libusbwin32_documentation

Mirando el ultimo proyecto de Leandeo me dio curiosidad el tema de leer el contenido de los zip y arme un mudulo super simple para listar las carpetas y archivos (solo las rutas).

Código [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module      : mZIPInfo
' DateTime    : 10/12/2010 10:45
' Author      : Cobein
' Mail        : cobein27@hotmail.com
' WebPage     : http://www.advancevb.com.ar
' Purpose     : Read file/folder info from zip files
' Usage       : At your own risk
' Requirements: None
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
'
' Reference   : http://www.pkware.com/documents/casestudies/APPNOTE.TXT
'
' History     : 10/12/2010 First Cut....................................................
'---------------------------------------------------------------------------------------
Option Explicit

Private Const ZIP_SIGNATURE As Long = &H4034B50

Private Type tZipHeader
    Signature   As Long
    Version     As Integer
    Flag        As Integer
    Compression As Integer
    FileTime    As Integer
    FileDate    As Integer
    CRC         As Long
    CompZise    As Long
    UncompSize  As Long
    NameLength  As Integer
    ExtraLength As Integer
End Type

Public Function ReadZipInfo(ByVal sFile As String) As Collection
    Dim iFile   As Integer
    Dim tHead   As tZipHeader
    Dim sName   As String
    Dim sExtra  As String
    Dim lOffset As Long
    Dim cNames  As New Collection
   
    On Local Error GoTo ReadZipInfo_Error

    iFile = FreeFile
    lOffset = 1
   
    Open sFile For Binary Access Read As iFile
NextHead:
    Get iFile, lOffset, tHead
    With tHead
        If .Signature = ZIP_SIGNATURE Then
            sName = Space(.NameLength)
            Get iFile, , sName
            sExtra = Space(.ExtraLength)
            Get iFile, , sExtra
            Call cNames.Add(sName)
            lOffset = lOffset + .CompZise + 30 + .ExtraLength + .NameLength
            GoTo NextHead:
        End If
    End With
    Close iFile
    Set ReadZipInfo = cNames

    On Error GoTo 0
    Exit Function

ReadZipInfo_Error:
    Close iFile
    Set ReadZipInfo = cNames
End Function

A ver, si mal no tengo entendido el software de reconocimiento facial comercial ronda el 60% de efectividad, con esto quiero decir, si una compania que se dedica exclusivamente a eso 24/7 con presupuesto, tiempo y recursos no logra un grado de serteza aceptable vale la pena envarcarse en esto?

[len("c:\a")<4 = false]

@cobein

Pero len("c:\a")<4 = false asi que si aplica...

Pasaba por aca y me llamo la atencion esto

Código [Seleccionar] Expandir

If Dir(Str, vbArchive) <> "" Or Str = "" Or Len(Str) < 4 Then

no esta mal pero la logica que se utiliza para filtrar con Len(Str) < 4 dejaria de lado posibles archivos existentes con rutas validas, ejemplo una ruta relativa como ser "\<archivo>" siendo el nombre del archivo menor o igual a 2 caracteres en total, que podria ser el eqivalente a "c:\a" o como ruta relativa "\a"