标题: 用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
赞赏
微信赞赏支付宝赞赏
随机文章: