/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 537
от 06.09.2006, 12:35

Вопрос № 53.885

Здравствуйте! Есть ли у кого-нибудь исходник сканера портов на ассемблере? Если есть буду признателен если Вы со мной поделитесь этим исходником.

Отправлен: 31.08.2006, 13:04 Вопрос задал: KuchumHan (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Alex8711 Здравствуйте, KuchumHan!Исходник находится по эти ссылке http://hanprog.narod.ru/scaner.htm Приложение: ; Scaner.asm .586 ; выбираем модель под винду всегда так скучно правда .model flat, stdcall option casemap :none ; case sensitive ; Подключаем заголовки чтоб не мучится include masm32includewindows.inc include masm32includeuser32.inc include masm32includekernel32.inc include masm32includewsock32.inc include masm32includemasm32.inc ; а также библиотеки includelib masm32libuser32.lib includelib masm32libkernel32.lib includelib masm32libwsock32.lib includelib masm32libmasm32.lib WndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD .data hInstance dd 0 msg_scan db 'Scan start for ip:',0 ; Строка сообщения перед сканиронием tempstr db "open port #%i",0 ; Строка форматирования для вывода в листенге pn_f db "ports.txt",0 ; имя и петь файлы с перечислениями портов .data? buf db 500 dup(?) ; Хранит IP адрес buf1 db 500 dup(?) ; Используется для форматирония строки hWnd dd ? wn dd ? ; идентификатор окна списка addLock dd ? ; мьютекс для вывода строк в список countScan dd ? ; Количество просканированных портов countStart dd ? ; Количество портов запущенных на сканирование pointPorts dw 64000 dup(?) ; буфер в котором хранятся номера портов для сканирования ListPortCount dd ? ; размер буфера .code start: invoke GetModuleHandle, NULL mov hInstance, eax ; Открывается файл с номерами портов и считываются они в буфер ; если честно лень было делать динамику invoke _lopen, ADDR pn_f, OF_READ .if eax == -1 invoke MessageBeep,5 invoke ExitProcess,-1 .else mov edi, eax .endif xor esi, esi ?L0: invoke _lread,edi,ADDR buf, 6 .if eax == 6 mov buf[4],byte ptr 0 invoke atodw, ADDR buf ; форматирования для удобства ввода номеров портов mov pointPorts[esi], ax inc esi inc esi jmp ?L0 .endif shr esi, 1 mov ListPortCount, esi invoke _lclose,edi ; Вывод диалога invoke DialogBoxParam,hInstance,101,0,ADDR WndProc,0 invoke ExitProcess,eax ; Процедура для многозадачноти проверяет открытли порт isPortOpen proc num:DWORD LOCAL sok_op:SOCKET LOCAL addr_in:sockaddr_in LOCAL addr_Serv:sockaddr_in invoke socket,AF_INET,SOCK_STREAM,IPPROTO_TCP mov sok_op, eax mov addr_in.sin_family, AF_INET mov addr_in.sin_port, 0 mov addr_in.sin_addr, INADDR_ANY invoke bind,sok_op,ADDR addr_in,sizeof addr_in mov addr_Serv.sin_family, AF_INET invoke htons,num mov addr_Serv.sin_port, ax invoke inet_addr,ADDR buf mov addr_Serv.sin_addr, eax invoke connect,sok_op,ADDR addr_Serv,sizeof addr_Serv inc countScan .if eax != SOCKET_ERROR ; немного синхронизации припомощи мьютексов invoke WaitForSingleObject,addLock,-1 invoke wsprintf,ADDR buf1,ADDR tempstr,num invoke SendMessage,wn,LB_ADDSTRING,0,ADDR buf1 invoke ReleaseMutex,addLock .endif invoke closesocket,sok_op ret isPortOpen endp ; процедура для синхранизации проверяемых и провереных портов sync_ proc push eax ?0: invoke Sleep,100 mov eax, countScan .if countStart != eax jmp ?0 .endif pop eax ret sync_ endp ; основное тело программы в нем запускаются потоки для проверки состояния портов sok_init proc ipaddr:DWORD LOCAL numPort:DWORD ; номер порта для сканирования LOCAL wsad:WSADATA LOCAL hTh:DWORD ; указывает на поток LOCAL ScanNet:DWORD ; Флаг необходимости сканирования подсети push 0ff00h pop ScanNet mov countStart, 0 mov countScan, 0 invoke WSAStartup,101h, ADDR wsad .if eax != 0 ret .endif .if wsad.wVersion != 101h ret .endif mov numPort,0 invoke GetDlgItem,hWnd,1001 mov wn, eax invoke CreateMutex,0,0,0 mov addLock, eax ; проверить подсеть или только один адрес xor ecx, ecx ?LN: inc ecx cmp ipaddr[ecx],0 jne ?LN dec ecx cmp ipaddr[ecx], '?' jne ?LNcontin ; сканировать подсеть push 1 pop ScanNet ?LNcontin: invoke MessageBox,0,ipaddr,ADDR msg_scan,0 loop_1: xor edx, edx mov eax, countStart shl eax, 1 movzx edx, pointPorts[eax] mov numPort, edx ; без много задачности на моем K-5 заснуть можно invoke CreateThread,0,1024,isPortOpen,numPort,0,ADDR hTh inc countStart ; количество запущенных test countStart, 0fh jne conT ; если кратно 16 то синхранизируем запущенные и завершонные invoke sync_ conT: mov eax, countStart .if eax != ListPortCount jmp loop_1 .endif loop_0: invoke Sleep,500 mov eax, countScan .if eax != ListPortCount jmp loop_0 .endif invoke MessageBeep,1 ret sok_init endp ; Процедура для обработки сообщений диалоговога окна WndProc proc hWin :DWORD, uMsg :DWORD, wParam :DWORD, lParam :DWORD .if uMsg == WM_INITDIALOG push hWin pop hWnd .elseif uMsg == WM_CLOSE invoke EndDialog,hWin,0 .elseif uMsg == WM_COMMAND .if wParam == IDOK invoke EndDialog,hWin,0 .endif .if wParam == 1003 invoke GetDlgItemText,hWin,1000,ADDR buf,500 .if buf != 0 invoke sok_init,ADDR buf .endif .endif .endif xor eax, eax ret WndProc endp end start

Ответ отправил: Alex8711 (статус: 1-ый класс) Ответ отправлен: 31.08.2006, 15:44

Вопрос № 53.926

Доброго времени суток уважаемые эксперты. При изучении ассемблера для win32 необходимо иметь хороший справочник. У меня есть, но он не очень(574 функций,203 сообщения) , я слышал есть и больше., есть справочники со стилями окон, стилями пера и тому подобное. Если кто знает где взять (бесплатно) скажите пожалуйста. Заранее спасибо.

Отправлен: 31.08.2006, 20:12 Вопрос задал: ENS (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Wild_one Здравствуйте, ENS! Если Вы знаете английский, то никаких проблем: Самый лучший справочник это MSDN. (Он весит больше гигабайта) Найти можно на DVD с VisualStudio на рынках города :) Есть онлайн версия: www.microsoft.com/msdn Кроме того хорошие справочники по WinApi поставляются вместе Borland C++ и Delphi. Если у Вас нет, то могу прислать по почте (метр с небольшим) На русском языке полных справочников не встречал

Ответ отправил: Wild_one (статус: 3-ий класс) Ответ отправлен: 31.08.2006, 22:37

Вопрос № 53.927

Доброго времени суток уважаемые эксперты. Как сделать OpenGL приложения на асме. Если кто знает, напишите каркас. Заранее благодарю, уважаемые эксперты.

Отправлен: 31.08.2006, 20:12 Вопрос задал: ENS (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Wild_one Здравствуйте, ENS! Посмотри тут http://www.wasm.ru/publist.php?list=19

Ответ отправил: Wild_one (статус: 3-ий класс) Ответ отправлен: 31.08.2006, 21:29

Отвечает: Волков Павел Юрьевич Здравствуйте, Nick! Примеры можно увидеть здесь: http://www.wasm.ru/srclist.php?list=3 --------- Век живи, век учись.

Ответ отправил: Волков Павел Юрьевич (статус: 7-ой класс) Ответ отправлен: 01.09.2006, 06:18

Вопрос № 53.928

Доброго времени суток уважаемые эксперты. В чём отличие TASMa и MASMa, все говорят что МАСМ лучше, при программировании для ДОС я пользовался ТАСМом , не было ни каких проблем. Заранее благодарю, уважаемые эксперты.

Отправлен: 31.08.2006, 20:14 Вопрос задал: ENS (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Волков Павел Юрьевич Здравствуйте, Nick! Отличие в синтаксисе и в том, что TASM больше не поддерживается, прейдется использовать опкоды новых инструкций процессора, дописывать WINAPI константы и функции, пересобирать *.lib файл (вроде бы без него под Win не собирает). --------- Век живи, век учись.

Ответ отправил: Волков Павел Юрьевич (статус: 7-ой класс) Ответ отправлен: 01.09.2006, 06:16

Вопрос № 53.929

Доброго времени суток уважаемые эксперты. Скажите, пожалуйста как перехватить прерывание от клавиатура в Win32 приложении на асме. В ДОС это не составило бы труда, а в вин32 :-). Заранее благодарю, уважаемые эксперты.

Отправлен: 31.08.2006, 20:14 Вопрос задал: ENS (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: EPDSota Здравствуйте, ENS! invoke GetCurrentThreadId;получим идентификатор своего потока invoke SetWindowsHookEx, WH_KEYBOARD,ENS_KeyboardProc,0,eax;поставим ему перехватчик клавиатуры mov [hook],eax;запомним дускриптор ... пользуемся, сколько влезет invoke UnhookWindowsHookEx,[hook];убиваем перехватчик proc ENS_KeyboardProc nCode,wParam,lParam;процедура, выполняемая при перехвате cmp nCode,HC_NOREMOVE jne @F invoke CallNextHookEx,[hook],[nCode],[wParam],[lParam];эта клавиша уже обработана @: ... балуемся, в wParam находится код клавиши mov eax,HC_NOREMOVE;запретим дальнейшею обработку этой клавиши return endp --------- Открыть глаза навстречу солнцу

Ответ отправил: EPDSota (статус: Специалист) Ответ отправлен: 01.09.2006, 09:17

Вопрос № 53.930

Доброго времени суток уважаемые эксперты. Функция CreateWindowEx как узнаёт что ей создавать: эдит, кнопку, или окно. По одному названию класса что-ли?? Разъясните пожалуйста. Заранее благодарю, уважаемые эксперты.

Отправлен: 31.08.2006, 20:16 Вопрос задал: ENS (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: EPDSota Здравствуйте, ENS! Да, именно по названию класса, причем название класса может быть не только Эдит, button, но и например "msctls_progress32" (прогрессбар из COMCTL32.dll). --------- Открыть глаза навстречу солнцу

Ответ отправил: EPDSota (статус: Специалист) Ответ отправлен: 01.09.2006, 09:06

Вопрос № 53.931

Доброго времени суток уважаемые эксперты. Сделал программу на win32, чё-то не работает, посмотрите пожалуйста уважаемые эксперты. Заранее благодарю, уважаемые эксперты. Приложение: .386 .model flat,stdcall option casemap:none include masm32includewindows.inc include masm32includeuser32.inc include masm32includekernel32.inc includelib masm32libuser32.lib includelib masm32libkernel32.lib include masm32includegdi32.inc includelib masm32libgdi32.lib WinMain proto :DWORD,:DWORD,:DWORD,:DWORD RGB macro red,green,blue xor eax,eax mov ah,blue shl eax,8 mov ah,green mov al,red endm .data ClassName db "SimpleWinClass",0 AppName db "prog",0 FontName db 'script',0 MyText db '***Assembler***',0 MenuName db "MyMenu",0 About_str db "(C) ENS,2006",0 ButtonClassName db 'button',0 ButtonText db 'click',0 EditClassName db 'edit',0 .data? hInstance HINSTANCE ? CommandLine LPSTR ? hMenu HMENU ? hwndButton HWND ? hwndEdit HWND ? buffer db 512 dup (?) .const IDM_ABOUT equ 1 ButtonID equ 1 EditID equ 2 .code start: invoke GetModuleHandle, NULL mov hInstance,eax invoke GetCommandLine mov CommandLine,eax invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT invoke ExitProcess,eax WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize,SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL push hInstance pop wc.hInstance mov wc.hbrBackground,COLOR_WINDOW+1 mov wc.lpszMenuName,NULL mov wc.lpszClassName,OFFSET ClassName invoke LoadIcon,NULL,IDI_APPLICATION mov wc.hIcon,eax mov wc.hIconSm,eax invoke LoadCursor,NULL,IDC_ARROW mov wc.hCursor,eax invoke RegisterClassEx, addr wc invoke LoadMenu,hInst,offset MenuName mov hMenu,eax INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName, WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,hMenu, hInst,NULL mov hwnd,eax invoke ShowWindow, hwnd,SW_SHOWNORMAL invoke UpdateWindow, hwnd .WHILE TRUE invoke GetMessage, ADDR msg,NULL,0,0 .BREAK .IF (!eax) invoke TranslateMessage, ADDR msg invoke DispatchMessage, ADDR msg .ENDW mov eax,msg.wParam ret WinMain endp WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM LOCAL hdc:HDC LOCAL ps:PAINTSTRUCT LOCAL hfont:HFONT .IF uMsg==WM_DESTROY invoke PostQuitMessage,NULL .ELSEIF uMsg==WM_CREATE invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR EditClassName,NULL, WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or ES_AUTOHSCROLL, 50,35,200,25,hWnd,8,hInstance,NULL mov hwndEdit,eax invoke SetFocus, hwndEdit invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR ButtonText, WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON, 75,70,140,25,hWnd,ButtonID,hInstance,NULL mov hwndButton,eax .ELSEIF uMsg==WM_PAINT invoke BeginPaint,hWnd,addr ps mov hdc, eax invoke CreateFont,24,16,0,0,400,0,0,0,OEM_CHARSET, OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,DEFAULT_PITCH or FF_SCRIPT, addr FontName invoke SelectObject,hdc,eax mov hfont,eax RGB 0,0,200 invoke SetTextColor,hdc,eax RGB 0,255,0 invoke SetBkColor,hdc,eax invoke TextOut,hdc,255,0,addr MyText,sizeof MyText invoke SelectObject,hdc,hfont invoke EndPaint,hWnd,addr ps .ELSEIF uMsg==WM_COMMAND mov eax,wParam .IF ax==IDM_ABOUT invoke MessageBox,NULL,addr About_str,addr AppName,MB_OK .ELSEIF ax==ButtonID shr eax,16 .IF ax==BN_CLICKED invoke GetWindowText,hwndEdit,ADDR buffer,512 invoke MessageBox,NULL,addr buffer,addr AppName,MB_OK .ENDIF .ELSE invoke DestroyWindow,hWnd .ENDIF .ELSE invoke DefWindowProc,hWnd,uMsg,wParam,lParam ret .ENDIF xor eax,eax ret WndProc endp end start

Отправлен: 31.08.2006, 20:17 Вопрос задал: ENS (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, ENS! Начну с грубой ошибки - строчки .ELSE invoke DestroyWindow,hWnd лишние, из-за них программа тут же завершается... Ну и по мелочам: 1) Где файл ресурсов с меню? 2) Идентификаторам необходимо давать разные значения IDM_ABOUT equ 1 ButtonID equ 2 EditID equ 3 3)При создания редактора надо ему присвоить идентификатор EditID, а не 8 invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR EditClassName,NULL, WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or ES_AUTOHSCROLL, 50,35,200,25,hWnd,EditID,hInstance,NULL 4)Вообще говоря, проверка на нотификацию не нужна .ELSEIF ax==ButtonID ;shr eax,16 ;.IF ax==BN_CLICKED invoke GetWindowText,hwndEdit,ADDR buffer,512 invoke MessageBox,NULL,addr buffer,addr AppName,MB_OK ;.ENDIF .ELSE Удачи! --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Студент) Ответ отправлен: 01.09.2006, 12:33 Оценка за ответ: 5 Комментарий оценки: огромное спасибо

Вопрос № 53.972

Я совсем недавно стал изучать Assembler. Пользуюсь пакетом TASM 5.0. У меня возникла следующая проблема: при трансляции исходного текста программы, код, написанный на кириллице (например, комментарии) искажается, получается какая-то абракадабра. Никак не могу понять, в чём дело.

Отправлен: 01.09.2006, 11:44 Вопрос задал: кора (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: ENS Здравствуйте, кора! Не совпадает кодировка. Используй кодировку MS-DOS , должно прокатить. Удачи.

Ответ отправил: ENS (статус: 1-ый класс) Ответ отправлен: 01.09.2006, 13:12

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.36 от 06.09.2006