MyCity » Pascal -> Delphi » Baratanje binarnim fajlovima

Baratanje binarnim fajlovima

Napisano na dan: 18.9.2009

Baratanje binarnim fajlovima
Sledeća strana Pagination

Idi na vrh

Poslao: 18 Sep 2009 23:46
Idi na vrh
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.
Poslao: 19 Sep 2009 18:52
Idi na vrh
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;



Poslao: 19 Sep 2009 19:24
Idi na vrh
offline
  • l0s7 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2009
  • Poruke: 11

To je to! Hvala ti puno

MyCity » Pascal -> Delphi » Baratanje binarnim fajlovima

Ko je trenutno na forumu
 

Ukupno su 1205 korisnika na forumu :: 43 registrovanih, 7 sakrivenih i 1155 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: advokat84, aleksandar11332, bakovaca, Bojan198527, Bojcca, carinko, Comisa, DankoZemun, davorb, dejno, Dekster, DezurniOperativni, Djota1, Dusko_Dugousko, dzoni19, Giskard, Great White, HogarStrashni, Igritelj, Imperator_Aleksandr_lll, IQ116, Joint Chief, JOntra, Jozo74, kolle.the.kid, kybonacci, Mrav Obrad, Panter, peti, proka89, Pururin, ruma, S2M, sasics, saturn70, trutcina, ujke, Vladimir O., vlajkox, vranjanac29, vrgudinac, vuksa72, Zmaj Tolak