[KOD] Przykładowy TCP

[Dzudi]

A więc wczoraj nieco grzebałem w TCP, umiem już dużo rzeczy ale tutaj daje tylko to co zrobiłem na początku.

Wiem że to jest tylko gówniany, nic nie znaczący kod, ale myślę że jak go ktoś nowy przeczyta to od razu będzie wiedział o co chodzi.

 

Zrobiłem Klient i Serwer, w przyszłości myślę nad napisaniem keylogera który jest klientem i wysyła do serwera znaki, najprawdopodobniej będą zapisywać się w jakimś pliku tekstowy albo w zwykłym Edit'cie lecieć.

 

KLIENT

 

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("KLIENT", 180, 82, 461, 332)
$Input1 = GUICtrlCreateInput("", 0, 0, 177, 21)
$Input2 = GUICtrlCreateInput("", 0, 32, 177, 21)
$Button1 = GUICtrlCreateButton("ŁĄCZ", 0, 56, 179, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

TCPStartup()
Global Const $SERVER_IP = "wpisz ip" ;IP serwera
Global Const $SERVER_PORT = 4992 ;port serwera
Global $SOCKET = TCPConnect($SERVER_IP, $SERVER_PORT)
EndSwitch
WEnd

 

 

SERWER

 

 

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SERWER", 178, 22, 461, 332)
$Input1 = GUICtrlCreateInput("", 0, 0, 177, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global Const $USER_LIMIT = 10 ;limit połączonych socketów
Global Const $SERVER_IP = "wpisz ip" ;IP serwera
Global Const $SERVER_PORT = 4992 ;port serwera



TCPStartup()
Global $SERVER = TCPListen($SERVER_IP, $SERVER_PORT)
while 1
$Ktos = TCPACCEPT($SERVER)
if $Ktos >= 1 Then GUICtrlSetData($input1,"Ktoś Się Połączył") EndIf
WEnd




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

 

 

 

Aczkolwiek i tak sądzę że ten kod jest przydatny, może nie do wykorzystywania lecz do nauki

[tapne]

no coś tu jest, lajka masz, ale mogłeś zrobić np opisy komend (sam napisałeś że to do nauki )

[Wasiij Iwanowic]

Co do keyloggera możesz dać na e-maila używając tego includa

SMTP.au3

 

 

#cs
I did nor wrote this script, i downloaded it from a user on the AutoIt official forums.
I simple edited a small part of it.
~Marlo
#ce
#Include<file.au3>
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
#Include<file.au3>
Global $oMyRet[2]
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Username, $s_Password, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $IPPort=465, $ssl=1)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $Ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 8)
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

 

 

 

dajesz w zmiennych np. pop3.wp.pl,maila,adres,temat,i pliczek z logiem.

Osobiście kiedyś próbowałem ale straciłem chęci.