create procedure md5 () returns ()
as
declare variable id char(30);
declare variable geslo char(32)
begin
	for
		select uporabniskoime, md5(geslo) from uporabnik
		into :id, :geslo
	do
		begin
			update uporabnik
			set geslo=:geslo
			where uporabniskoime=:id
		end
end