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

  1. function CutOff(const AFileName: String): Boolean;
  2. var
  3.   F, F1: TFileStream;
  4.   P:     Int64;
  5. begin
  6.   Result := False;
  7.   F      := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  8.   F1     := TFileStream.Create(AFileName + '~', fmCreate);
  9.   try
  10.     P := F.Seek(33280, soFromBeginning);
  11.     F1.CopyFrom(F, F.Size - P)
  12.   finally
  13.     F.Free;
  14.     F1.Free;
  15.   end;
  16.   if FileExists(AFileName + '~') then
  17.   begin
  18.     if DeleteFile(AFileName) then
  19.         Result := MoveFile(PChar(AFileName + '~'), PChar(AFileName));
  20.   end;
  21. 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 908 korisnika na forumu :: 40 registrovanih, 2 sakrivenih i 866 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Aleksej, ALEXV, ArmyBoss, Azzo, bigbear, CikaKURE, Coficab, debeli, dendrit86, Dorcolac, gagidjuric, hvost, jalos, Koča, kutija11, ladro, Lazarus, luka1978, MountAndBlade, mrav pesadinac, Natuzzi, novator, Orijen, Plavi Jadran, precan, procesor, raketaš, ruma, S.Palestinac, saki80, samojednoimeznam, Sarmat, sickmouse, srpskasparta, stalker22, Szigetwar, Trpe Grozni, vaci, zlaya011, Zorge