i pls_integer;

　　x pls_integer;

　　y pls_integer;

　　v VARCHAR2(32767);

　　BEGIN

　　-- For every 3 bytes, split them into 4 6-bit units and map them to

　　-- the Base64 characters

　　i := 1;

　　WHILE ( i + 2 <= utl_raw.length(r) ) LOOP

　　x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +

　　to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +

　　to_number(utl_raw.substr(r, i + 2, 1), '0X');

　　y := floor(x / 262144); v := v || map(y); x := x - y * 262144;

　　y := floor(x / 4096); v := v || map(y); x := x - y * 4096;

　　y := floor(x / 64); v := v || map(y); x := x - y * 64;

　　v := v || map(x);

　　i := i + 3;

　　END LOOP;

　　-- Process the remaining bytes that has fewer than 3 bytes.

　　IF ( utl_raw.length(r) - i = 0) THEN

　　x := to_number(utl_raw.substr(r, i, 1), '0X');

　　y := floor(x / 4); v := v || map(y); x := x - y * 4;

　　x := x * 16; v := v || map(x);

　　v := v || '==';

　　ELSIF ( utl_raw.length(r) - i = 1) THEN

　　x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +

　　to_number(utl_raw.substr(r, i + 1, 1), '0X');

　　y := floor(x / 1024); v := v || map(y); x := x - y * 1024;

　　y := floor(x / 16); v := v || map(y); x := x - y * 16;

　　x := x * 4; v := v || map(x);

　　v := v || '=';

　　END IF;

　　RETURN v;

　　END;

　　BEGIN

　　init_map;

　　END;

　　--结束.