登錄口令加密函數、用戶登錄主Form實現方法和具體代碼

create函數PWD：
create FUNCTION PWD(sdpassword varchar2) RETURN varchar2 IS 
  len   number; 
  szpwd varchar2(20); 
BEGIN 

   len:=length(sdpassword); 
   for i in 1..len loop 
     szpwd:=szpwd|| 
                 chr(ascii(substr(sdpassword,i,1))+(len-i)*i*i+len); 
   end loop; 
   return(szpwd); 

END; 
/ 

具體使用：
1.在Block中加一Trriggers：Key-Others，代碼：null; 防止用戶用Shift + F7非法進入。
2.在OK確定Button加一When-Button-Pressed，代碼：
DECLARE
   szpwd         VARCHAR2 (20);         --密碼
   szjmpwd       VARCHAR2 (20);         --加密碼
   szjs          VARCHAR2 (10) := '4';  --角色
BEGIN
   SELECT PASSWORD, js
     INTO szpwd, szjs
     FROM prid01                       --權限管理中的用戶登記表
    WHERE userid = :login.userid;

   szjmpwd := pwd (NVL (:login.PASSWORD, '@'));

   IF szpwd = szjmpwd THEN
      :GLOBAL.userid := :login.userid;
      :GLOBAL.username := :login.username;
      :GLOBAL.js := szjs;
      :GLOBAL.PASSWORD := :login.PASSWORD;
      :GLOBAL.nls_lang := :login.nls_language;
      --init_menu;            --初始化菜單權限
      --init_nav;             --初始化工具條上的ERP流程圖權限
      --init_nav_hr;         --初始化工具條上的人力資源模塊流程圖權限
      GO_BLOCK ('MAIN');
      --SET_ITEM_PROPERTY('NO_DISPLAY_NEXT_TIME',VISIBLE,PROPERTY_TRUE);
      --SET_ITEM_PROPERTY('NO_DISPLAY_NEXT_TIME',ENABLED,PROPERTY_TRUE);
      --EXECUTE_TRIGGER('HINT');   --執行每日一帖小程序
   ELSE
      messagebox.messagebox (nls_error (nls_lang, '00004')); 
                    --這是我自做的多語言messagebox，你們可用你們的
      GO_ITEM ('LOGIN.password');
   END IF;
EXCEPTION
   WHEN NO_DATA_FOUND THEN
      messagebox.messagebox (nls_error (nls_lang, '00007'));
                    --這是我自做的多語言messagebox，你們可用你們的
      GO_ITEM ('LOGIN.userid');
   WHEN OTHERS THEN
      messagebox.messagebox (SQLERRM);
END;

原文轉自：http://www.kjueaiud.com