谁能帮我改写一个用VB写的函数

Question

Private Declare Sub MDStringFix Lib "aamd532.dll" (ByVal f As String, ByVal t As Long, ByVal r As String)Public Function MD5String(p As String) As String
' compute MD5 digest on a given string, returning the result
    Dim r As String * 32, t As Long
    r = Space(32)
    t = Len(p)
    MDStringFix p, t, r
    MD5String = r
End Function请帮我用vc 改写一下
如果运行成功，马上散分
非常感谢

Answer 1

你这个函数是用来加密的吧 md5消息摘要加密.CString MD5String(CString & p) // (char* p)
{
  char r[32];
  r = '\0';
  long t = p.GetLength(); // long t = strlen(p);
  MDStringFix(p,t,r);
  return r;
}你看看

Answer 2

靠 我弄错了因为你返回了一个定义在函数内的局部变量
大错！！等中午我再给你看看。CString MD5String(CString & p) // (char* p)
{
  char r[32];
  r = '\0';
  long t = p.GetLength(); // long t = strlen(p);
  MDStringFix(p,t,r);
  p = r;
  return true;
}

Answer 3

问题已经解决，我下载了一个MD5算法的类
很奇怪，我按照VB的改后调用出现一个ESP没有保存的错误不过，谢谢各位