Baratanje binarnim fajlovima

Baratanje binarnim fajlovima

offline
  • l0s7 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2009
  • Poruke: 11

Kako bih mogao da uradim dezinfekciju nekih fajlova uz pomoc delfija?

Npr, hteo bih da uz pomoc delphija otvorim neki binarni fajl i da pretrazim da li sadrzi signature npr 'qwerty123', ukoliko ga ima, onda da iz tog fajla isece prvih 32,5 KB (33280 bytes) (odnosno velicinu tog virusa).

Molio bih svakoga dobre volje da mi da neki primer kako da izvedem ovo... GUZ - Glavom U Zid



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • rejn 
  • Novi MyCity građanin
  • Pridružio: 02 Okt 2008
  • Poruke: 16

  function CutOff(const AFileName: String): Boolean;   var     F, F1: TFileStream;     P:     Int64;   begin     Result := False;     F      := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);     F1     := TFileStream.Create(AFileName + '~', fmCreate);     try       P := F.Seek(33280, soFromBeginning);       F1.CopyFrom(F, F.Size - P)     finally       F.Free;       F1.Free;     end;     if FileExists(AFileName + '~') then     begin       if DeleteFile(AFileName) then           Result := MoveFile(PChar(AFileName + '~'), PChar(AFileName));     end;   end;



offline
  • l0s7 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2009
  • Poruke: 11

To je to! Hvala ti puno

Ko je trenutno na forumu
 

Ukupno su 403 korisnika na forumu :: 5 registrovanih, 2 sakrivenih i 396 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: ALBION101, havoc995, ILGromovnik, Megapurpletv, Snorks