#!/usr/local/bin/perl print "Content-type: text/html\n\n"; ################################# ## Script by Makaveliakapac7 ## ################################# ## Created 6/29/00 ## ################################# ## Copyright® M-Mindz Scriptaz ## ################################# use CGI qw(param); $pass1 = param("pass1"); $gate1 = "system"; $pass2 = param("pass2"); $gate2 = "id"; $pass3 = param("pass3"); $gate3 = "confirm"; if ($pass1 eq "" & $pass2 eq "" & $pass3 eq "") { print < Millitary Mindz Password



EOH print "
"; print "
Password 1
"; print "


"; print "
Password 2
"; print "


"; print "
Password 3
"; print "


"; print "
"; print "</html>"; } if ($pass1 eq $gate1 & $pass2 eq $gate2 & $pass3 eq $gate3) { print "<html><body bgcolor=\"black\">"; print "<embed src=\"http://millitary-mindz.virtualave.net/homepage/mm.html\">"; print "</body><noembed></html>"; } if ($pass1 ne $gate1 & $pass2 ne $gate2 & $pass3 ne $gate3) { print <<EOH; <html><body bgcolor="black" text="lime"> <center><embed src="http://millitary-mindz.virtualave.net/images/mmglow2.jpg"></center><br><center><br>     Your Ip # allong with your user name Have been recorded.</center> EOH print "<br><br>"; print "<center>Your Ip #</center>"; print "<br><center><font color=\"gold\">$ENV{'REMOTE_ADDR'}</font></center>"; print "<br><br><br><center>I have tried to hack You using These Passwords</center><br><br>"; print "<center><font color=\"gold\">$pass1 , $pass2 , $pass3</font></center>"; open(LOG,">>log.txt"); print LOG "User: $ENV{'REMOTE_ADDR'} , Came From: $ENV{'HTTP_REFERER'} And the passwords They Used: $pass1 , $pass2 , $pass3";close(LOG); print "</body><noembed></html>"; }