Własny trojan w bcb6

[AntiChacker]

Mógłby mi ktoś pomóc napisać własnego trojana w Borland C++ Builder 6.0
Najbardziej mi zależy na zdalnym wyłączaniu kompa
Z góry dzięki

 

[fl3a]

No prosze! Ktos zabral sie za BCB

Jak znajde to Ci jakies zrodelka podesle... A reszte to mozesz zaczerpnac i przerobic z Delphi trojanow.

 

[MafiAmiX]

fl3a! z nieba mi spadłeś! błagam cie, mi też podeślij! BŁAGAM BŁAGAM BŁAGAM!!! Normalnie muszę zobaczyć jak tam wyglądają te sockety i inne tego typu sprawy, to dla mnie ostatnio jest spawa priorytetowa

Czekam z zniecierpliwością
Z góry THX Pozdro!

 

[fl3a]

Jak ktos jeszcze chce jakies zrodelka to prosze pisac na pm. Najlepiej od razu piszcie meile. Zadnych rewelacji nie mam ale moze komus sie przyda to co jest

Obecnie juz prawie nie pisze w BCB wiec nic nowego nie podesle anie nie napisze

 

[Chochlik]

sockety w BCB 6 sa w zasadzie identyczne jak w Delphi 6 ... tylko troche interpunkcja jesli mozna to tak nazwac jest inna ;p

 

[michal_60]

WinExec('shutdown -s -t 0', SW_HIDE); - zamykanie windows
WinExec('shutdown -l -t 0', SW_HIDE); -wylogowanie
WinExec('shutdown -r -t 0', SW_HIDE); -restart
jak chcesz to
jak jest "-t 0 " to zamiast 0 dajesz liczbę o ile sekund ma sie przedłużyć (wyskoczy w tedy taki okinko i będzie odliczanie) jak normalnie -t 0 to sie normalnie wyłączy

 

[dseba]

Prosta aplikacja obsługująca Tray-a

Wrzucacie 2 Buttony: Button1 i Button2;
Dodajecie też PopupMenu1.

Kod wygląda tak:

Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop



#include "Unit1.h"

#include "Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

ille = 0;

}

//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)

{

// Podstawowe ustawienia

tray.cbSize = sizeof(TNotifyIconData);

tray.hWnd = AllocateHWnd(OnMessage);

tray.uID = (UINT)this;

tray.uFlags = NIF_ICON | NIF_MESSAGE;



// Definiowanie ikony (tu: będzie to ikona formatki):

tray.hIcon = Form1->Icon->Handle;



// Definiowanie hinta

AnsiString hint = "Jakieś info";



StrPLCopy(tray.szTip, hint.c_str(), sizeof(tray.szTip) - 1);

tray.uFlags = tray.uFlags | NIF_TIP;



// Definiowanie funkcji obsługi komunikatów

tray.uCallbackMessage = WM_SYSTEM_TRAY_NOTIFY;



// Pokazywanie ikony

Shell_NotifyIcon(NIM_ADD, &tray);



// Ukrywanie formatki

Form1->Visible = false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::OnMessage(TMessage &Message)

{

   switch(Message.Msg)

      {

          case WM_SYSTEM_TRAY_NOTIFY:

                 switch(Message.LParam)

                    {

                          // Dwukrotne kliknięcie lewym klawiszem

                          case WM_LBUTTONDBLCLK:

                                   // Pokazywanie Formatki

                                   Form1->Visible = true;

                                   // Usuwanie ikonki z paska



                                   Shell_NotifyIcon(NIM_DELETE, &tray);

                                   break;

                          // Kliknięcie prawym klawiszem myszy

                          case WM_RBUTTONDOWN:

                                   // Pokazywanie menu kontekstowego

                                   POINT pozycja;

                                   GetCursorPos(&pozycja);

                                   PopupMenu1->Popup(pozycja.x, pozycja.y);



                                   break;

                    }

                 break;

     }

   TForm::Dispatch(&Message);

}



//-----------------------------------------------------------------------------

void __fastcall TForm1::poka1Click(TObject *Sender)

{

Form1->Show();

Shell_NotifyIcon(NIM_DELETE, &tray);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Zamknij1Click(TObject *Sender)

{

Shell_NotifyIcon(NIM_DELETE, &tray);

Application->Terminate();

Form1->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

Shell_NotifyIcon(NIM_DELETE, &tray);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)

{

CanClose = false;



// Podstawowe ustawienia

tray.cbSize = sizeof(TNotifyIconData);

tray.hWnd = AllocateHWnd(OnMessage);

tray.uID = (UINT)this;

tray.uFlags = NIF_ICON | NIF_MESSAGE;



// Definiowanie ikony (tu: będzie to ikona formatki):

tray.hIcon = Form1->Icon->Handle;



// Definiowanie hinta

AnsiString hint = "Test DVL";



StrPLCopy(tray.szTip, hint.c_str(), sizeof(tray.szTip) - 1);

tray.uFlags = tray.uFlags | NIF_TIP;



// Definiowanie funkcji obsługi komunikatów

tray.uCallbackMessage = WM_SYSTEM_TRAY_NOTIFY;



// Pokazywanie ikony

Shell_NotifyIcon(NIM_ADD, &tray);



// Ukrywanie formatki

Form1->Visible = false;

}

//---------------------------------------------------------------------------



void __fastcall TForm1::IconADD1Click(TObject *Sender)

{

// Podstawowe ustawienia

tray.cbSize = sizeof(TNotifyIconData);

tray.hWnd = AllocateHWnd(OnMessage);

tray.uID = (UINT)this;

tray.uFlags = NIF_ICON | NIF_MESSAGE;



// Definiowanie ikony (tu: będzie to ikona formatki):

tray.hIcon = Form1->Icon->Handle;



// Definiowanie hinta

AnsiString hint = "Test DVL";



StrPLCopy(tray.szTip, hint.c_str(), sizeof(tray.szTip) - 1);

tray.uFlags = tray.uFlags | NIF_TIP;



// Definiowanie funkcji obsługi komunikatów

tray.uCallbackMessage = WM_SYSTEM_TRAY_NOTIFY;



// Pokazywanie ikony

Shell_NotifyIcon(NIM_ADD, &tray);

}

//---------------------------------------------------------------------------



void __fastcall TForm1::Button2Click(TObject *Sender)

{

// Podstawowe ustawienia

tray.cbSize = sizeof(TNotifyIconData);

tray.hWnd = AllocateHWnd(OnMessage);

tray.uID = (UINT)this;

tray.uFlags = NIF_ICON | NIF_MESSAGE;



// Definiowanie ikony (tu: będzie to ikona formatki):

tray.hIcon = Form1->Icon->Handle;



// Definiowanie hinta

AnsiString hint = "Test DVL";



StrPLCopy(tray.szTip, hint.c_str(), sizeof(tray.szTip) - 1);

tray.uFlags = tray.uFlags | NIF_TIP;



// Definiowanie funkcji obsługi komunikatów

tray.uCallbackMessage = WM_SYSTEM_TRAY_NOTIFY;



// Pokazywanie ikony

Shell_NotifyIcon(NIM_ADD, &tray);

}

//---------------------------------------------------------------------------



void __fastcall TForm1::IconADD21Click(TObject *Sender)

{

Form2->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Start(int aa)

{

for(int i=1; i<=aa; ++i)

 {

  // Podstawowe ustawienia

  tray.cbSize = sizeof(TNotifyIconData);

  tray.hWnd = AllocateHWnd(OnMessage);

  tray.uID = (UINT)this;

  tray.uFlags = NIF_ICON | NIF_MESSAGE;



  // Definiowanie ikony (tu: będzie to ikona formatki):

  tray.hIcon = Form1->Icon->Handle;



  // Definiowanie hinta

  AnsiString hint = "Test DVL";



  StrPLCopy(tray.szTip, hint.c_str(), sizeof(tray.szTip) - 1);

  tray.uFlags = tray.uFlags | NIF_TIP;



  // Definiowanie funkcji obsługi komunikatów

  tray.uCallbackMessage = WM_SYSTEM_TRAY_NOTIFY;



  // Pokazywanie ikony

  Shell_NotifyIcon(NIM_ADD, &tray);

 }

}

//-----------------------------------------------------------------------------

Unit1.h

//---------------------------------------------------------------------------

#ifndef Unit1H

#define Unit1H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ShellAPI.hpp>

#include <Menus.hpp>

#define WM_SYSTEM_TRAY_NOTIFY (WM_USER + 100)



//---------------------------------------------------------------------------

class TForm1 : public TForm

{

__published:    // IDE-managed Components

        TButton *Button1;

        TPopupMenu *PopupMenu1;

        TMenuItem *poka1;

        TMenuItem *Zamknij1;

        TMenuItem *IconADD1;

        TButton *Button2;

        TMenuItem *IconADD21;

        void __fastcall Button1Click(TObject *Sender);

        void __fastcall poka1Click(TObject *Sender);

        void __fastcall Zamknij1Click(TObject *Sender);

        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);

        void __fastcall IconADD1Click(TObject *Sender);

        void __fastcall Button2Click(TObject *Sender);

        void __fastcall IconADD21Click(TObject *Sender);

private:    // User declarations

public:

        int ille;

        void __fastcall TForm1::Start(int aa);

        __fastcall TForm1(TComponent* Owner);

protected: 

              TNotifyIconData tray; // Zmienna globalna TRAY



              // Funkcja obsługi komunikatów

              void __fastcall OnMessage(TMessage &Message); 

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif

Kompilujecie i gotowe

 

[Mystic Vintage]

Kto wie jak zamienić klawisze myszy ?? :>

Mo4x:

SwapMouseButton(True);

Sory, że tak się "wcinam" w posty, ale nie chce odkopywać tematów