熟悉VB的进来看下

[greennetboy]

帮忙实现一个同下列代码同样功能的vb 6 函数，不是vb.net
public string EncryptPassword(string password)
{
UnicodeEncoding encoding = new UnicodeEncoding();
byte[] hashBytes = encoding.GetBytes(password);
//compute SHA-1 hash.
SHA1 sha1 = new SHA1CryptoServiceProvider();
byte[] cryptPassword = sha1.ComputeHash(hashBytes);
return Convert.ToBase64String(cryptPassword);
}
多谢，对vb不熟悉，懂vb的帮忙看下

[zhongwanli]

早就不记得了。

只能帮顶了。

[zhangyonghua1985]

只能帮顶了。

[None465465535]

Public Function EncryptPassword(ByVal password As String) As String
Dim encoding As New UnicodeEncoding
Dim hashBytes() As Byte = encoding.GetBytes(password)
Dim sha1 As SHA1 = New SHA1CryptoServiceProvider()
Dim cryptPassword() As Byte = sha1.ComputeHash(hashBytes)
Return Convert.ToBase64String(cryptPassword)
End Function

[vefo]

早就不记得了。
只能帮顶了。
.Net dll 注册为Com组件
再用vb调用行不

[boblaw]

这个要直接用vb6实现恐怕不简单,要知道UnicodeEncoding,SHA1CryptoServiceProvider, Convert这些都是.net类库中才有的,vb6要实现就够晕了,呵.
如果允许的话,还是按楼上说的,.Net dll 注册为Com组件
不过,这样的话,客户机也得装.net framework

[webwalker]

对VB6不熟悉，.NET中是集成了的，Win32的程序要做到，好像都不容易

[zeroes2021]

5楼说的对，支持！！

[greennetboy]

C#写的com组件的方式已经可以了，不过需要安.net framework，比较麻烦