|
سلام بعد از مدتی براتون یک آموزش ویروس نویسی گذاشتم امیدوارم خوشتون بیاد.
فعالیت ویروس :خوب کار این ویروس اینه که 10 دقیقه بعد از اینکه سیستم روشن شد شروع میکنه به بوق زدن و حالا قربانی شمل هر ادمی می خواد باشه(منظور حرفه ای یا غیر حرفه ای بود) وقتی به بینه سیستم این طوری صداش در اومده کولی دست پا چه میشه و خدا میدونه چیکار می کنه
توضیح کد ویروس: تو این ویروس از 2 تا api استفاده شده اولی ===============
Beep
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long این تابع صدای Beep را از کارت صوتی هرتز و مدت زمان دلخواه پخش می دهد dwFreq: مقدار هرتز صدا dwDuration:مدت زمان پخش صدا ====================== دومی هم ================
GetTickCount Private Declare Function GetTickCount& Lib "kernel32" () این تابع مدت زمانی را که کامپیوتر روشن شده است تا زمان حال را بر میگرداند نکته: اگر تابع کار خود رو با موفقیت انجام بده مقدار برگشتی تابع مدت زمان به میلی ثانیه است
================ فقط یه timer با interval=1 بگزارید تو فرم
کد: Private Declare Function GetTickCount& Lib "kernel32" () Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Timer1_Timer() t = GetTickCount& \ 60000 If t >= 10 Then Beep 135, 3304 End If End Sub خوب حالا اگر بخواهید واقعا ویروس یشه باید کد آتو استارت آپ و کار های مخفی کردنش رو انجام بدید "به دلیل خراب کار نبودن این کدها رو اضافه نکردم اگر دوست داشتید خراب کاری کنید به خودتون یه تکونی بدید یه چند خطی بهش اضافه کنید "
+ نوشته شده در سه شنبه دوازدهم شهریور 1387ساعت 3:22 توسط farshid
|
|