Need decryption Alog
Hi
Can any one give me the decryption algo for this encryption algo
Public Function EncryptPassword()
Dim sPassword
For ii = 1 To Len(sEncryptedPassword)
sPassword = sPassword & Chr(Asc(Mid(sEncryptedPassword, ii, 1)) + Fix(sqr(3 ^ ii / 2 ^ ii)))
Next
EncryptPassword = sPassword
End Function
|