Kalo metode enkripnya pake MD5 gimana? Dulu saya pernah coba pake Fungsi itu tinggal tambahin fungsi itu di sql ato pl/slq anda misn md5(bla....) gitu.. gud luck
Yulius Wibowo <[EMAIL PROTECTED]> wrote: 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 > --------------------------------- Finding fabulous fares is fun. Let Yahoo! FareChase search your favorite travel sites to find flight and hotel bargains. [Non-text portions of this message have been removed]
