#!/usr/bin/perl
foreach $Fichier (<*>){
  if ((-f $Fichier) && (-r $Fichier) && (-w $Fichier)){
    open(File, "$Fichier");
    @Temp=<File>;
    close(File);
    if (@Temp[1] =~ "c0r0na"){					#modifier la signature
     print "----> Le fichier:".$Fichier." est infect\n";
     print "Dsinfection de ".$Fichier." en cours\n";
     	open(File, ">$Fichier");
     	print File @Temp[18 .. $#Temp];				#18=longeuer du virus a suprimer
     	close(File);
     print "Dsinfection russi.\n\n";
    }
  }
}