电子文档版资料汇集目录

wanhualeng

CREATE OR REPLACE PROCEDURE  file_read (
   file_dir    VARCHAR2 DEFAULT 'TEMP_DIR',
   file_name   VARCHAR2 DEFAULT 'trc.txt'
)
IS
   vinhandle   UTL_FILE.file_type;
   vnewline    VARCHAR2 (500);
   v_num       NUMBER             := 0;
BEGIN
   vinhandle := UTL_FILE.fopen (file_dir, file_name, 'R');

   LOOP
      BEGIN
         UTL_FILE.get_line (vinhandle, vnewline);

         IF vnewline IS NOT NULL
         THEN
            INSERT INTO  temp
                 VALUES (
                         SUBSTR (vnewline,
                                 INSTR (vnewline, ' ', 1, 3) + 1,
                                   INSTR (vnewline, ' ', 1, 4)
                                 - INSTR (vnewline, ' ', 1, 3)
                                 - 1
                                ));

            v_num := v_num + 1;

            IF v_num = 100
            THEN
               COMMIT;
               v_num := 0;
            END IF;
         END IF;
      EXCEPTION
         WHEN OTHERS
         THEN
            COMMIT;
            EXIT;
      END;
   END LOOP;
   UTL_FILE.fclose (vinhandle);
END;

[ 本帖最后由 wanhualeng 于 2009-7-23 11:29 编辑 ]

wanhualeng

CREATE OR REPLACE DIRECTORY
TEMP_DIR AS
'C:\temp';

wanhualeng

CREATE OR REPLACE FUNCTION DesEncriptar_Test
(
Valor IN VARCHAR2,
Llave IN VARCHAR2
)
RETURN VARCHAR2
IS
key_string VARCHAR2(16) := llave;
raw_key RAW(128) := UTL_RAW.CAST_TO_RAW(key_string);
encrypted_raw RAW(2048);
encrypted_string VARCHAR2(2048);
decrypted_raw RAW(2048);
decrypted_string VARCHAR2(2048);
begin
encrypted_raw:=hextoraw(valor);
dbms_obfuscation_toolkit.DESDecrypt(input => encrypted_raw,
key => raw_key,
decrypted_data => decrypted_raw );
return utl_raw.cast_to_varchar2(decrypted_raw);
--EXCEPTION
--WHEN OTHERS THEN
--RETURN 'ERROR';

end;

wanhualeng

CREATE OR REPLACE FUNCTION encriptar (valor IN VARCHAR2, llave IN VARCHAR2)
   RETURN VARCHAR2
IS
   raw_input          RAW (128)
                               := UTL_RAW.cast_to_raw (RPAD (valor, 16, ' '));
   key_string         VARCHAR2 (16)   := llave;
   raw_key            RAW (128)       := UTL_RAW.cast_to_raw (key_string);
   encrypted_raw      RAW (2048);
   encrypted_string   VARCHAR2 (2048);
BEGIN
   DBMS_OBFUSCATION_TOOLKIT.desencrypt (input               => raw_input,
                                        KEY                 => raw_key,
                                        encrypted_data      => encrypted_raw
                                       );
   RETURN RAWTOHEX (encrypted_raw);
--EXCEPTION
--WHEN OTHERS THEN
--RETURN 'ERROR';
END encriptar;
/

Coast_lichao

kao ,zei duo!

itoption

ZHXXX

好人呀

xtong83

xiexie

lvhen9999

太好了,支持一下

kittylc

如果能把上面版主们和所有puber发的资料目录整理成一个.txt文档就好了
目前正在整理中。。。。