pwd.scp

Perl写的CA认证程序

<!---

// -------------------------------------------------------
// Javascript 0.2 - OpenCA Software
//
// Copyright (c) by Massimiliano Pala and OpenCA group
// All rights Reserver
// 
// -------------------------------------------------------

function encode( text ) {

	var ret = "";

	for( i = 0; i < text.length; i++ ) {
		if( text[i] == " " ) {
			ret += "%20";
		} else {
			ret += text[i];
		}
	}

	return ret;
}

function do_ok() {

	var tmp;

	if ( document.getpwd.pwd.value != "") {            

		tmp = document.getpwd.pwd.value.length;

		if( tmp >= 5 ) {
			parent.opener.document.forms[0].passwd.value =
		 				document.getpwd.pwd.value;
			parent.opener.document.forms[0].submit();
		} else {
			alert( "Password too short (at least 5 chars!)");
			parent.opener.document.forms[0].reset();

			return false;
		}
   	} else {
		parent.opener.document.forms[0].reset();
	}

   	window.close();
}

function do_canc() {
	window.close(); 
}

function init() {
	document.getpwd.pwd.focus();
}

// -->