Home » RDBMS Server » Security » PL/SQL Random Password Generator
PL/SQL Random Password Generator [message #39518] Mon, 22 July 2002 04:55 Go to next message
Marko
Messages: 2
Registered: July 2002
Junior Member
Hi all,

would some kind soul happen to have a PL/SQL script for random password generation? If it's possible to get something pronounceable that would be great.

Kindest regards,
Marko
Re: PL/SQL Random Password Generator [message #39529 is a reply to message #39518] Mon, 22 July 2002 09:49 Go to previous messageGo to next message
Todd Barry
Messages: 4819
Registered: August 2001
Senior Member
Not pronounceable, but random and more secure:

http://asktom.oracle.com/pls/ask/f?p=4950:8:::::F4950_P8_DISPLAYID:98812348060
Here it is [message #39544 is a reply to message #39518] Tue, 23 July 2002 00:18 Go to previous messageGo to next message
Marko
Messages: 2
Registered: July 2002
Junior Member
--Thanks Todd, I've found a version in ASP, re-coded it in pl/sql and combined it with random number generator found here on orafaq. It's somewhat lengthy code but works fine.

CREATE OR REPLACE PACKAGE Random AS
/*
* Random number generator. Uses the same algorithm as the
* rand() function in C.
* USAGE: select random.rand() from dual;
* USAGE: select random.pwd(8) from dual
*/

PROCEDURE ChangeSeed(p_NewSeed IN NUMBER);
-- Used to change the seed. From a given seed, the same
-- sequence of random numbers will be generated.

FUNCTION Rand RETURN NUMBER;
-- Returns a random integer between 1 and 32767.

FUNCTION Rnd RETURN NUMBER;
-- Returns a random integer between 0 and 1

Function Pwd(nLength IN NUMBER) RETURN VARCHAR2;
-- Generates a pronounceable random password
END Random;
/
CREATE OR REPLACE PACKAGE BODY Random AS
/* Used for calculating the next number. */
v_Multiplier CONSTANT NUMBER := 22695477;
v_Increment CONSTANT NUMBER := 1;
/* Seed used to generate random sequence. */
v_Seed NUMBER := 1;

PROCEDURE ChangeSeed(p_NewSeed IN NUMBER) IS
BEGIN
v_Seed := p_NewSeed;
END ChangeSeed;

FUNCTION Rand RETURN NUMBER IS
BEGIN
v_Seed := MOD(v_Multiplier * v_Seed + v_Increment, (2 ** 32));
RETURN BITAND(v_Seed/(2 ** 16), 32767);
END Rand;

FUNCTION Rnd RETURN NUMBER IS
pom NUMBER;
BEGIN
pom:=Rand();
RETURN pom/(POWER(10,LENGTH(pom-1)));
END Rnd;

Function Pwd(nLength IN NUMBER) RETURN VARCHAR2 IS
I NUMBER :=1;
strDoubleConsonants Constant VARCHAR2(12) := 'bdfglmnpst';
strConsonants Constant VARCHAR2(20):= 'bcdfghklmnpqrstv';
strVocal Constant VARCHAR2(5) := 'aeiou';
GeneratedPassword VARCHAR2(50) := '';
bMadeConsonant BOOLEAN := False;
nRnd NUMBER;
nSubRnd NUMBER;
c VARCHAR2(1);
Begin
FOR I IN 1..nLength LOOP
--Get a random number number between 0 and 1
SELECT random.rnd() INTO nRnd FROM dual;
SELECT random.rnd() INTO nSubRnd FROM dual;
/* Simple or double consonant, or a new vocal?
* Does not start with a double consonant
* '15% or less chance for the next letter being a double consonant
*/
IF GeneratedPassword <> '' AND (bMadeConsonant <> True) AND (nRnd < 0.15) THEN
--double consonant
c := SUBSTR(strDoubleConsonants, Length(strDoubleConsonants) * nSubRnd + 1, 1);
c := c || c;
bMadeConsonant := True;
ELSIF ((bMadeConsonant <> True) And (nRnd < 0.95)) THEN
--80% or less chance for the next letter being a consonant,
--depending on wether the last letter was a consonant or not.

--Simple consonant
c := SUBSTR(strConsonants, Length(strConsonants) * nSubRnd + 1, 1);
bMadeConsonant := True;
ELSE
--5% or more chance for the next letter being a vocal. 100% if last
--letter was a consonant - theoreticaly speaking...
--If last one was a consonant, make vocal
c := SUBSTR(strVocal, Length(strVocal) * nSubRnd + 1, 1);
bMadeConsonant := False;
END IF;
GeneratedPassword := GeneratedPassword || c;

END LOOP;

--Is the password long enough, or perhaps too long?
If (Length(GeneratedPassword) > nLength) Then
GeneratedPassword := SUBSTR(GeneratedPassword, 1, nLength);
End If;
RETURN GeneratedPassword;
End Pwd;




BEGIN
/* Package initialization. Initialize the seed to the current
time in seconds. */
ChangeSeed(TO_NUMBER(TO_CHAR(SYSDATE, 'SSSSS')));
END Random;
/
Re: Here it is [message #39557 is a reply to message #39518] Tue, 23 July 2002 08:13 Go to previous message
Todd Barry
Messages: 4819
Registered: August 2001
Senior Member
Ok, glad you found something. Remember though that there is already a random number generator built-in to Oracle (DBMS_RANDOM). It can also return numbers within specified ranges.
Previous Topic: Checking Oracle Users Password
Next Topic: Audit
Goto Forum:
  


Current Time: Thu Mar 28 12:54:37 CDT 2024