- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
var
SysPath, WinPath, DrivePart, AppPath, CMDLine, AppName, AppExt:widestring;
P:Integer;
USBDrive:Boolean;
begin
Result:=True;
SetLength(SysPath,300);
SetLength(SysPath, GetSystemDirectoryW(PWideChar(SysPath), 300));
SysPath:=IncludeTrailingPathDelimiter(SysPath);
SysPath:=WideLowerCase(SysPath);
SetLength(WinPath,300);
SetLength(WinPath, GetWindowsDirectoryW(PWideChar(WinPath), 300));
WinPath:=IncludeTrailingPathDelimiter(WinPath);
WinPath:=WideLowerCase(WinPath);
DrivePart:=ExtractFileDrive(lpCurrentDirectory);
DrivePart:=ExtractFileDir(DrivePart);
DrivePart:=wideLowerCase(DrivePart);
AppName:=ExtractFileName(lpApplicationName);
AppName:=wideLowerCase(AppName);
AppExt:=ExtractFileExt(AppName);
AppExt:=wideLowerCase(AppExt);
AppPath:=ExtractFilePath(lpApplicationName);
AppPath:=wideLowerCase(AppPath);
CMDLine:=lpCommandLine;
CMDLine:=Utf8Decode(Utf8StringReplace(UTF8Encode(CMDLine),#34,'',[rfReplaceAll]));
P:=utf8Pos(utf8encode(string(lpApplicationName)), utf8encode(CMDline));
if P >0 then
Delete(CMDline, P, Length(lpApplicationName));
CMDLine:=Trim(CMDLine);
//CMDLine:=LowerCase(CMDLine);
USBDrive:=IsUSBDevice(DrivePart);
if (WideSameText(AppPath, SysPath) or WideSameText(AppPath, WinPath)) then
begin
if ((wideSameText(AppName,'wscript.exe')) or (wideSameText(AppName, 'cscript.exe')) or (wideSameText(AppName, 'mshta.exe'))) then
begin
// script blocked
if CMDLine <> '' then
if MessageBoxW(0,PWideChar(UTF8Decode(Format('Использование скриптов может повредить Ваш компьютер! %s%s%s', [#13#10#13#10'Приложение: '+lpApplicationName,#13#10'Файл: '+CmdLine,#13#10#13#10'Вы действительно хотите выполнить данный скрипт?']))),PWideChar(UTF8Decode('Rast Security: заблокирован скрипт!')),mb_yesno or mb_iconexclamation) <> IDYES then Exit;
TrueCreateProcessW(lpApplicationName, lpCommandLine, lpProcessAttributes,
lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment,
lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
end
else if ((wideSameText(AppName, 'rundll32.exe')) or (wideSameText(AppName, 'cmd.exe')) or (wideSameText(AppName, 'hh.exe')) or (wideSameText(AppName, 'reg.exe')) or (wideSameText(AppName, 'regedit.exe'))) then
begin
// app launching
if USBDrive then
begin
if (CMDLine <> '') then
if Copy(CMDLine,1,28)='Shell32.DLL,ShellExec_RunDLL' then
begin
if MessageBoxW(0,PWideChar(UTF8Decode('Проводник пытается выполнить автозапуск! Данную функцию используют многие вредоносные программы.'+#13#10+'Мы настоятельно рекомендуем Вам не разрешать исполнение сценария и проверить устройство антивирусом.'+#13#10+'Разрешить исполнение?')),PWideChar(UTF8Decode('Rast Security: автозапуск заблокирован')),mb_yesno or mb_iconexclamation)<> IDYES then Exit;
end
else
if MessageBoxW(0,PWideChar(UTF8Decode(Format('Легитимное (заслуживающее доверия) приложение пытается исполнить неизвестную программу на сменном диске. %s%s%s', [#13#10#13#10'Приложение: '+lpApplicationName,#13#10'Файл: '+CmdLine,#13#10#13#10'Разрешить доступ?']))),PWideChar(UTF8Decode('Rast Security: заблокирован ланчер')),mb_yesno or mb_iconexclamation) <> IDYES then Exit;
end;
TrueCreateProcessW(lpApplicationName, lpCommandLine, lpProcessAttributes,
lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment,
lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
end
else
TrueCreateProcessW(lpApplicationName, lpCommandLine, lpProcessAttributes,
lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment,
lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
end
else
//begin
//if not masking app
//end;
if USBDrive then
Follow us!
Значит, берешь двести грамм древесного спирта и двести грамм тормозной жидкости и выпиваешь залпом натощак. И так неделю. удачи!
ты попробуй и отпишись
да
Хм, а чем он опасен, кстати? Через эту читалку хелпов можно какой-то код исполнить?
Бляди узнали мой пароль(123), и теперь спамят
Итак, понадобятся 3 файла: html-страничка, библиотека *.ocx и сам троян.
Запускаешь Visual Basic (ну, или делфи, если религия не позволяет), и ваяешь в нём встраиваемый объект ActiveX , в котором при событии подгрузки вызываешь ShellExecute своего троянца (должен лежать рядом с библиотекой). На выходе получаешь HTML и готовую библиотеку.
Берёшь билдер справки (у него ещё мясорубка на иконке), и пропускаешь всё это через него, на выходе получаешь готовый файл справки. Знание преумножает боль.
Ну хоть где-то мне Дельфий пригодился.
Въебал плюсы.
Но я в своё время по-другому делал.
А есть какие-нибудь уязвимости в docx или pdf ?
Насчёт docx, к сожалению, не знаю. Я уже давно не интересуюсь подобными вещами, да и офиса на моём компьютере не было отродясь.
Кто-то исчо его юзает ?
ХРенофаги ?
В мае лицензия истекает (довольно глупый стимул для обновления), а сорцы я проебал.
Ну как так можно ? Проебатель сорцов
Мне долгое время звонил знакомый, угрожая то расправой, то судом за то, что я, якобы, взломал его страницу в ВК и читал переписки, - и нёс прочий бред. Зная его истеричный характер, я предположил, что такой псих и заявление напишет, а проблем я не хотел. По инерции я бросился шифровать свои данные, хотя прятать было, ровным счётом, нечего. Поставил BitLocker c 20-значным ключом, и выключил комп. Наутро включаю - пароль не подходит. ЧЗХН? Оказалось, что в биосе была включена опция "backup to HDD" - эта функция скидывает дамп в конец диска, где незанятые секторы, чтобы в случае сбоя восстановить биос. Пока диск был не шифрованный, это никак себя не проявляло, т.к. не было обращения к незанятому месту. С зашифрованным диском дела обстояли иначе. Очевидно, был задет образ и битлокер больше не смог его загрузить. Восстановление данных при этом абсолютно невозможно.
...погоди, это ты САМ свой сыр сожрал ?
Теперь я — Стальная Крыса.
Всё равно это пиздец какой-то а не фича. Сегодня они не занятые а завтра оно что-то полезное убьёт своим бекапом.
Ну блин, github и bitbucket для кого?
Rast Security - некоммерческий проект, посвященный компьютерной безопасности. 2008-2017
Вот эт мне нравится, лаконично, коротко и ясно
ЗЫ. Как-то проебал сырцы форт-системы, хоть и писал в целях изучения асма, но сёрамно абидна
Вот фсе бы так...
ЗЫ. Так ты не Стертор? Или ты рекламируешь свой продукт?