Virus detector

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 002 fois - Téléchargée 26 fois

Contenu du snippet

Je la refais? regardez le titre ^^ :)

Source / Exemple :


Alias sf2 { /virus }
Alias virus { /dialog -m detectvirus detectvirus }
Dialog detectvirus { 
  Title "¤ Virus Detect0r v0.1 /virus ¤"
  Size -1 -1 125 150
  Option dbu
  Icon images/security.ico,0
  Button "Fermer",999,42 137 40 10,ok
  Tab "Detect0r",1,2 2 121 130
  Tab "Configuration",2
  Edit "",4,5 20 115 95,multi,vsbar,read, tab 1
  Button "Scanner",5,42 120 40 10, tab 1
  Check "Loger",6,10 62 22 10,tab 2
  Edit "",7,35 62 60 10,autohs,tab 2
  Button "...",8,100 62 15 10,tab 2
  Box "Log",9,5 50 115 30,tab 2
  Box "Répertoire a scanner",10,5 20 115 30,tab 2
  Edit "",11,10 32 60 10,autohs,tab 2
  Button "Parcourir",12,75 32 40 10,tab 2
  Box "Options diverses",13,5 80 115 50,tab 2
  Check "Chercher les extension double..",14,10 92 80 10,tab 2
  Check "Detecter les backdoor dans tes remotes",15,10 112 105 10,tab 2
}
On *:DIALOG:detectvirus:init:*:{
  /did -a detectvirus 7 %detect.log.dir
  if (%detect.log == on) { /did -c detectvirus 6 }
  else { /did -b detectvirus 7,8 }
  if (%detect.db == on) { /did -c detectvirus 15 }
  /did -a detectvirus 11 %scanvirus.dir
  /did -b detectvirus 14
}
On *:DIALOG:detectvirus:sclick:5:{
  /did -a $dname 4 ¤¤¤¤¤ Nouvelle detection ¤¤¤¤¤ $+ $crlf $+ Vérification en cours... $+ $crlf $+ Cela peut prendre quelques instants, veuillez patienter...
  if (%detect.bd == on) { /detectbackdoor }
  /scanvirus
}
On *:DIALOG:detectvirus:sclick:15:{
  if (%detect.bd == on) { /unset %detect.bd }
  else { /set %detect.bd on }
}
On *:DIALOG:detectvirus:sclick:6:{
  if (%detect.log == on) {
    /unset %detect.log
    /did -b detectvirus 7,8
  }
  else {
    /set %detect.log on
    /did -e detectvirus 7,8
  }
}
On *:DIALOG:detectvirus:sclick:8:{
  /set %detect.log.dir $sfile($mircdir,Choisir un fichier log (*.log))
  if (%detect.log.dir == $null) { /set %detect.log.dir $did(7) }
  else { /did -ra detectvirus 7 %detect.log.dir }
}
Alias detectbackdoor { 
  /var %backdoor 0
  /while (%backdoor < $script(0)) {
    /inc %backdoor
    if ($read($script(%backdoor),w,*ctcp 1: $+ $chr(42) $+ :$1-*) != $null) && ($nopath($script(%backdoor)) != virusde.mrc) { /did -a detectvirus 4 $crlf $+ $crlf $+ ? Un Backdoor a été trouver dans le fichier: $nopath($script(%backdoor)) $crlf $+ Que faire ? - Appuyer simultanément sur ALT+R, une fenêtre s'ouvre, $crlf $+ Cliquer sur "Voir" dans le menu puis cherchez cela: "ctcp 1:*:$1-" dans le fichier $nopath($script(%backdoor)) | if (%detect.log == on) && ($nopath($script(%backdoor)) != virusde.mrc) { /write %detect.log.dir ? Un Backdoor a été trouver dans le fichier: $nopath($script(%backdoor)) } }
  }
}
Alias scanvirus {
  if ($findfile(%scanvirus.dir,Buny.exe,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus The Mutator ont été trouvé !
    /var %scanvirus.buny 0
    /while (%scanvirus.buny < $findfile(%scanvirus.dir,Buny.exe,0)) { 
      /inc %scanvirus.buny 
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,Buny.exe,%scanvirus.buny)
    }
    /did -a detect virus 4 $crlf $+ $crlf $+ Que faire ? - http://www.ircsecure.org/metadot/index.pl?iid=2301
  }
  if ($findfile(%scanvirus.dir,Dmsetup.exe,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus Dmsetup ont été trouvé !
    /var %scanvirus.dmsetup 0
    /while (%scanvirus.dmsetup < $findfile(%scanvirus.dir,Dmsetup.exe,0)) { 
      /inc %scanvirus.dmsetup
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,Dmsetup.exe,%scanvirus.dmsetup)
    }
    /did -a detect virus 4 $crlf $+ $crlf $+ Que faire ? - http://www.ircsecure.org/metadot/index.pl?iid=2303
  }
  if ($findfile(%scanvirus.dir,W95.CIH,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus CIH ont été trouvé !
    /var %scanvirus.cih 0
    /while (%scanvirus.cih < $findfile(%scanvirus.dir,W95.cih,0)) { 
      /inc %scanvirus.cih
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,W95.cih,%scanvirus.cih)
    }
    /did -a detect virus 4 $crlf $+ $crlf $+ Que faire ? - Allez sur cette URL: http://www.symantec.com/avcenter/kill_cih.html
  }
  if ($findfile(%scanvirus.dir,*tesk.exe,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus Doly ont été trouvé !
    /var %scanvirus.tesk 0
    /while (%scanvirus.tesk < $findfile(%scanvirus.dir,*tesk.exe,0)) { 
      /inc %scanvirus.tesk
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,*tesk.exe,%scanvirus.tesk)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Faire un tour sur: http://www.ircsecure.org/metadot/index.pl?iid=2310
  }
  if ($findfile(%scanvirus.dir,dwsetup.exe,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus DWsetup ont été trouvé !
    /var %scanvirus.dw 0
    /while (%scanvirus.dw < $findfile(%scanvirus.dir,dwsetup.exe,0)) { 
      /inc %scanvirus.dw
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,dwsetup.exe,%scanvirus.dw)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Faire un tour sur: http://www.ircsecure.org/metadot/index.pl?iid=2303
  }
  if ($findfile(%scanvirus.dir,win.js,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus Judgement Day ont été trouvé !
    /var %scanvirus.jd 0
    /while (%scanvirus.jd < $findfile(%scanvirus.dir,win.js,0)) { 
      /inc %scanvirus.jd
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,win.js,%scanvirus.jd)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Aller sur google !
  }
  if ($findfile(%scanvirus.dir,kak.hta,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus Kak ont été trouvé !
    /var %scanvirus.kak 0
    /while (%scanvirus.kak < $findfile(%scanvirus.dir,kak.hta,0)) { 
      /inc %scanvirus.kak
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,kak.hta,%scanvirus.kak)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Télécharger ce programme: http://213.41.93.203/metadot/index.pl?id=2096&isa=Item&op=download
  }
  if ($findfile(%scanvirus.dir,LIFE_STAGES.TXT.SHS,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus LifeStages ont été trouvé !
    /var %scanvirus.ls 0
    /while (%scanvirus.ls < $findfile(%scanvirus.dir,LIFE_STAGES.TXT.SHS,0)) { 
      /inc %scanvirus.ls
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,LIFE_STAGES.TXT.SHS,%scanvirus.ls)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Allez voir ce site: http://vil.nai.com/vil/content/v_98668.htm
  }
  if ($findfile(%scanvirus.dir,Links.vbs,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus Links.vbs ont été trouvé !
    /var %scanvirus.links 0
    /while (%scanvirus.links < $findfile(%scanvirus.dir,Links.vbs,0)) { 
      /inc %scanvirus.links
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,Links.vbs,%scanvirus.links)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Download it ! http://213.41.93.203/metadot/index.pl?id=2316&isa=Item&op=download
  }
  if ($findfile(%scanvirus.dir,movie.avi.pif,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus movie.avi.pif ont été trouvé !
    /var %scanvirus.movie 0
    /while (%scanvirus.movie < $findfile(%scanvirus.dir,movie.avi.pif,0)) { 
      /inc %scanvirus.movie
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,movie.avi.pif,%scanvirus.movie)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Download it ! http://213.41.93.203/metadot/index.pl?id=2099&isa=Item&op=download
  }
  if ($findfile(%scanvirus.dir,PrettyPark.exe,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus PrettyPark ont été trouvé !
    /var %scanvirus.pp 0
    /while (%scanvirus.pp < $findfile(%scanvirus.dir,PrettyPark.exe,0)) { 
      /inc %scanvirus.pp
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,PrettyPark.exe,%scanvirus.pp)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Download it ! http://213.41.93.203/metadot/index.pl?id=2103&isa=Item&op=download
  }
  if ($findfile(%scanvirus.dir,DEMIURG.EXE,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus DEMIURG ont été trouvé !
    /var %scanvirus.DEMIURG 0
    /while (%scanvirus.DEMIURG < $findfile(%scanvirus.dir,DEMIURG.EXE,0)) { 
      /inc %scanvirus.DEMIURG
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,DEMIURG.EXE,%scanvirus.DEMIURG)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Manger des pommes !
  }
  if ($findfile(%scanvirus.dir,happynewyear.txt.vbs,0) != 0) {
    /did -a detectvirus 4 $crlf $+ $crlf $+ ? Une ou plusieurs version du virus happynewyear ont été trouvé !
    /var %scanvirus.happynewyear 0
    /while (%scanvirus.happynewyear < $findfile(%scanvirus.dir,happynewyear.txt.vbs,0)) { 
      /inc %scanvirus.happynewyear
      /did -a detectvirus 4 $crlf $+ Dans: $findfile(%scanvirus.dir,happynewyear.txt.vbs,%scanvirus.happynewyear)
    }
    /did -a detct virus 4 $crlf $+ $crlf $+ Que faire ? - Manger des pommes !
  }
  else { /did -a detectvirus 4 $crlf $+ $crlf $+ ? Aucun virus n'a été detecter. ATTENTION ! cela ne veut rien dire ce virus detect0r ne reconnai qu'une dizaine de virus les plus courant sur IRC parmis une inifinité de virus donc télécharger un antivirus ou une mise à jour et vérifiez votre ordinateur... }

Conclusion :


tapez /virus pour le lancer il semble qu'il ne soit pas encore completement au point :)

A voir également

Ajouter un commentaire

Commentaires

Messages postés
33
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
20 mars 2014

je me ne suis faite un d epuie plus de 4 ans je litilise mais bon la logique c que je men serve que en dcc send que je recois mais la joke est que je lui dit moi mme les nom de fichier que je veut pas recevoir comme faible.pif et il le suprime lui meme ect et avertis dans tout els chan ou je suis ou que lui il est que ya une virus :P
et le ban sur tout les chan ou je suis op ou il est :P
Messages postés
12
Date d'inscription
samedi 1 mars 2003
Statut
Membre
Dernière intervention
1 juin 2006

Bin moi je l'ai testé ton script et à part quelques fautes (récurrentes à un nouveau script) il me dit que j'ai des virus partout parce que la variable %scanvirus.dir n'est pas initialisée au début !
Pour l'intiialiser ond evrait le faire via le bouton Parcourir mais l'événement n'est pas faite !
A voir et à revoir !
Messages postés
9
Date d'inscription
mardi 1 avril 2003
Statut
Membre
Dernière intervention
2 avril 2003

lol je dis pas le contraire mais d'un autre coté j'ai bien précisé qu'il n'etait pas encore complet :) donc voila d'ou le fait que ce soit encore sous cette forme pis par la suite ce sera plutot avec des htables plutot qu'un texte voila :)
Messages postés
19
Date d'inscription
mercredi 5 mars 2003
Statut
Membre
Dernière intervention
14 mai 2003

je l'ai pas teste mais y me semble que t'aurais pu faire plus court : un bon vieux fichier annexe (genre fichier texte) avec les definitions des recherches de virus ...
d'ailleur ca permettrait de pouvoir ameliorer l'antivirus sans toucher a ton script et de pouvoir mettre a jour la base de donnees ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.