=====Versie 1=====

<file vb CreateMD5FromString.vbs>
'CreateMD5FromString.vbs
'Voor het maken van een MD5 sum van een string.
'Vereist installatie van de MD5 Component ActiveX van XStandard
'http://www.xstandard.com/en/documentation/xmd5/
'20100609, v1.

Set objParam = WScript.Arguments

If objParam.Count = 0 Then

	WScript.Echo "Geef aub één of meerdere parameters op (gescheiden door spaties)."
	
	WScript.Quit

End If

Set objMD5 = CreateObject("XStandard.MD5")

intNrOfParameters = objParam.Count

For intNrOfParameters = 0 To objParam.Count - 1 Step 1

	WScript.Echo objMD5.GetCheckSumFromString(objParam(intNrOfParameters))

Next

Set objMD5 = Nothing
Set objParam = Nothing

</file>