Indetectables

Código: Seleccionar todo

include 'win32ax.inc'
 
.data
    ruta db 'c:\windows\system32\calc.exe',0
.code
start:
 
    stdcall Leer
 
    proc Leer
        locals
            manija dd ?
            larchivo dd ?
            espacio dd ?
            bleidos dd ?
 
            error dd ?
        endl
 
        invoke CreateFile,ruta, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
        mov [manija],eax
        invoke GetFileSize,[manija],0
        mov [larchivo],eax
        invoke GlobalAlloc,GPTR,[larchivo]
        mov [espacio],eax
        invoke ReadFile,[manija],[espacio],[larchivo],addr bleidos,0
        invoke CloseHandle,[manija]
 
        invoke MessageBox,0,[espacio],'Ves como lee?',MB_OK
 
        ret
    endp
 
.end start