📄 regid.txt
字号:
#!/usr/bin/perl -w
use CGI qw(:standard);
#print header;
$fc1=param('fname');
$fc2= $fc1 =~ m/^\w+$/;
$fc3=param('loginid');
$fc4= $fc3 =~ m/^[a-z|0-9]+$/;
$fc5=param('pass1');
$fc6= $fc5 =~ m/^\w+$/;
$fc7=param('pass2');
$fc8= $fc7 =~ m/^\w+$/;
$fc9=param('lname');
$fc10= $fc9 =~ m/^\w+$/;
$fc11=param('secq');
$fc12= $fc11 =~ m/[^:]/;
$fc13=param('ans');
$fc14= $fc13 =~ m/[^:]/;
if((param('loginid')) && (param('pass1'))&&(param('pass2'))&&(param('fname')) &&(param('lname'))&&(param('secq'))&&(param('ans'))&&($fc2==1)&&($fc4==1)&&($fc6==1)&&($fc8==1)&&($fc10==1)&&($fc12==1)&&($fc14==1))
{
$name=param('loginid');
$pass1=param('pass1');
$pass2=param('pass2');
$fname=param('fname');
$lname=param('lname');
$secq=param('secq');
$ans=param('ans');
if($pass1 eq $pass2)
{
dbmopen(%updata,"/etc/httpddata/passdata.dat",0400);
dbmopen(%comp,"/etc/httpddata/comp.dat",0400);
dbmopen(%user,"/etc/httpddata/nuser.dat",0600);
if((!defined $updata{$name})&&(!defined $comp{$name})&&(!defined $user{$name}))
{
$user{$name}=$pass1;
}
else
{
dbmclose %user;
dbmclose %comp;
print "Location: http://www.myproject.com/uexist.htm\n\n";
exit;
}
dbmclose %user;
dbmclose %comp;
}
else
{
print "Location: http://www.myproject.com/passmm.htm\n\n";
exit;
}
}
else
{
print "Location: http://www.myproject.com/invup.htm\n\n";
exit;
}
dbmopen(%pidata,"/etc/httpddata/comudata.dat",0600);
$message="$fname:$lname:$secq:$ans";
$pidata{$name}="$message";
dbmclose %pidata;
#dbmopen(%user,"/etc/httpddata/nuser.dat",0400);
dbmopen(%pidata,"/etc/httpddata/comudata.dat",0400);
($fn,$ln,$sq,$as)=split(':',$pidata{$name});
print header;
print <<"EOM";
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>confirmation</title>
<meta name="Microsoft Theme" content="nature 111, default">
<meta name="Microsoft Border" content="tlb, default">
</head>
<body background="../_themes/nature/nabkgnd.jpg" bgcolor="#FFFFCC" text="#333399" link="#990033" vlink="#006633" alink="#FF6600"><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica">
<center>
<h1>
<img src="../_derived/confirmation.htm_cmp_nature110_bnr.gif" width="600" height="60" border="0" alt="confirmation">
</h1>
<!--msthemeseparator--><p align="center"><img src="../_themes/nature/anarule.gif" width="600" height="10"></p></center>
<!--mstheme--></font></td></tr><!--msnavigation--></table><!--msnavigation--><table dir="ltr" border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td valign="top" width="1%"><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica">
<p>
<script language="JavaScript"><!--
MSFPhover =
(((navigator.appName == "Netscape") &&
(parseInt(navigator.appVersion) >= 3 )) ||
((navigator.appName == "Microsoft Internet Explorer") &&
(parseInt(navigator.appVersion) >= 4 )));
function MSFPpreload(img)
{
var a=new Image(); a.src=img; return a;
}
// --></script><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav1n=MSFPpreload("../_derived/home_cmp_nature110_vbtn.gif"); MSFPnav1h=MSFPpreload("../_derived/home_cmp_nature110_vbtn_a.gif"); }
// --></script><a href="../index.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1h.src" onmouseout="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1n.src"><img src="../_derived/home_cmp_nature110_vbtn.gif" width="140" height="60" border="0" alt="Home" name="MSFPnav1"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav2n=MSFPpreload("../_derived/up_cmp_nature110_vbtn.gif"); MSFPnav2h=MSFPpreload("../_derived/up_cmp_nature110_vbtn_a.gif"); }
// --></script><a href="signin" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav2'].src=MSFPnav2h.src" onmouseout="if(MSFPhover) document['MSFPnav2'].src=MSFPnav2n.src"><img src="../_derived/up_cmp_nature110_vbtn.gif" width="140" height="60" border="0" alt="Up" name="MSFPnav2"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav3n=MSFPpreload("../_derived/members.htm_cmp_nature110_vbtn.gif"); MSFPnav3h=MSFPpreload("../_derived/members.htm_cmp_nature110_vbtn_a.gif"); }
// --></script><a href="../members.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav3'].src=MSFPnav3h.src" onmouseout="if(MSFPhover) document['MSFPnav3'].src=MSFPnav3n.src"><img src="../_derived/members.htm_cmp_nature110_vbtn.gif" width="140" height="60" border="0" alt="Members" name="MSFPnav3"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav4n=MSFPpreload("../_derived/archive.htm_cmp_nature110_vbtn.gif"); MSFPnav4h=MSFPpreload("../_derived/archive.htm_cmp_nature110_vbtn_a.gif"); }
// --></script><a href="../archive.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav4'].src=MSFPnav4h.src" onmouseout="if(MSFPhover) document['MSFPnav4'].src=MSFPnav4n.src"><img src="../_derived/archive.htm_cmp_nature110_vbtn.gif" width="140" height="60" border="0" alt="Archive" name="MSFPnav4"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav6n=MSFPpreload("../_derived/projectinfo.htm_cmp_nature110_vbtn.gif"); MSFPnav6h=MSFPpreload("../_derived/projectinfo.htm_cmp_nature110_vbtn_a.gif"); }
// --></script><a href="../projectinfo.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav6'].src=MSFPnav6h.src" onmouseout="if(MSFPhover) document['MSFPnav6'].src=MSFPnav6n.src"><img src="../_derived/projectinfo.htm_cmp_nature110_vbtn.gif" width="140" height="60" border="0" alt="Project Information" name="MSFPnav6"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav7n=MSFPpreload("../_derived/contact.htm_cmp_nature110_vbtn.gif"); MSFPnav7h=MSFPpreload("../_derived/contact.htm_cmp_nature110_vbtn_a.gif"); }
// --></script><a href="../contact.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav7'].src=MSFPnav7h.src" onmouseout="if(MSFPhover) document['MSFPnav7'].src=MSFPnav7n.src"><img src="../_derived/contact.htm_cmp_nature110_vbtn.gif" width="140" height="60" border="0" alt="Contact Information" name="MSFPnav7"></a>
</p>
<!--mstheme--></font></td><td valign="top" width="24"></td><!--msnavigation--><td valign="top"><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica">
<p> </p>
<p> Thank You For Registration with www.myproject.com.</p>
<P> For Confirmation this is your account information.</p>
<p> Your User-ID is "$name"</p>
<p> Your Email ID is "$name\@myproject.com"</p>
<p> Your Password is "$pass1"</p>
<p> Your Name is "$fn $ln"</p>
<p> Your Secret question is "$sq"</p>
<p> Your answer is "$as"</p>
<p> Your Website information is provided to you through E-mail.</p>
<p> If you did not receive E-mail subject "welcome" then contact me at webmaster\@myproject.com</p>
<!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica">
<center><!--msthemeseparator--><p align="center"><img src="../_themes/nature/anarule.gif" width="600" height="10"></p>
<p><small>
<nobr><A HREF="../index.htm" TARGET="" STYLE="text-decoration: none;">Home</A></nobr> | <nobr><A HREF="../members.htm" TARGET="" STYLE="text-decoration: none;">Members</A></nobr> | <nobr><A HREF="signin" TARGET="" STYLE="text-decoration: none;">E-Mail</A></nobr> | <nobr><A HREF="../archive.htm" TARGET="" STYLE="text-decoration: none;">Archive</A></nobr> | <nobr><A HREF="../projectinfo.htm" TARGET="" STYLE="text-decoration: none;">Project Information</A></nobr> | <nobr><A HREF="../contact.htm" TARGET="" STYLE="text-decoration: none;">Contact Information</A></nobr>
<br>
<br>
</small></p>
</center>
<!--mstheme--></font></td></tr><!--msnavigation--></table></body>
</html>
EOM
dbmclose %pidata;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -