Code: Select all
#--------------------------------------+
#Programmer: Falco Jaenisch "GyroVorbis|
#Program: T3h 3gg H0wn3t |
#Creation Date: 11/6/04 |
#Current Version: Beta 3.0 |
#Description: Classified |
#--------------------------------------+
print "3gg H0wn3t Beta ver. 3.0\n";
print " ...vvvv)))))).\n";
print " /~~\\ ,,,c(((((((((((((((((/\n";
print " /~~c \\. .vv)))))))))))))))))))\\``\n";
print " G_G__ ,,(((KKKK//////////////'\n";
print " ,Z~__ '@,gW@@AKXX~MW,gmmmz==m_.\n";
print " iP,dW@!,A@@@@@@@@@@@@@@@A` ,W@@A\\c\n";
print " ]b_.__zf !P~@@@@@*P~b.~+=m@@@*~ g@Ws.\n";
print " ~` ,2W2m. '\\[ ['~~c'M7 _gW@@A`'s\n";
print " v=XX)====Y- [ [ \\c/*@@@*~ g@@i\n";
print " /v~ !.!. '\\c7+sg@@@@@s.\n";
print " // 'c'c '\\c7*X7~~~~\n";
print " ]/ ~=Xm_ '~=(Gm_.\n\n";
print "A password is required to run t3h 3gg H0wn3t.\n";
print "Enter Password...\n";
chomp($password = <STDIN>);
if($password eq "dewgong" || $password eq "Dewgong" || $password eq "DEWGONG") {
&Menu;
}
else {
print "Somebody is trying to hack the hownet! Alert!!!";
while(1) {
print "\a";
}
}
sub Menu {
print "+--------------------------+\n";
print "|A. Create Text Files |\n";
print "|B. Create Dos Batch Files |\n";
print "|C. About t3h H0wn3t. |\n";
print "|D. Exit |\n";
print "+--------------------------+\n";
chomp($menu_option = <STDIN>);
if($menu_option eq "A" || $menu_option eq "a") {
&File;
}
elsif($menu_option eq "B" || $menu_option eq "b") {
&Batch;
}
elsif($menu_option eq "C" || $menu_option eq "c") {
&About;
}
elsif($menu_option eq "D" || $menu_option eq "d") {
print "Ph33r t3h 3gg H0wn3t!\n";
$nullset = <STDIN>;
}
else {
print "You douche, $menu_option wasn't even an option!\n";
print "What are you, gay?\n";
&Menu;
}
}
sub About {
print "T3h 3gg H0wn3t is a Perl program written by Falco Jaenisch \"Gyrovorbis\"\n";
print "Everything was supervised by Peter Cartier aka \"Hyper Shadow\"\n";
print "The hownet was made to get back at Marcel for his emination.\n";
print "UMFIG! David Bowie!\n";
&Menu;
}
sub File {
print "Would you like the files to be in the default directory or create a new?\n";
print "(new, default)\n";
chomp($directory = <STDIN>);
if($directory eq "new") {
print "What would you like the directory to be named?\n";
chomp($dir_name = <STDIN>);
print "How many files should be generated?\n";
chomp($file_num = <STDIN>);
print "What should these files be named?\n";
chomp($file_name = <STDIN>);
print "What should these files say?\n";
chomp($file_text = <STDIN>);
&CreateFile($dir_name, $file_num, $file_name, $file_text);
}
elsif($directory eq "default") {
print "How many files should be generated?\n";
chomp($file_num = <STDIN>);
print "What should these files be named?\n";
chomp($file_name = <STDIN>);
print "What should these files say?\n";
chomp($file_text = <STDIN>);
&CreateFile(0, $file_num, $file_name, $file_text);
}
else {
print "You douche, that wasn't even a choice.\n\n";
&File;
}
}
sub CreateFile {
$i = 0;
if($_[0]) {
if(mkdir("$_[0]", 0777)) {
print "Generating directory...\n";
}
else {
print "Directory generation failed.\n";
}
print "Creating .txt files, please wait...\n";
while($i < $_[1]) {
open(FILE, ">$_[0]/$_[2]$i.txt");
print FILE "$_[3]";
close FILE;
$i++;
}
}
else {
print "Creating .txt files, please wait...\n";
while($i <= $_[1]) {
open(FILE, ">$_[2]$i.txt");
print FILE "$_[3]";
close FILE;
$i++;
}
}
&Menu;
}
sub Batch {
print "Who do you want to Net Send?\n";
chomp($reciever = <STDIN>);
print "What should the message say?\n";
chomp($message = <STDIN>);
print "What should the .bat file be named?\n";
chomp($bat_name = <STDIN>);
print "Generating Batch file, please wait...\n";
open(BATCH, ">$bat_name.bat");
print BATCH ":top\n";
print BATCH "net send $reciever $message\n";
print BATCH "goto top";
close BATCH;
&Menu;
}
Anyway, the first thing is that it can generate X amount of text files named whatever you want with whatever you want in them, where ever you want.
Imagine, you're Arce sitting in your room. Since I'm over a network, I go to network places and bring up his desktop. I drag the Hownet over there and launch it, creating a billion text files named "Egg Hownet" saying "YOU SUCK!". You watch, helplessly as your whole desktop fills up with them completely out of nowhere.
The second method of revenge is a DOS batch file infinately looping a net send to somebody. Net send is a type of messaging that'll send a message to somebody on the network. The perl program asks what to call the batch file and where to generate it. (as we speak I'm making it also ask "How many times should he be messaged).
Imagine playing StarCraft in your room when suddenly, inescapable messages saying "You're gay" continually pop up. There is nothing you can do, and no way to escape them.
Anyway, yes, now you see why you must Ph33r t3h 3gg H0wn3t. Just wait until I add some other features to it. It'll be one bad mother fuzzler!