Comment encoder une chaîne dans Oracle?

Question

J'ai un problème avec les données de codage dans la base de données Oracle. Je veux xor chaîne avec une autre chaîne (masque), puis l'encoder avec base64.

En Python cela ressemble:

def encode_str(s, mask): 
    xor_mask = mask 
    while len(xor_mask) < len(s): 
     xor_mask += mask 
    chrs2 = [] 
    for i in range(len(s)): 
     chrs2.append(chr(ord(s[i])^ord(xor_mask[i]))) 
    s2 = ''.join(chrs2) 
    return base64.b64encode(s2) 
    #return binascii.hexlify(s2).lower() 

En PL/SQL Je suis:

create or replace function ht_encode(str in varchar2, mask in varchar2) return varchar2 as 
    xor_mask varchar2(2000); 
    result_s varchar2(2000); 
    i integer; 
    xx integer; 
    x char(10); 
    ch1 char(10); 
    ch2 char(10); 
    chrx varchar2(10); 
begin 
    result_s := ''; 
    xor_mask := mask; 
    while length(xor_mask) < length(str) loop 
    xor_mask := xor_mask || mask; 
    end loop; 
    for i in 1..length(str) loop 
    ch1 := substr(str, i, 1); 
    ch2 := substr(xor_mask, i, 1); 
    xx := BITXOR(ascii(ch1), ascii(ch2)); 
    x := xx; 
    chrx := rawtohex(x); 
    --result_s := result_s || ':' || chrx; 
    --result_s := result_s || chrx; 
    -- HELP ME HERE! 
    end loop; 
    --return lower(utl_encode.base64_encode(result_s)); 
    --return result_s || ' | ' || rawtohex(result_s); 
    -- HELP ME HERE! 
    return result_s; 
end; 

(BITXOR vient de http://forums.oracle.com/forums/thread.jspa?threadID=496773)

Je ne sais pas comment créer " binaire "chaîne, puis l'encoder en hexadécimal ou préférable à base64.

Answer 1

SELECT UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.bit_xor(UTL_RAW.cast_to_raw('text'), UTL_RAW.cast_to_raw('mask')))) 
FROM dual