Mensajes

Pues quizas intente programar con vc++ porq un troyano que solo la conexion son 500kb es una m***** como una casa XDsi alguien sabe otra forma de solucionarlo me vendria genial ya que no me acaba de gustar vc++, quizas pruebe la carga dinamica tambien.

Seria crear una conexion normal como ya habras creado en el proyecto, y luego para el algoritmo que eso si que es algo dificil puedes encontrar modulos, como por ejemplo:

MD5 http://www.bullzip.com/md5/vb/md5-vb-class.htm
Sha-1 http://vb.wikia.com/wiki/SHA-1.bas

Queria empezar un proyecto de un troyano, ya hice alguno en el pasado pero en vb6, ahora quiero hacerlo en c++ el server y el cliente en algun lenguaje .net/vb6/visual c++ o quizas con librerias qt nose. Busco alguien para hacer este proyecto entre 2 o 3 y asi hacer una buena herramienta. Si os interesa enviarme un MP o responder por aqui.

Saludos

De la conexion a la base de datos ni idea, nunca las uso jajaja. Pero para dar seguridad deberias guardar las contraseñas con un hash, un sha-128 o md5 estarias bien, guardars el hash que te da la funcion en la base de datos y luego en el cliente cuando ecribe la pass le haces el algoritmo y envias eso y los comparas como si fuese la pass.

No entiendo bien quieres saber a que control winsock debes enviar nueva informacion?

Deberias identificar para que es ese mensaje antes de utilizar la informacion, porque luego cuando tienes mas funciones no siepre vas a estar enviandos esos datos.

Código (vb) [Seleccionar] Expandir


ENVIAR:

Dim Mensaje as String
Mensaje = "InfoServer||" & Dato1.Text & "||" &  Dato2.Text & "||" &  Dato3.Text & "||" &  Dato4.text


Y luego lo identificas con un select case con el receptor

Código (vb) [Seleccionar] Expandir


Dim Buffer As String
Dim datos() as variant

Winsock1.GetData Buffer
datos()=Split(Buffer,"||")
Select Case vDatos(0)
      Case "InfoServer" 'Identificamos que es un mensaje de datos de informacion del server
   Colortxt.Text = datos(3)
   Activacion.Caption = datos(4)
   De.Caption = datos(1)
   MsgRecibido.Text = datos(2)

End Select

Bueno no yltengo mucho tiempo, pero he visto este error:

Código (cpp) [Seleccionar] Expandir

if((r!=b))
{
error=error+1;
}
acum=acum+1;
Estas haciendo un if simple, es decir si se cumple la condicion se sumara 1 a error, pero tamboen se sumara 1 a acum
Deberias hacer algo asi.

Código (cpp) [Seleccionar] Expandir

if(r==b) {acum++; } else {error++;}


Otra cosa que veo es que pones como parametros los char a,b y c. Si les vas a pasar sus respectivas letras deberias ponerlas como constantes, o declararlas dentro de las funcion.

Estoy en el movil y no te puedo decir, desde mi punto de vista mlbusca algunos tutoriales, lo que te daran seran las bases, como hacer la conexion, como añadirle funciones o diferentes cosas, a partir de ahi tu tienes que buscar como ir haciendo cosas mas avanzadas(un buen keylogger,administrador de archivos,etc) asique lo que te recomiendo es que mires varios y con eso empieces a crear tu troyano.

Si, es .net, nose a que te refieres con que sea dentro del programa pero de cualquier manera las apis de windows las puedes usar en vb 2008...

Lo puedes hacer con las apis del gdi+, seguro que hay mas de un ejemplo por ahi. Sino busca un proyecto de escritorio remoto de LeandroA creo que lo vi hace poco.

No sé cómo hay tan pocos (por no decir nada) comentarios en este tema. Felicitaciones por este tremendo tutorial, está buenísimo.

+1 Yo creo que simplemente el tutorial habla por si solo, excelente.