文章关键字 ‘sha1函数’

用VBS实现PHP的SHA1函数

2010年09月18日，星期六

有了这个，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

标签：, , ,
发布在 程序设计 | 没有评论 »

用JavaScript实现PHP的sha1函数

2010年06月1日，星期二

在写JavaScript（严格的说应该是JScript）版的六维空间作弊工具时要用到sha1函数，而网上Google到的大部分只实现了返回字符串的形式，而我需要的是返回二进制形式的，没办法，还是自己写吧。还是PHP好，直接提供了一个sha1函数，不知道以后的JavaScript会不会提供。代码太长就不贴出来了，自己下载吧。参数和PHP的sha1函数一样，不会用的话查看PHP手册。sourceforge上面有一个jsSHA库，但是根据我的测试对中文的加密和PHP的sha1函数不一致，估计是写的时候没有考虑的JavaScript内部对字符串是UTF-16编码。

在线演示（注意在博客首页无法演示)

字符串：
SHA1值：

下载地址：[download id=8]

标签：, , , ,
发布在 程序设计 | 一条评论 »