16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button2Click(Sender: TObject);
var
vector: Pointer;
fileStream: TMemoryStream;
size : Integer;
begin
fileStream = TMemoryStream.create;
try
fileStream.LoadFromFile('C:\1.pse');
size := fileStream.size;
CipherManager1.CipherClass := TCipherClass(TCipher_3TDES );
if not CipherManager1.CipherClass.SelfTest then
MessageBox(Handle, 'Self Test failed', 'Cipher Self Test', mb_Ok);
vector := Pchar('00000000000000000000000000000000000000000000000000000000');
CipherManager1.InitKey( 'KKKKKKKKKKKKKKKKKKKKKKKKKK',vector );
CipherManager1.DecodeBuffer(fileStream.memory^, fileStream.memory^, size ); //此句报非法内存访问
finally
filestream.free;
end;
end;