Jump to content

Welcome to MSFN Forum
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account


Photo

Looking for a VBS script to generate MD5 of a file

- - - - -

  • Please log in to reply
46 replies to this topic

#1
tomasz86

tomasz86

    www.windows2000.tk

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,510 posts
  • OS:XP Pro x86
  • Country: Country Flag
Does anyone know about any script which can generate MD5 of a file? I've searched in the Internet but haven't been able to find anything working. I did find this:

http://scriptbox.toll.at/index.php?showcontent=Calculate%20MD5%20Hash.vbs

and everything seems to work fine except for the fact that the hash generated by it is wrong :ph34r: (doesn't match the real MD5).

Basically speaking, I'm looking for a solution to calculate MD5 in Windows environment without relying on any 3rd party tools.

Edited by tomasz86, 30 March 2013 - 01:05 AM.

post-47483-1123010975.png
Unofficial Service Pack 5.2 for MS Windows 2000 <- use this topic if you need help with UURollup, Update Rollup 2 and other unofficial packages


How to remove advertisement from MSFN

#2
dencorso

dencorso

    Adiuvat plus qui nihil obstat

  • Super Moderator
  • 5,782 posts
  • OS:98SE
  • Country: Country Flag

Donator

Why? MS's own FCIV (KB841290) isn't bona-fide enough? :unsure:

#3
tomasz86

tomasz86

    www.windows2000.tk

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,510 posts
  • OS:XP Pro x86
  • Country: Country Flag
I've been using FCIV and will probably continue to use it if I can't find any other solution. I'd like to use a VBS script instead of it since such a script can be created on the fly in Windows while FCIV has to be downloaded separately.
post-47483-1123010975.png
Unofficial Service Pack 5.2 for MS Windows 2000 <- use this topic if you need help with UURollup, Update Rollup 2 and other unofficial packages

#4
allen2

allen2

    Not really Newbie

  • Member
  • PipPipPipPipPipPipPip
  • 1,812 posts
Hum, this code might be a good start.

#5
tomasz86

tomasz86

    www.windows2000.tk

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,510 posts
  • OS:XP Pro x86
  • Country: Country Flag

Hum, this code might be a good start.

I've found that one in many different places. The problem is that it only works for text strings, not files... and I'm a complete zero when it comes to VBS so I've got no idea how to change / utilise it :(
post-47483-1123010975.png
Unofficial Service Pack 5.2 for MS Windows 2000 <- use this topic if you need help with UURollup, Update Rollup 2 and other unofficial packages

#6
jaclaz

jaclaz

    The Finder

  • Developer
  • 14,042 posts
  • OS:none specified
  • Country: Country Flag

I've been using FCIV and will probably continue to use it if I can't find any other solution. I'd like to use a VBS script instead of it since such a script can be created on the fly in Windows while FCIV has to be downloaded separately.

Well, I don't see any issue in using a FREE (freely redistributable) MD5 calculator and "embed" it in a .script (i.e. creating it on the fly or more simply including it in the "main" download .zip or whatever). :unsure:

Point might be to find a no-frill one (tiny).
This one is a good candidate:
http://www.pc-tools.net/win32/md5sums/
The DSFOK dsfo.exe is MUCH smaller but unfortunately it is not redistributable "by itself".

Another point of interest would be WHY choosing MD5. (if the idea is a check for consistency MD5 might not be needed and a simpler hash like CRC32 might do)

jaclaz

Edited by jaclaz, 30 March 2013 - 09:31 AM.


#7
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag

Well, I don't see any issue in using a FREE (freely redistributable) MD5 calculator and "embed" it in a .script (i.e. creating it on the fly or more simply including it in the "main" download .zip or whatever). :unsure:

Point might be to find a no-frill one (tiny).


Since I've already done MD5, SHA-1, and CRC-32 (and could rig more through the Windows API), would it be fruitful to cook up a quick exec for this (command-line and free to distribute of course)? Or at least post the proper API calls (i.e. source example) to get the MD5 out of them (assuming those can be done in VBScript - i.e. the source can be adapted)? If so, how should the MD5 be reported?

#8
tomasz86

tomasz86

    www.windows2000.tk

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,510 posts
  • OS:XP Pro x86
  • Country: Country Flag

Well, I don't see any issue in using a FREE (freely redistributable) MD5 calculator and "embed" it in a .script (i.e. creating it on the fly or more simply including it in the "main" download .zip or whatever). :unsure:

How could such an utility be created on the fly?


Another point of interest would be WHY choosing MD5. (if the idea is a check for consistency MD5 might not be needed and a simpler hash like CRC32 might do)

Unfortunately MD5 is a must since I need it mainly (but not only) for creating update.ver files for M$ hotfix installer which requires MD5 hash to verify files.
post-47483-1123010975.png
Unofficial Service Pack 5.2 for MS Windows 2000 <- use this topic if you need help with UURollup, Update Rollup 2 and other unofficial packages

#9
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag

I've found that one in many different places. The problem is that it only works for text strings, not files... and I'm a complete zero when it comes to VBS so I've got no idea how to change / utilise it :(


Me too, but I will tell you from experience in implementing it in other things (and reading that VBScript) that it will work as long as you present the entire data at once to the function. The problem is you really can't do that, so what you have to do is write multiple functions to process a limited buffer based on current state data that you save outside of the function and then finishes up the MD5 once you hit the end of the data. It would be a change of moderate complexity to someone who knows VBScript (I'm sure), but the problem for me is while I have done this in another language, my knowledge of VBScript is zero, so I couldn't say I could write the change there.

#10
tomasz86

tomasz86

    www.windows2000.tk

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,510 posts
  • OS:XP Pro x86
  • Country: Country Flag
I've tested the script which I mentioned in #1 a little bit more. It's very strange... There seems to be a bug in it somewhere because it does work for some files and doesn't work for others.

For example,

1. Empty file 1.txt has MD5 of d41d8cd98f00b204e9800998ecf8427e. The script is able to generate it correctly.

2. Now I add one line "abc" to the file. The calculated MD5 is now wrong.

3. I add a single space after abc ("abc "). Now the calculated MD5 is correct again... :blink:
post-47483-1123010975.png
Unofficial Service Pack 5.2 for MS Windows 2000 <- use this topic if you need help with UURollup, Update Rollup 2 and other unofficial packages

#11
bphlpt

bphlpt

    MSFN Addict

  • Member
  • PipPipPipPipPipPipPip
  • 1,796 posts
  • OS:none specified
  • Country: Country Flag
I know it's another external file, though it is small (only 49,152 bytes), but have you tried using md5sum.exe (Freeware) available here and here, and probably other places, too? [Open up a command window and type md5sum --help for command syntax info]

I also have another very small version of this, only about 2kb, but I can't find a link for it right now. I'd be glad to share it if you like, but I think I remember that it has a problem running on Win2K so didn't think it would be your first choice. Let me know if you want to check it out.

Cheers and Regards

Edited by bphlpt, 31 March 2013 - 12:10 AM.

Posted Image


#12
jaclaz

jaclaz

    The Finder

  • Developer
  • 14,042 posts
  • OS:none specified
  • Country: Country Flag

I know it's another external file, though it is small (only 49,152 bytes),

You must be joking, I pointed to a 28 Kb file which I thought being "huge" :ph34r: .
The mentioned dsfo.exe is around 6 Kb.

The 2 Kb sized one seems like the "right" thing, it would be nice if you could find it, maybe there is a version suitable fro Windows 2000.

jaclaz

#13
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag

1. Empty file 1.txt has MD5 of d41d8cd98f00b204e9800998ecf8427e. The script is able to generate it correctly.
2. Now I add one line "abc" to the file. The calculated MD5 is now wrong.
3. I add a single space after abc ("abc "). Now the calculated MD5 is correct again... :blink:


This is how testing hash functions usually goes. You have to pick out a number of cases of files of different sizes and then test test and retest (and eliminate all potential of garbage, too). From looking at the script in #1 it seems like the way it's written it only works right if files are presented to it that are in multiples of 4 bytes. The MD5Decode function sticks out in this regard.

#14
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag

The 2 Kb sized one seems like the "right" thing, it would be nice if you could find it, maybe there is a version suitable fro Windows 2000.


Probably ASM that calls the Windows API functions that will obtain a MD5 hash. But with storage and memory what it is, why quibble over a handful of bytes? Speaking of which, if you can do those in VBScript that's probably the best course.

#15
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag
FWIW this is what the API calls look like when you use Delphi. Hope they can be adapted to VBScript.

function MD5_File(infile_name: string): string;
// Create digest of file with given Name
const
  bufsize = 65536;
var
  infile: THandle;
  inbuffer: pointer;
  amount_read: longint;
  cbHashDataLen: Integer;
  Digest: TMD5Digest;
  hProv: TCryptProv;
  hHash: TCryptHash;
begin
  GetMem(inbuffer, bufsize);
  infile := CreateFile(PChar(infile_name), GENERIC_READ, FILE_SHARE_READ, nil,
         OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN, 0);
  hHash := nil;
  hProv := 0;
  CryptAcquireContext(hProv, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT);
  CryptCreateHash(hProv, CALG_MD5, nil, 0, hHash);
  try
    ReadFile(infile, inbuffer^, bufsize, amount_read, nil);
    repeat
      CryptHashData(hHash, inbuffer, amount_read, 0);
      ReadFile(infile, inbuffer^, bufsize, amount_read, nil);
    until amount_read = 0;
    cbHashDataLen := 16;
    CryptGetHashParam(hHash, HP_HASHVAL, @Digest, cbHashDataLen, 0);
  finally
    CryptDestroyHash(hhash);
    CryptReleaseContext(hprov, 0);
  end;
  CloseHandle(infile);
  Result := write_hash(@Digest, cbHashDataLen);
  FreeMem(inbuffer);
end;


#16
bphlpt

bphlpt

    MSFN Addict

  • Member
  • PipPipPipPipPipPipPip
  • 1,796 posts
  • OS:none specified
  • Country: Country Flag
OK Here's my copy. It's just the md5sum.exe zipped up.

MD5 of md5sum.zip - 4f71896309906be74fcc7141a042951e

It's a very simplified app. To get the MD5 for the zipped file I just used the command: md5sum md5sum.zip>temp.txt

The contents of temp.txt was then: 4f71896309906be74fcc7141a042951e *md5sum.zip

The only option it has is a recursive option: [-r]

Help is just md5sum /? which gives: Usage: md5sum [-r] filenames

You'll have to try it to see if it works in Win2K. I know it works for XP+ I'll keep looking for a link on the web.

Cheers and Regards

Attached Files


Edited by bphlpt, 31 March 2013 - 03:02 AM.

Posted Image


#17
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag

Probably ASM that calls the Windows API functions that will obtain a MD5 hash. But with storage and memory what it is, why quibble over a handful of bytes? Speaking of which, if you can do those in VBScript that's probably the best course.


Yep, ASM which direct calls the MD5 functions in the API (MD5Final, MD5Init, MD5Update in ADVAPI32.DLL).

#18
bphlpt

bphlpt

    MSFN Addict

  • Member
  • PipPipPipPipPipPipPip
  • 1,796 posts
  • OS:none specified
  • Country: Country Flag
Which means it should be able to be remade to work in Win 2K, doesn't it? Not by me of course, but maybe by someone that knows about such things? Would be most ideal if it would work Win2K+ as I know of at least one other project that would be useful for.

Sorry I still can't find a link where it originally came from, (at least 4 or 5 years ago).

Cheers and Regards

Posted Image


#19
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag

Which means it should be able to be remade to work in Win 2K, doesn't it? Not by me of course, but maybe by someone that knows about such things?


If the API functions aren't there, you'd have to supply them yourself (which isn't *that* hard). Of course that's going to mean the EXE will get bigger, but again it depends on what exactly you're looking for. I don't know if FCIV works in 2K or not, but if it doesn't, like I said above I can always post something that should do MD5 on any OS that'll do 32-bit executables.

#20
allen2

allen2

    Not really Newbie

  • Member
  • PipPipPipPipPipPipPip
  • 1,812 posts
Here it is:
 Dim sDigest
 
 Private Const BITS_TO_A_BYTE = 8
 Private Const BYTES_TO_A_WORD = 4
 Private Const BITS_TO_A_WORD = 32
 
 Private m_lOnBits(30)
 Private m_l2Power(30)
  
     m_lOnBits(0) = CLng(1)
     m_lOnBits(1) = CLng(3)
     m_lOnBits(2) = CLng(7)
     m_lOnBits(3) = CLng(15)
     m_lOnBits(4) = CLng(31)
     m_lOnBits(5) = CLng(63)
     m_lOnBits(6) = CLng(127)
     m_lOnBits(7) = CLng(255)
     m_lOnBits(8) = CLng(511)
     m_lOnBits(9) = CLng(1023)
     m_lOnBits(10) = CLng(2047)
     m_lOnBits(11) = CLng(4095)
     m_lOnBits(12) = CLng(8191)
     m_lOnBits(13) = CLng(16383)
     m_lOnBits(14) = CLng(32767)
     m_lOnBits(15) = CLng(65535)
     m_lOnBits(16) = CLng(131071)
     m_lOnBits(17) = CLng(262143)
     m_lOnBits(18) = CLng(524287)
     m_lOnBits(19) = CLng(1048575)
     m_lOnBits(20) = CLng(2097151)
     m_lOnBits(21) = CLng(4194303)
     m_lOnBits(22) = CLng(8388607)
     m_lOnBits(23) = CLng(16777215)
     m_lOnBits(24) = CLng(33554431)
     m_lOnBits(25) = CLng(67108863)
     m_lOnBits(26) = CLng(134217727)
     m_lOnBits(27) = CLng(268435455)
     m_lOnBits(28) = CLng(536870911)
     m_lOnBits(29) = CLng(1073741823)
     m_lOnBits(30) = CLng(2147483647)
     
     m_l2Power(0) = CLng(1)
     m_l2Power(1) = CLng(2)
     m_l2Power(2) = CLng(4)
     m_l2Power(3) = CLng(8)
     m_l2Power(4) = CLng(16)
     m_l2Power(5) = CLng(32)
     m_l2Power(6) = CLng(64)
     m_l2Power(7) = CLng(128)
     m_l2Power(8) = CLng(256)
     m_l2Power(9) = CLng(512)
     m_l2Power(10) = CLng(1024)
     m_l2Power(11) = CLng(2048)
     m_l2Power(12) = CLng(4096)
     m_l2Power(13) = CLng(8192)
     m_l2Power(14) = CLng(16384)
     m_l2Power(15) = CLng(32768)
     m_l2Power(16) = CLng(65536)
     m_l2Power(17) = CLng(131072)
     m_l2Power(18) = CLng(262144)
     m_l2Power(19) = CLng(524288)
     m_l2Power(20) = CLng(1048576)
     m_l2Power(21) = CLng(2097152)
     m_l2Power(22) = CLng(4194304)
     m_l2Power(23) = CLng(8388608)
     m_l2Power(24) = CLng(16777216)
     m_l2Power(25) = CLng(33554432)
     m_l2Power(26) = CLng(67108864)
     m_l2Power(27) = CLng(134217728)
     m_l2Power(28) = CLng(268435456)
     m_l2Power(29) = CLng(536870912)
     m_l2Power(30) = CLng(1073741824)
 
 
 
 
 
 
 
 Private Function LShift(lValue, iShiftBits)
     If iShiftBits = 0 Then
         LShift = lValue
         Exit Function
     ElseIf iShiftBits = 31 Then
         If lValue And 1 Then
             LShift = &H80000000
         Else
             LShift = 0
         End If
         Exit Function
     ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
         Err.Raise 6
     End If
 
     If (lValue And m_l2Power(31 - iShiftBits)) Then
         LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
     Else
         LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
     End If
 End Function
 
 Private Function RShift(lValue, iShiftBits)
     If iShiftBits = 0 Then
         RShift = lValue
         Exit Function
     ElseIf iShiftBits = 31 Then
         If lValue And &H80000000 Then
             RShift = 1
         Else
             RShift = 0
         End If
         Exit Function
     ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
         Err.Raise 6
     End If
     
     RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
 
     If (lValue And &H80000000) Then
         RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
     End If
 End Function
 
 Private Function RotateLeft(lValue, iShiftBits)
     RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
 End Function
 
 Private Function AddUnsigned(lX, lY)
     Dim lX4
     Dim lY4
     Dim lX8
     Dim lY8
     Dim lResult
  
     lX8 = lX And &H80000000
     lY8 = lY And &H80000000
     lX4 = lX And &H40000000
     lY4 = lY And &H40000000
  
     lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
  
     If lX4 And lY4 Then
         lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
     ElseIf lX4 Or lY4 Then
         If lResult And &H40000000 Then
             lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
         Else
             lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
         End If
     Else
         lResult = lResult Xor lX8 Xor lY8
     End If
  
     AddUnsigned = lResult
 End Function
 
 Private Function F(x, y, z)
     F = (x And y) Or ((Not x) And z)
 End Function
 
 Private Function G(x, y, z)
     G = (x And z) Or (y And (Not z))
 End Function
 
 Private Function H(x, y, z)
     H = (x Xor y Xor z)
 End Function
 
 Private Function I(x, y, z)
     I = (y Xor (x Or (Not z)))
 End Function
 
 Private Sub FF(a, b, c, d, x, s, ac)
     a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac))
     a = RotateLeft(a, s)
     a = AddUnsigned(a, <img src='http://www.msfn.org/board/public/style_emoticons/<#EMO_DIR#>/cool.gif' class='bbc_emoticon' alt='B)' />
 End Sub
 
 Private Sub GG(a, b, c, d, x, s, ac)
     a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac))
     a = RotateLeft(a, s)
     a = AddUnsigned(a, <img src='http://www.msfn.org/board/public/style_emoticons/<#EMO_DIR#>/cool.gif' class='bbc_emoticon' alt='B)' />
 End Sub
 
 Private Sub HH(a, b, c, d, x, s, ac)
     a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac))
     a = RotateLeft(a, s)
     a = AddUnsigned(a, <img src='http://www.msfn.org/board/public/style_emoticons/<#EMO_DIR#>/cool.gif' class='bbc_emoticon' alt='B)' />
 End Sub
 
 Private Sub II(a, b, c, d, x, s, ac)
     a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac))
     a = RotateLeft(a, s)
     a = AddUnsigned(a, <img src='http://www.msfn.org/board/public/style_emoticons/<#EMO_DIR#>/cool.gif' class='bbc_emoticon' alt='B)' />
 End Sub
 
 Private Function ConvertToWordArray(sMessage)
     Dim lMessageLength
     Dim lNumberOfWords
     Dim lWordArray()
     Dim lBytePosition
     Dim lByteCount
     Dim lWordCount
     
     Const MODULUS_BITS = 512
     Const CONGRUENT_BITS = 448
     
     lMessageLength = Len(sMessage)
     
     lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
     ReDim lWordArray(lNumberOfWords - 1)
     
     lBytePosition = 0
     lByteCount = 0
     Do Until lByteCount >= lMessageLength
         lWordCount = lByteCount \ BYTES_TO_A_WORD
         lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
         lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
         lByteCount = lByteCount + 1
     Loop
 
     lWordCount = lByteCount \ BYTES_TO_A_WORD
     lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
 
     lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
 
     lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
     lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
     
     ConvertToWordArray = lWordArray
 End Function
 
 Private Function WordToHex(lValue)
     Dim lByte
     Dim lCount
     
     For lCount = 0 To 3
         lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
         WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
     Next
 End Function
 
 Public Function MD5(sMessage)
     Dim x
     Dim k
     Dim AA
     Dim BB
     Dim CC
     Dim DD
     Dim a
     Dim b
     Dim c
     Dim d
     
     Const S11 = 7
     Const S12 = 12
     Const S13 = 17
     Const S14 = 22
     Const S21 = 5
     Const S22 = 9
     Const S23 = 14
     Const S24 = 20
     Const S31 = 4
     Const S32 = 11
     Const S33 = 16
     Const S34 = 23
     Const S41 = 6
     Const S42 = 10
     Const S43 = 15
     Const S44 = 21
 
     x = ConvertToWordArray(sMessage)
     
     a = &H67452301
     b = &HEFCDAB89
     c = &H98BADCFE
     d = &H10325476
 
     For k = 0 To UBound(x) Step 16
         AA = a
         BB = b
         CC = c
         DD = d
     
         FF a, b, c, d, x(k + 0), S11, &HD76AA478
         FF d, a, b, c, x(k + 1), S12, &HE8C7B756
         FF c, d, a, b, x(k + 2), S13, &H242070DB
         FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
         FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
         FF d, a, b, c, x(k + 5), S12, &H4787C62A
         FF c, d, a, b, x(k + 6), S13, &HA8304613
         FF b, c, d, a, x(k + 7), S14, &HFD469501
         FF a, b, c, d, x(k + 8), S11, &H698098D8
         FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
         FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
         FF b, c, d, a, x(k + 11), S14, &H895CD7BE
         FF a, b, c, d, x(k + 12), S11, &H6B901122
         FF d, a, b, c, x(k + 13), S12, &HFD987193
         FF c, d, a, b, x(k + 14), S13, &HA679438E
         FF b, c, d, a, x(k + 15), S14, &H49B40821
     
         GG a, b, c, d, x(k + 1), S21, &HF61E2562
         GG d, a, b, c, x(k + 6), S22, &HC040B340
         GG c, d, a, b, x(k + 11), S23, &H265E5A51
         GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
         GG a, b, c, d, x(k + 5), S21, &HD62F105D
         GG d, a, b, c, x(k + 10), S22, &H2441453
         GG c, d, a, b, x(k + 15), S23, &HD8A1E681
         GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
         GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
         GG d, a, b, c, x(k + 14), S22, &HC33707D6
         GG c, d, a, b, x(k + 3), S23, &HF4D50D87
         GG b, c, d, a, x(k + 8), S24, &H455A14ED
         GG a, b, c, d, x(k + 13), S21, &HA9E3E905
         GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
         GG c, d, a, b, x(k + 7), S23, &H676F02D9
         GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
             
         HH a, b, c, d, x(k + 5), S31, &HFFFA3942
         HH d, a, b, c, x(k + 8), S32, &H8771F681
         HH c, d, a, b, x(k + 11), S33, &H6D9D6122
         HH b, c, d, a, x(k + 14), S34, &HFDE5380C
         HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
         HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
         HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
         HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
         HH a, b, c, d, x(k + 13), S31, &H289B7EC6
         HH d, a, b, c, x(k + 0), S32, &HEAA127FA
         HH c, d, a, b, x(k + 3), S33, &HD4EF3085
         HH b, c, d, a, x(k + 6), S34, &H4881D05
         HH a, b, c, d, x(k + 9), S31, &HD9D4D039
         HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
         HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
         HH b, c, d, a, x(k + 2), S34, &HC4AC5665
     
         II a, b, c, d, x(k + 0), S41, &HF4292244
         II d, a, b, c, x(k + 7), S42, &H432AFF97
         II c, d, a, b, x(k + 14), S43, &HAB9423A7
         II b, c, d, a, x(k + 5), S44, &HFC93A039
         II a, b, c, d, x(k + 12), S41, &H655B59C3
         II d, a, b, c, x(k + 3), S42, &H8F0CCC92
         II c, d, a, b, x(k + 10), S43, &HFFEFF47D
         II b, c, d, a, x(k + 1), S44, &H85845DD1
         II a, b, c, d, x(k + 8), S41, &H6FA87E4F
         II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
         II c, d, a, b, x(k + 6), S43, &HA3014314
         II b, c, d, a, x(k + 13), S44, &H4E0811A1
         II a, b, c, d, x(k + 4), S41, &HF7537E82
         II d, a, b, c, x(k + 11), S42, &HBD3AF235
         II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
         II b, c, d, a, x(k + 9), S44, &HEB86D391
     
         a = AddUnsigned(a, AA)
         b = AddUnsigned(b, BB)
         c = AddUnsigned(c, CC)
         d = AddUnsigned(d, DD)
     Next
     
     MD5 = LCase(WordToHex(a) & WordToHex(<img src='http://www.msfn.org/board/public/style_emoticons/<#EMO_DIR#>/cool.gif' class='bbc_emoticon' alt='B)' /> & WordToHex(c) & WordToHex(d))
 End Function
 
if WScript.Arguments.Count = 0 then                                  
    WScript.Echo "Missing parameters"                                
else 
	Const ForReading = 1
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set ts = fso.OpenTextFile(Wscript.Arguments.Item(0), ForReading)
	s = ts.ReadAll
	MyMD5=MD5(s)   
	ts.Close
	wscript.echo Wscript.Arguments.Item(0) & "    " & MyMD5
end if                                                               

But like any vbs code it is very slow and doesn't give "true" md5 for binary files (using adodb.stream might solve this).

#21
tomasz86

tomasz86

    www.windows2000.tk

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,510 posts
  • OS:XP Pro x86
  • Country: Country Flag
@bphlpt Unfortunately, the program doesn't work in stock Windows 2000 (md5sum.exe is not a valid Win32 application). It does, of course, work in my modified system but it would be good to have something compatible with the original one too.


@Glenn9999 FCIV supports Windows 2000 and above.


@allen2 Thank you :) but as you've said, it doesn't generate correct MD5 hashes for binary files (just tested on a DLL). It does work for text files though.
post-47483-1123010975.png
Unofficial Service Pack 5.2 for MS Windows 2000 <- use this topic if you need help with UURollup, Update Rollup 2 and other unofficial packages

#22
Geej

Geej

    Senior Member

  • Member
  • PipPipPipPip
  • 635 posts
  • OS:XP Pro x86
  • Country: Country Flag
Here is another one (MD5) that works in W2K and is redistributable (according to it's Software License Agreement). 14kb in size

HTH

#23
Glenn9999

Glenn9999

    Senior Member

  • Member
  • PipPipPipPip
  • 660 posts
  • OS:Windows 8 x64
  • Country: Country Flag

@Glenn9999 FCIV supports Windows 2000 and above.

@allen2 Thank you :) but as you've said, it doesn't generate correct MD5 hashes for binary files (just tested on a DLL). It does work for text files though.


Okay, probably not much to worry about then if there *is* an option. As for the script, probably because it's assuming a string is getting passed somewhere and adding characters. Hard to know though.

#24
jaclaz

jaclaz

    The Finder

  • Developer
  • 14,042 posts
  • OS:none specified
  • Country: Country Flag
See if this works:
http://md5sum.codeplex.com/

Executable is 7168 bytes.

Or this one:
http://keir.net/md5file.html
6656 bytes.

jaclaz

Edited by jaclaz, 31 March 2013 - 10:54 AM.


#25
allen2

allen2

    Not really Newbie

  • Member
  • PipPipPipPipPipPipPip
  • 1,812 posts

See if this works:
http://md5sum.codeplex.com/

Executable is 7168 bytes.

This one was made in C# so it rely on dot net to run so i don't think it meets tomasz86 requirements.
The other one seems to work properly.




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users



How to remove advertisement from MSFN