uses
IdHMACSHA1,,IDHASHSHA,IDHMAC,IDGLOBAL,IdSSLOpenSSL,
IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL;
（procedure TForm1.Button2Click(Sender: TObject);
var
hmac: TIdHMACSHA256;
hash: TIdBytes;
ss:string;
begin
LoadOpenSSLLibrary;
// if NOT TIDHASHSHA256.IsAvailable then
//raise Exception.Create('SHA256 HASING IS NOT AVAILABEL!');
hmac := TIdHMACSHA256.Create;
TRY
hmac.Key := IndyTextEncoding_UTF8.GetBytes(EDIT3.Text);
hash := hmac.HashValue(IndyTextEncoding_UTF8.GetBytes(EDIT7.Text));
EDIT6.Text:= ToHex(hash);
finally
hmac.Free;
end;
END;）
uj5u.com熱心網友回復：
正確執行的呀，沒有錯誤呢。你進入除錯模式看看報錯的代碼行。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
能把您寫的壓縮包給我么？就是重啟電腦以后就報了這個錯誤，很是郁悶！QQ:467415082轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/255004.html
標籤：語言基礎/算法/系統設計
上一篇：C語言