Tag: sha1

Excel VBA SHA1函数

我运行这个模块，但它不断给我一个错误，debugging把我发送到这一行： Set oSHA1 = CreateObject("System.Security.Cryptography.SHA1Managed") 运行时错误'-2146233079（80131509'：自动化错误） 我添加了对mscorlibtypes库的引用，但仍然不起作用。 Public Function SHA1(sIn As String, Optional bB64 As Boolean = 0) As String 'Set a reference to mscorlib 4.0 64-bit 'Test with empty string input: '40 Hex: da39a3ee5e6…etc '28 Base-64: 2jmj7l5rSw0yVb…etc Dim oT As Object, oSHA1 As Object Dim TextToHash() As Byte Dim bytes() As Byte Set oT […]

Excel VBA的密码散列函数

我需要一个用Excel VBA编写的函数，它将使用SHA-1等标准algorithm对密码进行哈希处理。 一些简单的界面，如： Public Function CreateHash(Value As String) As String … End Function 该function需要在安装了Excel 2003的XP工作站上工作，否则不能使用第三方组件。 它可以引用和使用XP提供的DLL，比如CryptoAPI。 有谁知道一个样本来实现这个散列函数？