Foro de elhacker.net

format PE  Console
entry start

include '%fasminc%/win32ax.inc'

section ".data" data readable writeable
        szMsg db 'Hola',0
        frmt db '%s',0
        szPause db 'PAUSE',0
        


section ".code" code readable writeable executable
start:

       cinvoke  printf, szMsg, frmt
       cinvoke  system, szPause
       invoke   ExitProcess,0

section ".idata" import data readable writeable

library kernel32,'kernel32.dll',\
        user32,'user32.dll',\
        msvcrt,'msvcrt.dll'

        include '%fasminc%\api\kernel32.inc'
        include '%fasminc%\api\user32.inc'
        include '%fasminc%\api\msvcrt.inc' 

format PE console
entry start
include 'win32w.inc'
 
;======================================
section '.data' data readable writeable
;======================================

Msg1  DB 'Introduzca el nombre:',0
Msg2  DB 'Total:$'
Msg3  DB 'Error',0dh,0ah
Avanza DB 0Dh,0Ah, '$'
BufEnt DB '*.*',0
       DB ?
ASCIIZ DB '*.*',0

DTASeg DW ?

;=======================================
section '.code' code readable executable
;=======================================
 
start:

 proc Entrada

               cld
               mov ax,@DATA
               mov ds,ax
               mov [DTASeg],es
               mov es,ax
               mov es,ax

               mov ah,4eh
               mov cx,17h
               mov dx,offset ASCIIZ
               int 21h
               jc Final

               
 Bucle:

         mov es,[DTASeg]
         mov di,80h+30

         mov cx,13
         xor al,al
         repne scasb
         dec di
         mov al,'$'
         stosb
         
         push ds

         mov ah,9
         mov ds,[DTASeg]
         mov dx,80h+30
         ccall   [printf],dx ; pretendo mostrar dx----------------------------------------
         int 21h
         pop ds
         
         mov ah,9
         mov dx,OFFSET Avanza

         int 21h

         mov ah,4Fh
         int 21h
         jc Final

         jmp Bucle
         
         Final:

         cmp ax,12h
          jne error

         mov ah,9
         mov dx,OFFSET Msg2
         int 21h
         

         
         Error:
         mov ah,9
         mov dx,OFFSET Msg3
         int 21h

         mov ax,4c01h
         int 21h

       endp
;====================================
section '.idata' import data readable
;====================================


library kernel,'kernel32.dll',\
        msvcrt,'msvcrt.dll' ,\user32,'user32.dll'

import user32,MessageBoxA,'MessageBoxA'
 
import  kernel,\
        ExitProcess,'ExitProcess'
 
import  msvcrt,\
        printf,'printf',\
        getchar,'_fgetchar' 

cinvoke printf, szFORMATO, edx

donde szFormato podría ser:
szFORMATO db "Este es el valor de DX: %i",0

  ccall   [printf],szFORMATO, edx

format PE console
entry start
include 'win32w.inc'
 
;======================================
section '.data' data readable writeable
;======================================

ASCIIZ DB '*.*',0
DTASeg DW ?

;=======================================
section '.code' code readable executable
;=======================================
 
start:
               xor eax,eax     ; limpio EAX
               mov ah,4eh      ; encuentro el primer archivo
               mov ecx,1Eh      ; obtengo el nombre del primer archivo
               mov edx,ASCIIZ
               ccall   [printf],edx 




;====================================
section '.idata' import data readable
;====================================


library kernel,'kernel32.dll',\
        msvcrt,'msvcrt.dll' ,\user32,'user32.dll'

import user32,MessageBoxA,'MessageBoxA'
 
import  kernel,\
        ExitProcess,'ExitProcess'
 
import  msvcrt,\
        printf,'printf',\
        getchar,'_fgetchar' 

format PE console
entry start

include 'win32ax.inc'

section '.code' code readable executable
  start:



        invoke AllocConsole
        invoke GetStdHandle, STD_OUTPUT_HANDLE
        mov [_outhandle], eax
        invoke  FindFirstFile,buscado,wfd
        invoke WriteConsole, [_outhandle],wfd , 13, _written, 0



section '.data' data readable writeable
  _outhandle    dd   ?
  _written      dd   ?
  buscado DB '*.*',0
  wfd        WIN32_FIND_DATA


section 'idata' import data readable writeable
  library kernel, 'KERNEL32.DLL'

  import kernel,\
         AllocConsole, 'AllocConsole',\
         GetStdHandle, 'GetStdHandle',\
         WriteConsole, 'WriteConsoleA',\
         ReadConsole, 'ReadConsoleA',\
         ExitProcess, 'ExitProcess',\
          WriteFile,'WriteFile',\
          lstrlen,'lstrlen',\
          FindFirstFile,'FindFirstFileA',\
          FindNextFile,'FindNextFileA',\
          FindClose,'FindClose'.\