Md5

[JpEgy]

In VB6 i had a nice DLL to make MD5 hashes but the module that was needed for that doesn't seem to work in .NET.

Private Declare Sub MDFile Lib "aamd532.dll" (ByVal f As String, ByVal r As String)
Private Declare Sub MDStringFix Lib "aamd532.dll" (ByVal f As String, ByVal t As Long, ByVal r As String)

Public Function MD5String(p As String) As String
' compute MD5 digest on a given string, returning the result
    Dim r As String * 32, t As Long
    r = Space(32)
    t = Len(p)
    MDStringFix p, t, r
    MD5String = r
End Function

Public Function MD5File(f As String) As String
' compute MD5 digest on o given file, returning the result
    Dim r As String * 32
    r = Space(32)
    MDFile f, r
    MD5File = r
End Function

Could someone help me with this?

[Cander]

there is a class called
MD5CryptoServiceProvider

not sure what namespace it is in though..probably something like System.Cryptosomething....

do some searching for that.

[JpEgy]

oki :-)

[JpEgy]

http://www.planetsourcecode.com/vb/s...d=74&lngWId=10

i found a nice example on that page.

Imports System.Security.Cryptography

Now i still need to know how to make a hashtable of a textstring...

[sunburnt]

If you replace all the "as Longs" with "as Int32" and remove the fixed strings, that code might work.

[JpEgy]

Private Declare Sub MDStringFix Lib "aamd532.dll" (ByVal f As String, ByVal t As Long, ByVal r As String)

Public Function MD5String(ByVal p As String) As String
' compute MD5 digest on a given string, returning the result
Dim r As String, t As Int32
r = Space(32)
t = Len(p)
MDStringFix(p, t, r)
MD5String = r
End Function

Like this?

Refference not set to an instance of an object :-(

[sunburnt]

Private Declare Sub MDStringFix Lib "aamd532.dll" (ByVal f As String, ByVal t As [b]Int32[/b], ByVal r As String)

You forgot one -- This is important, since in .NET, a Long is 8 bytes, whereas it was 4 in previous versions. This will cause a problem in declares, because you are passing 8 bytes where it expects 4.

[JpEgy]

oops

[JpEgy]

YAH! it works now, thanks for ur help mate!

[sunburnt]

no problem -- i had the exact same trouble trying to port some of my code over.