Virus detector
Contenu du snippet
Je la refais? regardez le titre ^^ :)
tapez /virus pour le lancer il semble qu'il ne soit pas encore completement au point :)
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 :)
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.