ANTICHAT — форум по информационной безопасности, OSINT и технологиям

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, winsock, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
info: WSADATA;
sin: sockaddr_in;
myip: PHostEnt;
sHwnd: integer;
sBuff, rBuff: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
WSAStartup(makeword(1,1),info);
sHwnd:=Socket(AF_INET, SOCK_STREAM, 0);
sin.sin_family:=AF_INET;
sin.sin_port:=htons(80);
sin.sin_addr.S_addr:=inet_addr('77.221.159.154');
connect(sHwnd, sin, sizeof(sin));
sbuff:='GET /article.php?article=1016003 HTTP/1.1' + #13#10 +
'User-Agent: ManualSender/1.0' + #13#10 +
'Host: www.wasm.ru' + #13#10 +
#13#10
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Closesocket(sHwnd);
WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
send(sHwnd, sBuff, Length(sBuff), 0);
recv(sHwnd, rBuff, Length(rBuff), 0); // зависает
Memo1.Lines.Add(rBuff);
end;

end.