For lTemp = 1 to Len(sValue) dValue = Asc(Mid(sValue, lTemp, 1)) If (lTemp AND 1) = 1 Then dAccumulator = Sin( dAccumulator + dValue ) Else dAccumulator = Cos( dAccumulator + dValue ) End If Next
dAccumulator = dAccumulator * CLng(10 ^ 9) PHash = CLng(dAccumulator) End Function
note: - pValue is the password entered - PHash is a function to encrypt the password
anyone can help me decrypt this formula ?i really appreciate !