Aldon wrote: > > Imports System.Security.Cryptography > Private Function ComputeHash(ByVal Key As String) As String > Dim objSHA1 As New SHA1CryptoServiceProvider > objSHA1.ComputeHash(System.Text.Encoding.UTF8.GetBytes(Key.ToCharArray)) > Dim buffer() As Byte = objSHA1.Hash > Dim HashValue As String = System.Convert.ToBase64String(buffer)
This is Base64 encoded. > http://www.cflib.org/udf.cfm?ID=34 It looks like this is Hex. How do the strings look? Jochem ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| Logware (www.logware.us): a new and convenient web-based time tracking application. Start tracking and documenting hours spent on a project or with a client with Logware today. Try it for free with a 15 day trial account. http://www.houseoffusion.com/banners/view.cfm?bannerid=67 Message: http://www.houseoffusion.com/lists.cfm/link=i:4:207514 Archives: http://www.houseoffusion.com/cf_lists/threads.cfm/4 Subscription: http://www.houseoffusion.com/lists.cfm/link=s:4 Unsubscribe: http://www.houseoffusion.com/cf_lists/unsubscribe.cfm?user=11502.10531.4 Donations & Support: http://www.houseoffusion.com/tiny.cfm/54
