Login server in autoit

scl · 03-01-2013 06:05 PM

Ciao ragazzi, sto provando a scrivere il login server per un pserver in autoit; I codici saranno liberi quando e se ci riuscirò (non sono interessato a crearne uno, però sarebbe carino farlo in autoit dato che il 90% delle hack e dei programmi qui è in quel linguaggio).
Mi rivolto a qualche conoscitore, profondo conoscitore di autoit se una cosa simile può andare. (Ad un ragazzo che testa con me, sul suo dedicato va, se qualcuno vuole aiutarmi in quest'impresa mi contatti).

Dev'essere aperto in questa sequenza:

1: Apri questo login server
2: Apri Client
3: Logghi con dati a caso

Se tutto va come deve andare il client deve accettarvi i dati e non mostrare più nulla.

Ecco cosa ho tirato fuori in 15 minuti:

Codice:

#RequireAdmin

#include <Array.au3>

#include <Misc.au3>

local $porta = "4001"

local $ip = "xxx.xxx.x.x"

local $mainsocket = TCPListen($ip,$porta,255)

TCPStartup()

While 1

TCPAccept($mainsocket)

MsgBox(64,"Pacchetto",BinaryToString(TCPRecv($mainsocket,255)))

TCPSend($mainsocket,StringToASCIIArray("CLIENT CONNESSO"))

WEnd

TCPShutdown()