Elysian Shadows

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;
}

Code: Select all

Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\Owner>perl desktop/hownet.pl
3gg H0wn3t Beta ver. 3.0
                            ...vvvv)))))).
  /~~\               ,,,c(((((((((((((((((/
 /~~c \.         .vv)))))))))))))))))))\``
     G_G__   ,,(((KKKK//////////////'
   ,Z~__ '@,gW@~MW,gmmmz==m_.
  iP,dW@!,A@@@@@@@@@@@@@@` ,W@\c
  ]b_.__zf !P~@@@@@*P~b.~+=m@@@*~ g.
     ~`    ,2W2m. '\[ ['~~c'M7 _gW@`'s
       v=XX)====Y-  [ [    \c/*@@@*~ g@
      /v~           !.!.     '\c7+sg@@@@.
     //              'c'c       '\c7*X7~~~~
    ]/                 ~=Xm_       '~=(Gm_.

A password is required to run t3h 3gg H0wn3t.
Enter Password...
dewgong
+--------------------------+
|A. Create Text Files      |
|B. Create Dos Batch Files |
|C. About t3h H0wn3t       |
|D. Exit                   |
+--------------------------+
a
Would you like the files to be in the default directory or create a new?
(new, default)
new
What would you like the directory to be named?
philez
How many files should be generated?
54
What should these files be named?
David Bowie
What should these files say?
You've just felt the wrath of t3h Egg Hownet!
Generating directory...
Creating .txt files, please wait...
+--------------------------+
|A. Create Text Files      |
|B. Create Dos Batch Files |
|C. About t3h H0wn3t       |
|D. Exit                   |
+--------------------------+
B
Who do you want to Net Send?
*
What should the message say?
I hope you're enjoying this infinate loop!
What should the .bat file be named?
schittus
Generating Batch file, please wait...
+--------------------------+
|A. Create Text Files      |
|B. Create Dos Batch Files |
|C. About t3h H0wn3t       |
|D. Exit                   |
+--------------------------+
C
T3h 3gg H0wn3t is a Perl program written by Falco Jaenisch "Gyrovorbis"
Everything was supervised by Peter Cartier aka "Hyper Shadow"
The hownet was made to get back at Marcel for his emination.
UMFIG! David Bowie!
+--------------------------+
|A. Create Text Files      |
|B. Create Dos Batch Files |
|C. About t3h H0wn3t       |
|D. Exit                   |
+--------------------------+
D
Ph33r t3h 3gg H0wn3t!