will2kready
Posts: 5
|
| Posted: 12/17/2004, 1:19 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 !
|
 |
 |
mrachow
Posts: 509
|
| Posted: 12/17/2004, 1:32 AM |
|
Without looking at any detail.
You should encrypt the passwort.
On later login you should encrypt entered password and compare this to the already stored encrypted password.
This procedure will work for encryptions you can't decrypt too.
_________________
Best regards,
Michael |
|
|
|
|
