Клиент посылающий сообщение

.486
.model flat,stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\masm32.inc
include \masm32\include\wsock32.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\wsock32.lib
includelib \masm32\lib\masm32.lib
; ---------------------------
; Проца посимвольной отправки данных
Mys PROTO :DWORD
; ---------------------------
.DATA

; Система такая - открываем, ищем "MAIL FROM: dndanil@ukr.net", изменяем и в конце 13,10,0
DataStr db "DATA",13,10,0
QuitStr db "QUIT",13,10,0
EndStr db 13,10,".",13,10,0
MyBuf db "Hi, I`m Troyan",13,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

; Кому письмо. Куча нулей, чтобы в hex-редакторе изменять обратный адрес в exe файле.
; Система такая - открываем, ищем "RCPT TO: dndanil@ukr.net", изменяем и в конце 13,10,0
MySmtp db "10.14.18.100",0
; Адрес SMTP сервера - сначала надо отпинговать "ping -a freemail.ukr.net" и ввести адрес
; в виде xxx.xxx.xxx.xxx

Hello db "fuck you bich off my mykler",0D,13,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
; Для инициализации сокета
wsadata WSADATA <>
sin sockaddr_in <>

Port dd 900

; ---------------------------
.DATA?
client dd ?
sock dd ?
buf db 255 dup (?)
; ---------------------------
; ---------------------------
; ---------------------------
.CODE
start:
; Инициализируем сокет для соединения с 212.42.64.8 - SMTP сервером
invoke WSAStartup,101h,addr wsadata
invoke socket,AF_INET,SOCK_STREAM,IPPROTO_IP
mov sock,eax
mov sin.sin_family,AF_INET
invoke htons,Port
mov sin.sin_port,ax
invoke inet_addr, addr MySmtp
mov sin.sin_addr, eax
; Соединение
invoke connect, sock, addr sin ,sizeof sin

invoke recv, sock, addr buf, sizeof buf, 0
invoke MessageBox,0,addr buf, addr buf, MB_OK

invoke Mys, addr Hello




; Закрываем сокет
invoke closesocket,sock

; Выходим
invoke ExitProcess,eax

; ---------------------------
; Проца посимвольной отправки данных
Mys proc SendStr : DWORD
; edi указывает на пришедшую строку
mov edi, SendStr
; цикл перебора
.WHILE TRUE
; если конец строки - выход из цикла
.BREAK .IF (byte ptr [edi] == 0 )
; отправка текущего символа
invoke send, sock, edi, 1, 0
; следующий символ
inc edi
.ENDW
ret
Mys endp

END start