Pakai DBMS_OBFUSCATION_TOOLKIT (8i,9i,10g) atau DBMS_CRYPTO (10g) aja ... lebih mudah, dan algoritma enkripsinya juga banyak (DES,3DES,AES ...)
Bowo --- In [email protected], "dadang syarieffidayat" <[EMAIL PROTECTED]> wrote: > > 2007/5/11, antok2486 <[EMAIL PROTECTED]>: > > Rekan-rekan ada yang tau ga function di oracle untuk encrypt decrypt. > > Misal : > > Sewaktu Insert : > > Insert Into User(Username,Password) Values(username,Encrypt (password)) > > Sewaktu Select : > > Select Username, Decrypt(password) > > From User > > > > Please kasi tau function-nya...? > > > > PUBLIC FUNCTION encryptText(strText) > dim i, char, strBuff > if LEN(strPwd) then > for i = 1 to LEN(strText) > char = ASC(MID(strText, i, 1)) > char = char + ASC(MID(strPwd, (i mod LEN(strPwd)) + 1, 1)) > strBuff = strBuff & CHR(char and &HFF) > next > else > strBuff = strText > end if > encryptText = strBuff > END FUNCTION > > PUBLIC FUNCTION decryptText(strText) > dim i, char, strBuff > if LEN(strPwd) Then > for i = 1 to LEN(strText) > char = ASC(MID(strText, i, 1)) > char = char - ASC(MID(strPwd, (i mod LEN(strPwd)) + 1, 1)) > strBuff = strBuff & CHR(char and &HFF) > next > else > strBuff = strText > end if > decryptText = strBuff > END FUNCTION >
