TPOC Lab -> Статьи -> Поиски свободного «почтальона Печкина». Часть 6

;------------------------------------------------------------------------------------------------
.386
.model flat, stdcall
option casemap :none
 
include \masm32\include\windows.inc
 
include \masm32\include\masm32.inc
include \masm32\include\kernel32.inc
include \masm32\include\ws2_32.inc
include \masm32\include\user32.inc
include \masm32\include\wininet.inc
 
 
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\ws2_32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\wininet.lib
 
include      _subseach.inc
includelib   _subseach.lib
 
include      _mailrep.inc
includelib   _mailrep.lib
 
 
 
Main               PROTO
GetInetFile        PROTO :DWORD,:DWORD
MailRep            PROTO :DWORD,:DWORD,:DWORD
 
.data
_fileUrl            db "http://sm.aport.ru/scripts/template.dll?r=Received:+from",0
_http_str_start     db 'template.dll?r=Received%3A+from&id=',0;
_http_str_stop             db '&p=',0
 
_url_str_start_1    db 'http://sm.aport.ru/scripts/template.dll?r=Received%3A+from',0
 
_url_str_start_2   db 80 dup(0)
_url_str_start_3   db 80 dup(0)
_url_              db 1024 dup(0)
_url_1             db 1024 dup(0)
 
_fileSave db "aport.ru_0.html",0
msgOk              db "Downloaded Success!",13,10,0
msgErr             db "Download Failed!        ",0
msgErr_File        db "File open Failed!",13,10,0                 
mcap               db "Result",0
szstrSubj db 'Subj',0
szstrData db '123',0
 
_subStrSearch_str   struct 
       sub_str      dword  1024 dup(0)
       stop_pos     dword  0
       error_cod    dword  0            
_subStrSearch_str   ends
 
_subStrSearch struct 
       sub_str      dword  256 dup(0)
       stop_pos     dword  0
_subStrSearch       ends
 
_my_in_ch           _subStrSearch        <>
_my_in_str          _subStrSearch_str   <>
 
lf                 db 13,10,0
 
_ch_start_date      db '&id=',0  
_ch_stop_date db '&p=',0
 
_char_start  db '[',0     
_char_stop   db ']',0
 
hMapFile           HANDLE 0
_FSize             DWORD 0
 
_count             BYTE 0             
 
.data?
hFileRead HANDLE ?
pMemory            DWORD ?
bCount             db ?
cBuff              db ?
 
.code
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
; ######################################################################################
; ######################################################################################
; ######################################################################################
; ######################################################################################
; ######################################################################################
; ######################################################################################
; ######################################################################################
; ######################################################################################
; ######################################################################################
start:
                   invoke Main
                   invoke ExitProcess,0
; #########################################################################
Main proc
         invoke   RtlZeroMemory,ADDR _url_,SIZEOF _url_
         invoke   lstrcpy,ADDR _url_,ADDR _fileUrl
.REPEAT
         inc      _count
                   .IF _count==31
                            inc      _count
                            invoke   lstrcat,ADDR _url_1,ADDR _url_str_start_3
                            invoke   lstrcat,ADDR _url_1,ADDR cBuff
 
                            invoke   RtlZeroMemory,ADDR _url_,SIZEOF _url_
                            invoke   lstrcpy,ADDR _url_,ADDR _url_1
                   .ENDIF 
         xor      edx,edx
         mov      edx,DWORD PTR _count
         invoke   dwtoa,edx,ADDR cBuff
 
       invoke GetInetFile, ADDR _url_,ADDR _fileSave
       .if    eax == TRUE
             invoke StdOut, ADDR _url_
             invoke StdOut, ADDR lf
       .else
             invoke StdOut, addr msgErr
             invoke StdOut,ADDR _url_
             invoke StdOut,ADDR lf
             invoke GetInetFile, ADDR _url_,ADDR _fileSave
       .endif
 
 
;##########################################################################
 
         invoke CreateFile,ADDR _fileSave,\
                            GENERIC_READ ,\
                            0,\
                            NULL,OPEN_EXISTING,FILE_ATTRIBUTE_ARCHIVE,\
                            NULL
         .if eax!=0
                   mov      hFileRead,eax
         .else
                   invoke   StdOut, addr msgErr_File
 
         .endif
 
       invoke CreateFileMapping,hFileRead,NULL,PAGE_READONLY,0,0,NULL
       mov    hMapFile,eax
       invoke GetFileSize,hFileRead,NULL
       cmp    eax,14000h
       je     __closeM 
       mov    _FSize,eax
       invoke MapViewOfFile,hMapFile,FILE_MAP_READ,0,0,0
       mov    pMemory,eax
 
         mov      DWORD PTR _my_in_ch.stop_pos, 0
         mov      bCount,1
 
       .WHILE bCount !=0
             invoke RtlZeroMemory,ADDR _my_in_ch.sub_str,256
             invoke RtlZeroMemory,ADDR _url_str_start_2,SIZEOF _url_str_start_2
             invoke _substrCh , pMemory ,_FSize,\
                                  ADDR _char_start,\
                                  ADDR _char_stop,\
                                  ADDR _my_in_ch
             .IF eax!=0
;-------------------------------------------------------------------------
                    pushad
                    cld
                    xor    ecx,ecx             
                    mov    cx,16
                    mov    esi, eax
                    lea    edi,_url_str_start_2
             __m1:
                    lodsb
                           cmp     al,' '
 
                           je      __m1
                           stosb
                           loop    __m1
                           popad
                    invoke lstrlen,ADDR _url_str_start_2
                    test eax,eax
                    jz __closeM0d0ah 
 
                    invoke MailRep,ADDR szstrSubj,ADDR szstrData,ADDR _url_str_start_2
;-------------------------------------------------------------------------
             .ELSE
                    mov    bCount,0
             .ENDIF
       .ENDW
 
 
 
;****************************************************************************
         invoke   RtlZeroMemory,ADDR _my_in_ch,SIZEOF _my_in_ch
 
       mov    DWORD PTR _my_in_str.stop_pos, 0
       invoke RtlZeroMemory,ADDR _my_in_str.sub_str,1024
 
       invoke _subsearchStrFL ,   pMemory ,_FSize,\
                           ADDR _http_str_start,\
                           SIZEOF _http_str_start,\
                           ADDR _http_str_stop,\
                           SIZEOF _http_str_stop,\
                           ADDR _my_in_str
       invoke lstrcpy,ADDR _url_,eax
 
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 
       invoke RtlZeroMemory,ADDR _my_in_str,SIZEOF _my_in_str
 
       invoke _subsearchStrFL ,   ADDR _url_ ,SIZEOF _url_,\
                           ADDR _ch_start_date,\
                           SIZEOF _ch_start_date,\
                           ADDR _ch_stop_date,\
                           SIZEOF _ch_stop_date,\
                           ADDR _my_in_str
       invoke lstrcpy,ADDR _url_str_start_2,eax
       invoke lstrcpy,ADDR _url_str_start_3,ADDR _url_str_start_2
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 
invoke   lstrcat,ADDR _url_str_start_2,ADDR cBuff
 
         invoke   RtlZeroMemory,ADDR _url_,SIZEOF _url_
         invoke   lstrcpy,ADDR _url_,ADDR _url_str_start_1
         invoke   lstrcat,ADDR _url_,ADDR _url_str_start_2
 
         invoke   RtlZeroMemory,ADDR _url_1,SIZEOF _url_1
         invoke   lstrcpy,ADDR _url_1,ADDR _url_str_start_1
         invoke   lstrcat,ADDR _url_1,ADDR _url_str_start_3
 
         invoke   UnmapViewOfFile,pMemory
         invoke   CloseHandle,pMemory
__closeM:
         invoke   CloseHandle,hMapFile
         invoke   CloseHandle,hFileRead
 
         invoke   RtlZeroMemory,ADDR _my_in_str,SIZEOF _my_in_ch
         invoke   RtlZeroMemory,ADDR _my_in_str,SIZEOF _my_in_str
__closeM0d0ah:
.UNTIL _count > 100
 
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;****************************************************************************
 
ret
;############################################################################
Main endp
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
GetInetFile proc _url:DWORD, _filename:DWORD
LOCAL Buffer[1024]: BYTE
LOCAL hSession: DWORD
LOCAL hUrl: DWORD
LOCAL Bufferlen: DWORD
LOCAL AppName[127]: BYTE
LOCAL hInstance: DWORD
LOCAL fHand: DWORD
LOCAL bwrite: DWORD
 
         invoke   GetModuleFileName, hInstance, addr AppName, sizeof AppName
         invoke   InternetOpen, addr AppName, INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL,NULL
         mov      hSession, eax
 
         .if      hSession == INVALID_HANDLE_VALUE
                   mov      eax, FALSE
                   ret
         .endif
 
         invoke   InternetOpenUrl, hSession, _url, NULL, NULL, NULL, NULL;
         mov      hUrl, eax
         .if      hUrl == INVALID_HANDLE_VALUE
                   mov      eax, FALSE
                   ret
         .endif
 
         invoke   CreateFile, _filename, GENERIC_READ or GENERIC_WRITE,;
                                               FILE_SHARE_READ,\
                                               NULL,CREATE_ALWAYS,\
                                               FILE_ATTRIBUTE_NORMAL,\
                                               NULL
         mov      fHand, eax
         .if      fHand == INVALID_HANDLE_VALUE
                   mov eax, FALSE
                   ret
         .endif
 
         invoke   SetFilePointer, fHand, NULL, NULL, FILE_BEGIN
__downl:
         invoke   InternetReadFile, hUrl, addr Buffer, sizeof Buffer, addr Bufferlen
         .if Bufferlen != 0
                   invoke   WriteFile, fHand, addr Buffer, Bufferlen, ADDR bwrite, NULL
                   jmp      __downl
         .endif
 
         invoke   CloseHandle, fHand
         invoke   InternetCloseHandle, hUrl
         invoke   InternetCloseHandle, hSession
         mov      eax, TRUE
         ret
GetInetFile endp
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
end      start
Поиски свободного «почтальона Печкина». Часть 6. Использование “поисковиков” для нахождения серверов пересылки писем.

Наши новости

Статьи

Программы

Релизы

Ссылки

Наша лаборатория
