用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. 用EnumSystemCodePages函数枚举系统代码页
  2. VBS获取硬件信息
  3. 未能正确加载“Microsoft.VisualStudio.Editor.Implementation.EditorPackage”包
  4. 为.VBS和.JS文件添加右键以管理员运行菜单
  5. ASCII Assembly代码分析之in.com

留下回复