<%

Set oMD5 = CreateObject("MD5.WSC")

Texto = "Texto para gerar o Hash MD5"

response.write oMD5.calcMD5(Texto)

Set oMD5 = Nothing

%>