will2kready

12-13-2004, 07:55 AM

i was getting problem to decrypt an encryption for password.

the function was in ASP, below:

Function PHash( pValue )

Dim dValue

Dim dAccumulator

Dim lTemp

Dim sValue

sValue = UCase(Trim("" & pValue))

dAccumulator = 0

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 !

the function was in ASP, below:

Function PHash( pValue )

Dim dValue

Dim dAccumulator

Dim lTemp

Dim sValue

sValue = UCase(Trim("" & pValue))

dAccumulator = 0

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 !