;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2010-2013. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; ping.asm - ICMP echo client for KolibriOS ;; ;; ;; ;; Written by hidnplayr@kolibrios.org ;; ;; ;; ;; GNU GENERAL PUBLIC LICENSE ;; ;; Version 2, June 1991 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; TODO: more precise timer, ttl, user selectable size/number of packets format binary as "" BUFFERSIZE = 1500 IDENTIFIER = 0x1337 use32 org 0x0 db 'MENUET01' ; signature dd 1 ; header version dd start ; entry point dd I_END ; initialized size dd mem ; required memory dd mem ; stack pointer dd s ; parameters dd 0 ; path ; useful includes include '../../macros.inc' purge mov,add,sub include '../../proc32.inc' include '../../dll.inc' include '../../network.inc' include 'icmp.inc' start: ; load libraries stdcall dll.Load, @IMPORT test eax, eax jnz exit ; initialize console push 1 call [con_start] push title push 25 push 80 push 25 push 80 call [con_init] ; main loop cmp byte[s], 0 jne resolve main: ; write prompt push str2 call [con_write_asciiz] ; read string mov esi, s push 256 push esi call [con_gets] ; check for exit test eax, eax jz done cmp byte [esi], 10 jz done ; delete terminating '\n' push esi @@: lodsb test al, al jnz @b mov byte [esi-2], al pop esi resolve: ; resolve name push esp ; reserve stack place push esp ; fourth parameter push 0 ; third parameter push 0 ; second parameter push s ; first parameter call [getaddrinfo] pop esi ; test for error test eax, eax jnz fail ; convert IP address to decimal notation mov eax, [esi+addrinfo.ai_addr] mov eax, [eax+sockaddr_in.sin_addr] mov [sockaddr1.ip], eax push eax call [inet_ntoa] ; write result mov [ip_ptr], eax push eax ; free allocated memory push esi call [freeaddrinfo] push str4 call [con_write_asciiz] mcall socket, AF_INET4, SOCK_RAW, IPPROTO_ICMP cmp eax, -1 jz fail2 mov [socketnum], eax mcall connect, [socketnum], sockaddr1, 18 mcall 40, 1 shl 7 ; + 7 ; call [con_cls] mov [count], 4 push str3 call [con_write_asciiz] push [ip_ptr] call [con_write_asciiz] push (icmp_packet.length - ICMP_Packet.Data) push str3b call [con_printf] mainloop: inc [stats.tx] mcall 26,9 mov [time_reference], eax mcall send, [socketnum], icmp_packet, icmp_packet.length, 0 mcall 23, 300 ; 3 seconds time-out mcall 26,9 sub eax, [time_reference] xor edx, edx mov cx, 10 mul cx mov [time_reference], eax mcall recv, [socketnum], buffer_ptr, BUFFERSIZE, MSG_DONTWAIT cmp eax, -1 je .no_response sub eax, ICMP_Packet.Data jb .no_response ; FIXME: use other error message? mov [recvd], eax cmp word[buffer_ptr + ICMP_Packet.Identifier], IDENTIFIER jne .no_response ; FIXME: use other error message? ; OK, we have a response, update stats and let the user know inc [stats.rx] mov eax, [time_reference] add [stats.time], eax push str11 ; TODO: print IP address of packet sender call [con_write_asciiz] ; validate the packet lea esi, [buffer_ptr + ICMP_Packet.Data] mov ecx, [recvd] mov edi, icmp_packet.data repe cmpsb jne .miscomp ; All OK, print to the user! push [time_reference] movzx eax, word[buffer_ptr + ICMP_Packet.SequenceNumber] push eax push [recvd] push str7 call [con_printf] jmp continue ; Error in packet, print it to user .miscomp: sub edi, icmp_packet.data push edi push str9 call [con_printf] jmp continue ; Timeout! .no_response: push str8 call [con_write_asciiz] ; Send more ICMP packets ? continue: dec [count] jz done mcall 5, 100 ; wait a second inc [icmp_packet.seq] jmp mainloop ; Done.. done: xor edx, edx mov eax, [stats.time] div [stats.rx] push eax push [stats.rx] push [stats.tx] push str12 call [con_printf] push str10 call [con_write_asciiz] call [con_getch2] push 1 call [con_exit] ; Finally.. exit! exit: mcall -1 ; DNS error fail: push str5 call [con_write_asciiz] jmp done ; Socket error fail2: push str6 call [con_write_asciiz] jmp done ; data title db 'ICMP - echo client',0 str2 db '> ',0 str3 db 'Pinging to ',0 str3b db ' with %u data bytes',10,0 str4 db 10,0 str5 db 'Name resolution failed.',10,0 str6 db 'Could not open socket',10,0 str11 db 'Answer: ',0 str7 db 'bytes=%u seq=%u time=%u ms',10,0 str8 db 'timeout!',10,0 str9 db 'miscompare at offset %u',10,0 str10 db 10,'Press any key to exit',0 str12 db 10,'Ping stats:',10,'%u packets sent, %u packets received',10,'average response time=%u ms',10,0 sockaddr1: dw AF_INET4 .port dw 0 .ip dd 0 rb 10 time_reference dd ? ip_ptr dd ? count dd ? recvd dd ? ; received number of bytes in last packet stats: .tx dd 0 .rx dd 0 .time dd 0 ; import align 4 @IMPORT: library network, 'network.obj', console, 'console.obj' import network, \ getaddrinfo, 'getaddrinfo', \ freeaddrinfo, 'freeaddrinfo', \ inet_ntoa, 'inet_ntoa' import console, \ con_start, 'START', \ con_init, 'con_init', \ con_write_asciiz, 'con_write_asciiz', \ con_printf, 'con_printf', \ con_exit, 'con_exit', \ con_gets, 'con_gets',\ con_cls, 'con_cls',\ con_getch2, 'con_getch2',\ con_set_cursor_pos, 'con_set_cursor_pos' socketnum dd ? icmp_packet: db 8 ; type db 0 ; code dw 0 ; .id dw IDENTIFIER ; identifier .seq dw 0x0000 ; sequence number .data db 'abcdefghijklmnopqrstuvwxyz012345' .length = $ - icmp_packet I_END: buffer_ptr rb BUFFERSIZE s rb 1024 rb 4096 ; stack mem: