我從 http://www.clevercomponents.com/articles/article024/passwordhash.asp 找到一個加密程式, 但想將傳入的astring 及傳出的 value 轉為 byte array(因為string 會導致 wrong result). 請教各大大應如何改寫呢? (藍色字原來的code)    

function hash(AString: string): string;
var
  context: HCRYPTPROV;
  hash: HCRYPTHASH;
  data: ^ShortInt; //data: PByte;  
  hashSize, dwordSize: DWORD;
begin
  if not CryptAcquireContext(@context, nil, nil, PROV_RSA_FULL, 0) then
  begin
    if not CryptAcquireContext(@context, nil, nil, PROV_RSA_FULL, CRYPT_NEWKEYSET) then
    raise Exception.CreateFmt('CryptAcquireContext error %d', [GetLastError()]);
  end;      try
    if not CryptCreateHash(context, CALG_SHA, 0, 0, @hash) then
       raise Exception.CreateFmt('CryptCreateHash error %d', [GetLastError()]);        if not CryptHashData(hash, Pointer(APassword), Length(APassword), 0) then
       raise Exception.CreateFmt('CryptHashData error %d', [GetLastError()]);        data := nil;
    try
      dwordSize := SizeOf(DWORD);
      if not CryptGetHashParam(hash, HP_HASHSIZE, @hashSize, @dwordSize, 0) then
        raise Exception.CreateFmt('CryptGetHashParam error %d', [GetLastError()]);          GetMem(data, hashSize);          //if not CryptGetHashParam(hash, HP_HASHVAL, data, @hashSize, 0) then 
      if not CryptGetHashParam(hash, HP_HASHVAL, PByte(data), @hashSize, 0) then
        raise Exception.CreateFmt('CryptGetHashParam error %d', [GetLastError()]);           不知如何改寫 
      SetLength(Result, hashSize);
       >        >    ---

        

參考這篇看看: http://groups.google.com.tw/group/borland.public.delphi.objectpascal/browse_thread/thread/a250d63f1c88188b/10ded876c20fa306?q=string + PByte + Move + delphi&rnum=1&hl=zh-TW#10ded876c20fa306 -- hagar.