logpass.cgi

这个是分屏聊天室源码。需要分屏的聊天室请参考

###############################
#进行密码检查
sub chpass {
$userlevel = 0;
$chkpass = 1;
$smalladmin  = 0;
$tem_userin = "";                  #初始化进入提示

&error("这个用户名被系统所使用,请换一个名字重新登录") if (($username eq "大家")||($username eq $bchatgenius)||($username eq $gchatgenius));
$userpassword2 = $userpassword;  #先将密码进行备份
# 检查是否超级用户
if ($username eq $superuser) {
	$chkpass = 0;
	$userpassword3 = crypt($userpassword2,"DN") if ($userpassword2 ne "");
	$superuserfile = "$filehead$superfile";
	if (-e "$superuserfile") {
		$superpass=&readtxtfile2($superuserfile,2);
		chop($superpass); 
		if (($userpassword3 eq $superpass)||($superpass eq "")) {
			$userlevel = $maxlevel;
			$chkpass = 2;
			$smalladmin = 1; }
	}
} 
else {
	$userfile = "$userhead$username$userext";
	if (-e "$userfile") {
		$user=&readuserfile($username,2);
		if ($userpassword2 ne "") { $userpassword2 = &passcode($userpassword2); } 	#对密码进行加密
		&readuserdata($user);
		if ($mark eq "userdata") {
			if ($chkuserpass eq $userpassword2 )  {
				$chkuserlevel = 1 if ($chkuserlevel > $maxlevel);
				$userlevel = $chkuserlevel;
				$chkpass = 3;
				$smalladmin = $chksadmin; 
				if ($userlevel >= $level_message) { $tem_userin = $chkuserin ; }  # 取得用户的进入提示
				if ($level_allow == 1) {
					$chkuseredate  = $daten." ".$timen ; # 设置用户访问日期
					$chkusersec = time ; #最新的秒数
					&writeuserdata; }
			}
			else { $chkpass = 0; }
		}
	}	
}

	#错误登录
	if (( $chkpass == 0 ) && ($job ne "logout" )){ &error("密码错误，请您重新登录") ; }
	# 赋权限
	$allow_html=1 if ($userlevel>=$level_html);
	$userpassword = crypt($userpassword,"DN") if ($userpassword ne ""); #对密码进行加密
}