asp

<%
md5("Hello World")
%>

<%
function md5(str)
  md5 = bytesToHex(md5hashBytes(stringToUTFBytes(str)))
end function

function stringToUTFBytes(aString)
    dim UTF8 : set UTF8 = Server.CreateObject("System.Text.UTF8Encoding")
    stringToUTFBytes = UTF8.GetBytes_4(aString)
end function

function md5hashBytes(aBytes)
    dim MD5 : set MD5 = Server.CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")

    MD5.Initialize()
    
    md5hashBytes = MD5.ComputeHash_2((aBytes))
end function

function bytesToHex(aBytes)
    dim hexStr, x
    for x = 1 to lenb(aBytes)
        hexStr = hex(ascb(midb((aBytes), x, 1)))
        if len(hexStr) = 1 then hexStr = "0" & hexStr
        bytesToHex = bytesToHex & hexStr
    next
end function
%>