Пинг

.486 
.model flat, stdcall 
option casemap :none
 
 
include \masm32\include\windows.inc
      include \masm32\include\user32.inc
      include \masm32\include\kernel32.inc
      include \masm32\include\wsock32.inc
 
 
includelib \masm32\lib\masm32.lib
      includelib \masm32\lib\user32.lib
      includelib \masm32\lib\kernel32.lib
      includelib \masm32\lib\ws2_32.lib
 
 
.data
 
strHost db "localhost",0
 
dll_name db "ICMP.DLL",0
 
sIcmpCreateFile db "IcmpCreateFile",0
sIcmpCloseHandle db "IcmpCloseHandle",0
sIcmpSendEcho db "IcmpSendEcho",0
 
.data?
 
IPINFO struc
 Ttl db ?  ; Time To Live
 Tos db ?  ; Type Of Service
 IPFlags db ?  ; IP flags
 OptSize db ?  ; Size of options data
 Options dd ?  ; Options data buffer
IPINFO ends
 
ICMPECHO struc
 Source dd ? ; Source address
 Status dd ? ; IP status
 RTTime dd ? ; Round trip time in milliseconds
 DataSize dw ? ; Reply data size
 Reserved dw ? ; Unknown
 pData dd ? ; Reply data buffer
 ipInfo IPINFO <?> ; Reply options
ICMPECHO ends
 
hMod dd ?
wsa WSADATA <?>
ipInfo IPINFO <?>
icmpEcho ICMPECHO <?>
addrDest dd ?  ; in_addr
pHost   dd  ?  ; LPHOSTENT
dwAddress dd ?
hFile dd ?
 
pIcmpCreateFile dd ?
pIcmpCloseHandle dd ?
pIcmpSendEcho dd ?
 
.code
start:
 
invoke LoadLibrary, offset dll_name
mov hMod, eax
 
invoke GetProcAddress, hMod, offset sIcmpCreateFile
mov pIcmpCreateFile, eax
invoke GetProcAddress, hMod, offset sIcmpCloseHandle
mov pIcmpCloseHandle, eax
invoke GetProcAddress, hMod, offset sIcmpSendEcho
mov pIcmpSendEcho, eax
 
invoke WSAStartup,101h,addr wsa
 
invoke inet_addr, offset strHost
mov addrDest, eax ; addrDest.s_addr
cmp eax, INADDR_NONE
jnz byAddr
invoke gethostbyname, offset strHost
mov pHost, eax
or eax, eax
jz _exit
jmp _crFile
byAddr:
invoke gethostbyaddr, addrDest, 4, AF_INET
mov pHost, eax
or eax, eax
jz _exit
 
_crFile:
mov eax, dword ptr [pHost]
mov eax,[eax+28]
bswap eax
mov dwAddress, eax
call dword ptr [pIcmpCreateFile]
mov hFile, eax
 
 
mov ecx, 4
_loop:
push ecx
 
mov al, 255
mov [ipInfo.Ttl], al
xor eax, eax
mov [ipInfo.Tos], al
mov [ipInfo.IPFlags], al
mov [ipInfo.OptSize], al
mov [ipInfo.Options], eax
;mov [icmpEcho.Status], eax
 
 
push 2000
push sizeof icmpEcho
push offset icmpEcho
push offset ipInfo
push 0
push 0
push dwAddress
push hFile
call dword ptr [pIcmpSendEcho]
 
mov eax, [icmpEcho.Status]
 
pop ecx
loop _loop
 
_exit:
push hFile
call dword ptr [pIcmpCloseHandle]
invoke FreeLibrary, hMod
call WSACleanup
invoke ExitProcess, 0 
 
end start