DETECTER VIRUS/VERS DANS LA BASE DE REGISTRE

Commentaire de Ktb le 15/06/2003 21:19:24

Mouais bof, un peu simpliste tout de même pour "DETECTER VIRUS/VERS DANS LA BASE DE REGISTRE", on peut s'attendre à plus puissant ! Plutôt "recherche d'une valeur dans le registre" comme titre, et encore recherche très limiutée !
@+ KtB

Commentaire de alexD le 16/06/2003 18:26:40

oui tu as raison Ktb c'est trés simpliste c'est pour cela que je l'ai mis dans code niv 1 et puis il est vrai qu'il est trés limité il ne recherche que le vers Sobig seulement il le fait bien(enfin je pense d'aprés les echos que j'en ai).J'aurais du ajouter des inputbox au lieu d'affecter des variables dans le code: mieux ,j'aurais pu directement ouvrir un fichier en lecture contenant les paramétre du ver(clé de registre occupé,valeur et contenu de la valeur) mais j'ai fait un peu ca en dilettante et à la volé pour quelqu'un qui avait été infecté par sobig et ces contacts.J'ai pu par la méme en apprendre un peu plus sur le VBscript.
Si vous pouviez me dire comment optimiser ce code ou corriger ma facon de coder en VBscript d'avance merci :)

Commentaire de hakim0 le 21/11/2004 23:56:02

interessant..., une remarque au lieu de
Function RegExpTest(motif,chaine)
    Dim regEx, retVal          
    Set regEx = New RegExp      
    regEx.Pattern = motif        
    regEx.IgnoreCase = True    
    retVal = regEx.Test(chaine)
    If retVal Then
    RegExpTest = 1
    Else
    RegExpTest = 0
    End If
End Function
tu pe faire aussi:
Function RegExpTest(motif,chaine)
   if len(chaine)>= len(motif) then
    retval = instr(1,chaine,motif)
   else
   retval=instr(1,motif,chaine)
   end if
    If retVal <>0 Then
    RegExpTest = 1
    Else
    RegExpTest = 0
    End If
End Function