CRsaBcmathProvider::Keygen

public function Keygen($keylen=false)
{
	if($keylen === false)
		$keylen = 512;
	else
		$keylen = intval($keylen);

	$pl = intval(($keylen + 1) / 2);
	$ql = $keylen - $pl;

	$p = self::getRndPrime($pl);
	$q = self::getRndPrime($ql);

	$x = self::getkeysfrompq($p, $q, 1) ;

	return array(
		"M" => base64_encode(self::int2raw($x[0])),
		"E" => base64_encode(self::int2raw($x[1])),
		"D" => base64_encode(self::int2raw($x[2])),
		"chunk" => $keylen/8,
	);
}