用VBS实现PHP的SHA1函数

标签： , , ,

标题: 用VBS实现PHP的SHA1函数
作者: Demon
链接: https://demon.tw/programming/vbs-php-sha1.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

有了这个，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. 用VBS实现PHP的md5_file函数
  2. 用VBS实现PHP的sha1_file函数
  3. 在64位系统中使用CAPICOM
  4. VBS调用CAPICOM对象实现SHA1&MD5加密
  5. 用JavaScript实现PHP的sha1函数

随机文章:

  1. IsTextUnicode函数
  2. VBS实现Unicode(UTF-16)转UTF-8
  3. VBS基础教程第三篇
  4. 魔兽无法全屏的解决方法
  5. VB6拾遗：调用C函数（__cdecl调用约定）

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

留下回复