Eine BigInt Klasse + RSA-Beispiel

[himitsu]

ich auch, ich auch ._.

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;
  end;
  Inherited Free;
end;

Inherited Free; oderauch nur Inherited; (der Name kann hier weggelassen werden) muß unbedingt aufgerufen werden, also wenn du schon eine IF-Abrfage machst, dann muß dieses außerhalb stehen

Und wie mein Vorgänger schon sagte ... der Rest wird eh freigegeben (aber nur, wenn INHERITED aufgerufen wird)

Delphi-Quellcode:

procedure TBigInt.Free;
begin
  ZeroMemory(@FDigits[0], DigitCount*4); // object might handle prime factors for
  Inherited Free;                        // crypto keys - overwrite memory with zeros
end;