Пинг

.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

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.586            
.model flat,stdcall      
option casemap:none      
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\masm32.inc
include \masm32\include\ws2_32.inc
include \masm32\include\icmp.inc
 
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\ws2_32.lib
includelib \masm32\lib\icmp.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICMP_ECHO_REPLYTA STRUCT
   Address          DWORD      ?
   Status           DWORD      ?
   RoundTripTime    DWORD      ?
   DataSize         WORD       ?
   Reserved         WORD       ?
   DataPointer      DWORD      ?
   Options          ICMP_OPTIONS  <?>
   zData            BYTE 250 dup (?)
ICMP_ECHO_REPLYTA ENDS
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data
   AppName      db   "Ping Test With ICMP",13,10,0
   Usage      db   "Usage: Ping <hostname/Ip>",13,10,13,10
   CRLF      db   13,10,0
 
   Msg_Ping   db   13,10,"Pinging %s With ICMP ......",0
   Msg_Reply   db   13,10,"Reply from %s Time: %d ms TTL: %d, Hops: %d",0
   Msg_Timeout   db   13,10,"Request Timed out",0
   Err_Winsock   db   "Error loading winsock dll : %d",13,10,0
   Err_NoHost   db   "Cannot find host: %s",13,10,0
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data?
   hIcmp      HANDLE      ?      
   hLib      HANDLE      ?      
   dwAddress   DWORD      ?      
   nHops      DWORD      ?
 
   HostBuffer   db   256 dup(?)      
   OutBuffer   db   256 dup(?)      
 
   wsadata      WSADATA      <?>      
   icmpOptions   ICMP_OPTIONS   <?>      
   icmpReply   ICMP_ECHO_REPLYTA <?>      
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code
Start:         
   invoke WSAStartup,202h,ADDR wsadata   
   .if eax!=0            
      invoke wsprintf,ADDR OutBuffer,ADDR Err_Winsock,eax
      invoke StdOut,ADDR OutBuffer
      jmp @Exit
   .endif
   invoke GetCL,1,ADDR HostBuffer      
   .if (eax!=1)            
      invoke StdOut,ADDR Usage   
      jmp @Exit            
   .endif
   invoke inet_addr,ADDR HostBuffer   
   .if eax==INADDR_NONE         
      invoke gethostbyname,ADDR HostBuffer      
      .if eax==0               
         invoke wsprintf,ADDR OutBuffer,ADDR Err_NoHost,ADDR HostBuffer 
         invoke StdOut,ADDR OutBuffer
         jmp @Exit
      .endif
      mov eax,[eax+12]   
      mov eax,[eax]      
      mov eax,[eax]      
   .endif
   mov dwAddress,eax      
   invoke IcmpCreateFile      
   mov hIcmp,eax         
   
   invoke wsprintf,ADDR OutBuffer,ADDR Msg_Ping,ADDR HostBuffer
   invoke StdOut,ADDR CRLF   
   invoke StdOut,ADDR OutBuffer   
   invoke StdOut,ADDR CRLF   
   
   xor ebx,ebx         
   .WHILE ebx < 4         
      push ebx      
      mov icmpOptions.Ttl,255   
      mov icmpOptions.Tos,0   
      mov icmpOptions.Flags,0   
      mov icmpOptions.OptionsSize,0   
      mov icmpOptions.OptionsData,0   
      
      invoke IcmpSendEcho,hIcmp,dwAddress,0,0,ADDR icmpOptions,ADDR icmpReply,SIZEOF ICMP_ECHO_REPLYTA+SIZEOF ICMP_OPTIONS,5000   
      .if eax !=0
         invoke inet_ntoa,icmpReply.Address   
         movzx ecx,icmpReply.Options.Ttl      
         mov nHops,256            
         sub nHops,ecx            
         mov edx,nHops
         .if edx==192            
            mov nHops,1         
         .elseif edx==128         
            mov nHops,0         
         .endif
         invoke wsprintf,ADDR OutBuffer,ADDR Msg_Reply,eax,icmpReply.RoundTripTime,ecx,nHops
         invoke StdOut,ADDR OutBuffer         
      .else
         invoke StdOut,ADDR Msg_Timeout
      .endif
      pop ebx                     
      inc ebx                     
   .ENDW
   invoke StdOut,ADDR CRLF      
   invoke IcmpCloseHandle,hIcmp   
   
@Exit:   
   invoke WSACleanup      
   invoke ExitProcess,0      
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
end Start