BEGIN
PERFORM login._token_assert (prm_token, TRUE, FALSE);
mdp := 'password';
- WHILE mdp !~ '[-\!#\$%\*\+:<=>\?@\/]+' OR mdp !~ '[a-z]+' OR mdp !~ '[A-Z]+' OR mdp !~ '[0-9]+' OR char_length(mdp) != 8 LOOP
- SELECT string_agg (substr('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!#$%*+-:<=>?@', ceil (random() * 88)::integer, 1), '') INTO mdp FROM generate_series(1, 8);
+ WHILE mdp !~ '[-\!#\$%\*\+:=\?@\/]+' OR mdp !~ '[a-z]+' OR mdp !~ '[A-Z]+' OR mdp !~ '[0-9]+' OR char_length(mdp) != 8 LOOP
+ SELECT string_agg (substr('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!#$%*+-:=?@', ceil (random() * 86)::integer, 1), '') INTO mdp FROM generate_series(1, 8);
END LOOP;
UPDATE login.utilisateur SET uti_salt = crypt (mdp, gen_salt('des')), uti_pwd = mdp
WHERE uti_id = prm_uti_id;