Problem with MD5 Script

[mefanning]

I'm working on this function, but the output is always an incorrect hash. Any ideas?

Thanks.

Function SHA1(s)
Dim asc, enc, bytes, outstr, pos
Set asc = CreateObject("System.Text.UTF8Encoding")
Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
bytes = asc.GetBytes_4(s)
bytes = enc.ComputeHash_2((bytes))
outstr = ""

For pos = 1 To Lenb(bytes)
outstr = outstr & LCase(Right("0" & Hex(Ascb(Midb(bytes, pos, 1))), 2))
Next
SHA1 = outstr
wscript.echo SHA1
Set asc = Nothing
Set enc = Nothing


End Function

 

[mefanning]

Just fixed the service provider to use SHA1...I've tried the different hash service providers and the output is never correct when I compare using a tool like HashCalc to calculate the SHA1 or MD5 hash.


Function SHA1(s)
Dim asc, enc, bytes, outstr, pos
Set asc = CreateObject("System.Text.UTF8Encoding")
Set enc = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")
bytes = asc.GetBytes_4(s)
bytes = enc.ComputeHash_2((bytes))
outstr = ""

For pos = 1 To Lenb(bytes)
outstr = outstr & LCase(Right("0" & Hex(Ascb(Midb(bytes, pos, 1))), 2))
Next
SHA1 = outstr
wscript.echo SHA1
Set asc = Nothing
Set enc = Nothing


End Function

 

[strongm]

Your second version seems to provide the correct results as far as I can tell. At least, they are the same as my results using alternative code and also as

http://sha1-hash-online.waraxe.us/