---加密---FUNCTION decrypt(outpass in varchar2)RETURN varchar2 ISstring_in varchar2(78);string_out varchar2(39);offset number(2);inpass varchar2(30);
BEGIN string_in :='YN8K1JOZVURB3MDETS5GPL27AXWIHQ94C6F0#$_'; string_out :='_$#ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'; offset:=instr(string_in,substr(outpass,1,1)); string_in:=string_in||string_in; string_in:=substr(string_in,offset,39); inpass:=translate(upper(substr(outpass,2)), string_out,string_in);return inpass;end;
---解密---
FUNCTION encrypt (inpass in varchar2)RETURN varchar2 ISstring_in varchar2(78);string_out varchar2(39);offset number(2);outpass varchar2(30);BEGIN offset :=to_number(to_char(sysdate,'ss'))mod 39; string_in :='YN8K1JOZVURB3MDETS5GPL27AXWIHQ94C6F0#$_'; string_out :='_$#ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'; outpass :=substr(string_in,offset,1); string_in :=string_in||string_in; string_in :=substr(string_in,offset,39); outpass :=outpass||translate(upper(inpass), string_in,string_out); return outpass; END;
