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
