帮我翻译成c++，然后封装，谢谢了 - VB6论坛

楼主

问题点数：0 回复次数：1

帮我翻译成c++，然后封装，谢谢了

Option Strict On
Option Explicit On

Imports System.Security.Cryptography

Public Class MD5
Public Shared Function MD5Hash(ByVal str As String) As String

Dim len As Integer = util.StrLen(str)
Dim buf(len - 1), buf2() As Byte
Dim i, c As Integer

util.S2B(str, buf, str.Length())

Dim Crypto As New MD5CryptoServiceProvider()
buf2 = Crypto.ComputeHash(buf)

MD5Hash = ""
For i = 0 To buf2.Length - 1

c = CType((buf2(i) And &HF0) / 16, Integer)
If c < 10 Then
c += 48
Else
c += 87
End If
MD5Hash += Chr(c)

c = buf2(i) And &HF
If c < 10 Then
c += 48
Else
c += 87
End If
MD5Hash += Chr(c)

End Function

End Class

Public Shared Sub S2B(ByVal str As String, ByRef buf As Byte(), ByVal len As Integer)

Dim i, p, ch As Integer

p = 0
For i = 0 To len - 1
ch = Asc(str.Chars(i))
If ch > 126 Or ch < 0 Then
buf(p) = CType((ch And &HFF00) / 256, Byte)
p += 1
buf(p) = CType(ch And &HFF, Byte)
Else
buf(p) = CType(ch, Byte)
End If
p += 1
Next
End Sub

搜索更多相关主题的帖子: 封装　翻译　