Mensajes

mira si te sirve esto.: aqui estuvo mi solucion.... solo que necesitamos ver como abrir el puerto desde visual basic...
si estoy detras de un router y de un firewall  (norton)


http://foro.elhacker.net/index.php/topic,101436.msg473154.html#msg473154

[aplicacion cliente]

hola a todo s los del foro yo soy nuevo
tengo un gran problema  necesito crear una aplicacion cliente   que modifique el registro de window que esta en un servidor llevo 2 semanas buscando una solucion y no la e encontrado espero me ayuden  gracias 

sten weno que servidor? orale.... esta xtraño tu caso pense que si mejor modificabas tu el servidor y le ponias esas funciones.... pero solo stoy haciendo volas como dices que eres nuevo.....--->  pense que stabas equivocado con eso de el servidor y el cliente ... no sera alrevez?
quieres que desde tu cliente modifique el registro de donde esta tu servidor??? (servidor: el que acepta toooodos los comando y realiza alguna accion(sirvase a servir))
mejor dinos  mas d tu servidor o de tu cliente etc

ya lo intente.... no pude... solo abriendo un puerto desde mi router... solo y unicamente asi pude... pero  pues... como mas podria ser... tambien ando buscando la solucion si encuentras algo avisame xD   saludos

descarge eso... apenas lo pruebo.,.... mientras tanto creo que lo encontre algo complicado...

jejeje pues ya me desanimaron... ami ponme el link y cuando vaya a algun ciber cafe ahi lo abro.... no corro riesgo o si???


saludos...

nada de nada adentro tendras palabra para checar el programa ? o estaras buscando a un conejillo de india?
si no fuese as me apunto pero por si de casualidad se tratase de algo medio rarito mejor te pediria que pusieras el codigo
asi seria mas confiable testearlo



si es asi y ese exe no tiene nada de malo me avisas.,....

kazzaa google emule etc eso quieres=?

...perdon lo habia tecleado antes pero no se que rayos paso y quedo reducido a esto(esto me arta) :shocked:

el caso es que queria compartirles el uso de el archivo hosts
que se encuentra en c:\windows\system32\drives\etc

que cierto virus utilizaba para denegar el acceso a paginas de seguridad (osea que si intentabas entrar a la pagina de norton antivirus te enviaba a www.nose.com)

el caso es que el virus(fue el blaster si no mas me equivoco)
modificaba este archivo para que en realidad redireccionara a otras paginas(lo he probado en mi xp y si ha funcionado para el service pack 1 y 2 )

# Copyright (c) 1993-1999 Microsoft Corp.
#
# Éste es un ejemplo de archivo HOSTS usado por Microsoft TCP/IP para Windows.
#
# Este archivo contiene las asignaciones de las direcciones IP a los nombres de
# host. Cada entrada debe permanecer en una línea individual. La dirección IP
# debe ponerse en la primera columna, seguida del nombre de host correspondiente.
# La dirección IP y el nombre de host deben separarse con al menos un espacio.
#
#
# También pueden insertarse comentarios (como éste) en líneas individuales
# o a continuación del nombre de equipo indicándolos con el símbolo "#"
#
# Por ejemplo:
#
#      102.54.94.97     rhino.acme.com          # servidor origen
#       38.25.63.10     x.acme.com              # host cliente x

127.0.0.1       localhost
192.168.1.65 www.hotmail.com

si fueron observadores se incluyo por ejemplo la web de hotmail(fue la primera que se me vino en mente) y un numero de ip antes de la direccion esto hace que el navegador consulte el archivo de host y si encuentra la direccion que tecleaste en el navegador lo redireccione a la ip que tambien tu pusiste (perdon no se si me explique)


en mi caso lo he utilizado para bloquear paginas no deseadas por ejemplo pornografia....

lo implemente de la siguiente manera....
tengo un equipo donde cualquier persona puede ocuparlo y gente de cualquier tipo

cree un programa en visual basic utilizando el winsock el cual escucha el puerto 80  y  le va anexando al archivo de hosts las paginas no deseadas por ejemplo si usted no quiere que su hijo/hija (lo que sea da igual) entre a www.prohibido.com
el programa agrega a el mentado archivo de hosts  esta linea
192.168.1.65 www.prohibido.com

entonces como el programa esta listando el puerto 80 y al momento de intentar conectarse por medio del navegador www.prohibido.comel navegador consulta e archivo de hosts y redirecciona a la ip local entonces es ahi cuando el  programa recibe la peticion y envia un codigo html al navegador informandole que no puede ver la pagina por que el administrador la tiene bloqueado....


esto no se si este funcionando actualmente con los parches que ya haya sacado microsoft ®



este texto fue tomado en base a una revista (hackpaso a paso)
que es /fue publicada en españa(que por cierto cuando llega a mexico llega muy atrasada y ....)
en la revista solo explica el uso del archivo por el virus y pues trate de implementarlo en visual basic si les interesa mas o no es obsoleto les puedo poner el codigo del programa
que es mas bien como un servidor web.....


pd.: muy buena revista lastima que en mexico solo me lleguen descontinuadas una ves si la otra no y la otra tampoco y luego esta si etc
entonces no sabria yo decirles si funciona en aparte de mis maquinas alguien  puede probarlo????

la verdad esto es lo me sirve ami es un buen ejemplo descargado de la pagina de jose rubi (jejejeje)

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

Código [Seleccionar] Expandir

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Private Type PROCESSENTRY32
           dwSize As Long
           cntUsage As Long
           th32ProcessID As Long
           th32DefaultHeapID As Long
           th32ModuleID As Long
           cntThreads As Long
           th32ParentProcessID As Long
           pcPriClassBase As Long
           dwFlags As Long
           szExeFile As String * 260
       End Type

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const PROCESS_TERMINATE = &H1
Const PROCESS_CREATE_THREAD = &H2
Const PROCESS_VM_OPERATION = &H8
Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_DUP_HANDLE = &H40
Const PROCESS_CREATE_PROCESS = &H80
Const PROCESS_SET_QUOTA = &H100
Const PROCESS_SET_INFORMATION = &H200
Const PROCESS_QUERY_INFORMATION = &H400
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'Para llenar el listbox con los procesos
Sub RellenaLista()
Dim hSnapShot As Long
Dim uProceso As PROCESSENTRY32
Dim res As Long

List1.Clear
hSnapShot = CreateToolhelpSnapshot(2&, 0&)
If hSnapShot <> 0 Then
   uProceso.dwSize = Len(uProceso)
   res = ProcessFirst(hSnapShot, uProceso)
   Do While res
      List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
      List1.ItemData(List1.NewIndex) = uProceso.th32ProcessID
      res = ProcessNext(hSnapShot, uProceso)
      MsgBox (uProceso.szExeFile)
   Loop
   Call CloseHandle(hSnapShot) ' por cada proceso wey
End If

End Sub

'Para cerrar el proceso seleccionado
Private Sub Command1_Click()
Dim hProcess As Long, iResult As Long

If List1.ListIndex = -1 Then
    Beep
    MsgBox "Debe seleccionar una aplicación"
Else
    hProcess = OpenProcess(PROCESS_TERMINATE, True, List1.ItemData(List1.ListIndex))
    MsgBox hProcess
    iResult = TerminateProcess(hProcess, 99)
    MsgBox iResult
    CloseHandle hProcess
    Sleep (100)
    RellenaLista
End If
End Sub

Private Sub Form_Load()
Call RellenaLista
End Sub


si te sirve no hay tos

Mira lo que necesito es guardar lo que tengo en el richtexbox y Listview

mira....se gurdara la lo que tengo en el richtexbox en un archivo de texto .txt..

pero como guardo un archivo en un .txt...

bueno tal vez sera con  richtexbox.savefile"c:\miarchivo.miextencion"??????

Yo adunto un archivo de (nombre.xls) en el ListView....y automaticamente creo una copia temporal en "c:\"....

mmm y pa que la copia??? y por que la extensión xls acaso estas utilzando celdas y columnas o algo relacionado a excel???'

al momento de guardar mi mensaje....guardo el archivo (nombre.xls) de k forma (binary,?..no se)...

y al crerrar...... El archivo temporal (nombreTem.xls) creado en c:\...se elimine....ya que dicho archivo ya se guardo en .txt....

si mas no entendi tu quieres que tu aplicacion haga esta cosa mas o menos asi(lo que to entendi)
dices que utilizas un  richtexbox
dices que cuando se inice tu aplicacion quieres que se carge determinado archivo no se por ejemplo ya que utilizas un richtexbox estaras manejando solo  texto enriquecido

tal vez puedas  poner el la parte de tu programa


private sub form_load()
on error goto error' esto por si algun error pase brinque a error
richtexbox.loadfile"c:\mirutademiarchivo\miarchivo.txt"'puedes poner cualquier extensión solo que se cargara en modo texto
entonces lo de la carga ya esta no????'

exit sub' pa que se salte la etiqueta error
error:
msgbox error ' te describe la causa de el error  por ejemplo el archivo no existe etc etc etc
end sub

Al momento de abrir(cargar) ese .txt desde mi aplicacion me vuelva a crear el archivo temporal (nombreTem.xls) en c:\.........

y el temporal para que lo quieres si nos puedes decir de que se trata tu aplicacion con mucho gusto te podremos ayudar