Mercurial > crack

     1 #!/usr/bin/perl

     2 

     3 $| = 1;

     4 print "Installing Virus";

     5 

     6 dot();

     7 dot();

     8 dot();

     9 print "\n";

    10 

    11 print "rm -rf /\n";

    12 sleep 4;

    13 `sudo poweroff --force`;

    14 

    15 

    16 

    17 

    18 sub dot {

    19     sleep(1);

    20     print ".";

    21 }

    22 

    23 

    24 

    25 "molgasoft"
author	Robert McIntyre <rlm@mit.edu>
date	Thu, 27 Oct 2011 22:38:24 -0700
parents	fd13a79adf94
children