用VBS实现PHP的SHA1函数

有了这个，VBS版的六维空间作弊工具就可以完成了。

依然是CAPICOM。

Function sha1(str, raw_output)
	Dim HashedData, Utility
	Set HashedData = CreateObject("CAPICOM.HashedData")
	Set Utility = CreateObject("CAPICOM.Utilities")
	HashedData.Algorithm = 0
	HashedData.Hash str	
	If raw_output Then
		sha1 = Utility.HexToBinary(HashedData.Value)
	Else
		sha1 = HashedData.Value
	End If
End Function

随机文章:

1. 再谈CreateObject函数，VBS到底能调用哪些对象？
2. 那些长的像UTF-8的GBK编码
3. jQuery图片延迟加载插件——Lazy Load
4. VBS列出进程加载的DLL的完整路径
5. 邪恶的eval和new Function

这篇文章发布于 2010年09月18日，星期六，16:20，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。