Eine BigInt Klasse + RSA-Beispiel

[shmia]

Falsch!!!

Delphi-Quellcode:

procedure TBigInt.Free;
begin
  if (Assigned(Self)) then
  begin
    ZeroMemory(@FDigits[0], DigitCount*4); // object might handle prime factors for
    SetLength(FDigits, 0);                 // crypto keys - overwrite memory with zeros
    FNegative := False;
    Inherited Free;
  end;
end;

Richtig:

Delphi-Quellcode:

destructor TBigInt.Destroy;
begin
   ZeroMemory(@FDigits[0], DigitCount*4); // object might handle prime factors for
                                      // crypto keys - overwrite memory with zeros
// SetLength(FDigits, 0); // Delphi destroys dyn. arrays
   inherited;
end;