C++ 转 delphi，10行！谢谢先！

Question

char* hash_password_v1(const unsigned char* b0 , int b0len, const unsigned char* password , int psdlen) 
{
unsigned char* dst = (unsigned char*)malloc(b0len + psdlen + 1);
unsigned char tmp[20];
char* res;
memset(tmp , 0 , sizeof(tmp));
memset(dst , 0 , b0len + psdlen + 1);
memcpy(dst , b0 , b0len);
memcpy(dst + b0len , password , psdlen);         tmp=..........//这行不管   free(dst);
res = hextostr(tmp , 20);
return res;
}

Answer 1

function hash_password_v1(b0: pansichar; b0len: integer; password: pansichar; psdlen: integer): pansichar;
var
  dst,res,hex: pansichar;
  tmp: array[0..19] of char;
begin
    Getmem(dst,b0len + psdlen + 1);
    fillchar(tmp,sizeof(tmp),0);
    fillchar(dst,b0len + psdlen + 1,0);
    move(b0^,dst^, b0len);    
    move(password^,Pointer(londword(dst)+b0len)^,psdlen);
         tmp=..........//这行不管  
   
    FreeMem(dst,strlen(dst)+1);        
    Getmem(hex,21);
    fillchar(hex,21,0);
    move(tmp^,hex^,20);
    Getmem(res,21);
    fillchar(hex,21,0);
    BintoHex(hex,res,20);
    return res; //注意返回内存记得释放end;

Answer 2

function hash_password_v1(b0: pansichar; b0len: integer; password: pansichar; psdlen: integer): pansichar;
var
  dst,res,hex: pansichar;
  tmp: array[0..19] of char;
begin
    Getmem(dst,b0len + psdlen + 1);
    fillchar(tmp,sizeof(tmp),0);
    fillchar(dst,b0len + psdlen + 1,0);
    move(b0^,dst^, b0len);    
    move(password^,Pointer(longword(dst)+b0len)^,psdlen);
//         tmp=..........//这行不管    FreeMem(dst,strlen(dst)+1);
    Getmem(hex,21);
    fillchar(hex,21,0);
    move(tmp,hex^,20);
    Getmem(res,21);
    fillchar(hex,21,0);
    BintoHex(hex,res,20);
    result := res; //注意返回内存记得释放end;