طرز ساخت ویروس برای شوخی با نود پد

سلام توی این تاپیک کدی رو به شما میگم که میتونید باهاش ویروسی رو بسازید

به ادامه ی مطلب برید  خوب بریم سراغ کد:

1-نود پد را باز کنید

2-کدزیر را در ان پیست نمایید

set WSHShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

Set wshShell = wscript.CreateObject("WScript.Shell")
Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")
Set shell = CreateObject("Wscript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
Set objShell = CreateObject("WScript.Shell")

wscript.Sleep 1000
Wsh.Run "cmd.exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(Loading)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 800
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus Loaded"
Wscript.Sleep 900
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "%{f4}"
Msgbox"Keylogger installed successfuly",16,"Mr.Hacker"
Wscript.Sleep 900
ویروس خطری نداره میتونید توی کامپیوتر خودتون اجراش کنید .
حالا نامی رو که برای سیو مد نظر دارید باید در اخر ان vbsباشد مثلا:
virus.vbs
talash.vbs
خوب حالا فایل سیو شده را می تونید باهاش هر کار بکنید!!!!!!!
ممنون امید وارم از این تاپیک لذت برده باشید