Пинг

R@Z()r · Регистрация: 13.01.2010

Студворк — интернет-сервис помощи студентам

Честно, ассемблером только начал заниматься. Кто может, киньте код программы, которая будет пинговать нужный сервер.

@vital792 · 08.09.2010, 13:02

Лучше поздно чем никогда - задача то не пятиминутная. Пробовал сначала через сокеты- там гемор нереальный - указатель указателем погоняет в структурах. Решил попробовать через icmp.dll тоже че то не получилось. Выкладываю что есть, если кто подскажет ошибку буду благодарен

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
.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

@vital792 · 10.09.2010, 16:27

ни у кого нет идей?

@Morgot · 12.02.2011, 18:20

Я находил в сети пример, вроде как рабочий (по отзывам), но там нужен icmp.inc Что это такое и где взять - никто не знает. Если надо, выложу тот пример.

@ISergey · 12.02.2011, 20:23

а если читать данные с команды ping? пойдет?

@vital792 · 12.02.2011, 23:29

опа. Выплыло

Я тогда доделал код и он заработал нормально. К сожалению он не сохранился, если вам интересно попробую заново исправить

@Morgot · 13.02.2011, 16:30

Я в иностранном инете уже нашел этот хитрый либ) Если кому надо, пишу рабочий пример для Масма:

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.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

Компилить как консольное приложение, запускаем потом через cmd вида .....\наш.ехе 127.0.0.1 , ну я думаю кто более менее шарит в Асме, поймет это)

Необходимый либ и инк файлы - http://www.madwizard.org/download/ICMP.zip

vital792, если не сложно и будет время - попробуйте исправить, пожалуйста. Интересно посмотреть на реализацию без посторонних библиотек (как в моем примере).

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

R@Z()r 10 / 12 / 2 Регистрация: 13.01.2010 Сообщений: 363

	Пинг 30.08.2010, 20:03. Показов 3299. Ответов 6 Метки нет (Все метки) Честно, ассемблером только начал заниматься. Кто может, киньте код программы, которая будет пинговать нужный сервер. 0

@vital792 2014 / 1286 / 61 Регистрация: 05.06.2010 Сообщений: 2,213
	10.09.2010, 16:27
	ни у кого нет идей? 0

@Morgot 336 / 129 / 18 Регистрация: 26.12.2010 Сообщений: 501
	12.02.2011, 18:20
	Я находил в сети пример, вроде как рабочий (по отзывам), но там нужен icmp.inc Что это такое и где взять - никто не знает. Если надо, выложу тот пример. 0

@ISergey Maniac 1464 / 965 / 160 Регистрация: 02.01.2009 Сообщений: 2,820 Записей в блоге: 1
	12.02.2011, 20:23
	а если читать данные с команды ping? пойдет? 0

@vital792 2014 / 1286 / 61 Регистрация: 05.06.2010 Сообщений: 2,213
	12.02.2011, 23:29
	опа. Выплыло Я тогда доделал код и он заработал нормально. К сожалению он не сохранился, если вам интересно попробую заново исправить 0