怎么用fuzzy hash加密一个文本

求代码程序 利用fuzzy hash 加密文本 谢啦~！
找不到fuzzy hash 函数的头文件 里面的函数也不知道如何调用？

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim mdsource,mdresult Dim fso,stream set fso=Server.CreateObject("Scripting.FileSystemObject") mdsource=request.Form("mdsource") if request.Form("submit")<>"" then if mdsource<>"" then mdresult=md5(mdsource,32) set stream=fso.CreateTextFile(server.MapPath("md5.txt"),true) stream.write mdresult set stream=nothing response.Write "写入成功:"&mdresult else response.Write "请输入一个值" end if end if set fso=nothing %> http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> http://www.w3.org/1999/xhtml">

http://blog.csdn.net/mznewfacer/article/details/7642305